Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2760 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Access]Exécution d'un Insert

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Access]Exécution d'un Insert

n°1945916
tarnx
Posté le 30-11-2009 à 15:21:11  profilanswer
 

Bonjour à tous.
 
Je recherche comment effectuer un insert en VBA suite à un click sur un bouton.
Le formulaire se compose de 4 champs de saisie. (Nom, Prenom, E-Mail et poste).
Une fois les champs saisis, l'utilisateur click sur valider et c'est à ce moment que je souhaiterais que la requête soit exécutée.
 
Pour l'instant, je parviens à récupérer les valeurs des champs, mais je ne parviens pas à exécuter la requête.
 
Private Sub cmdValiderCreerPersonnel_Click()
 

Code :
  1. Dim oNom As String
  2. Dim oPrenom As String
  3. Dim oPoste As String
  4. Dim oEmail As String
  5. Dim SQL As String
  6. oNom = Me.txtNomPersonnel
  7. oPrenom = Me.txtPrenomPersonnel
  8. oPoste = Me.txtPostePersonnel
  9. oEmail = Me.txtEMailPersonnel
  10. SQL = "Insert into Personnel (NomPersonnel,PrenomPersonnel,MailPersonnel,PostePersonnel) " & _
  11.       "values ('" + oNom + "','" + oPrenom + "','" + oEmail + "','" + oPoste + "') ; "
  12. End Sub


 
Merci de bien vouloir m'expliquer comment faire  :)

mood
Publicité
Posté le 30-11-2009 à 15:21:11  profilanswer
 

n°1945924
olivthill
Posté le 30-11-2009 à 15:35:36  profilanswer
 

Il manque juste une ligne :

DoCmd.RunSQL SQL


n°1945935
tarnx
Posté le 30-11-2009 à 15:49:18  profilanswer
 

Merci beaucoup, c'est ce que je cherchais.
 
Par contre, lorsque je click sur le bouton valider, un message d'avertissement apparait, "Vous aller ajouter une ligne...".
 
Y a-t-il moyen de faire en sorte que ce message ne s'affiche plus?De forcer l'ajout d'une ligne?

n°1945937
olivthill
Posté le 30-11-2009 à 15:52:34  profilanswer
 

Avant le DoCmd.RunSQL, mettre

DoCmd.SetWarnings False


n°1947147
otobox
Maison fondée en 2005
Posté le 03-12-2009 à 23:19:09  profilanswer
 

... et ne pas oublier de mettre après le DoCmd.RunSQL :

DoCmd.SetWarnings True


sinon tous les messages d'alerte ne paraitront plus (genre quand tu fermes un formulaire sans l'avoir sauvegardé !)


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Access]Exécution d'un Insert

 

Sujets relatifs
[VBA] Remplir une table Access à partir d'un tableauPlantage lors de l'execution d'une requete [PHP/MySQL]
vb6 selection d'une table access liée à as400[PHP / HTML] Afficher une image avant l'exécution d'un long script php
Transfert Fichier Texte dans ACCESS depuis vba Excel[VBA] Exécution macro dans un autre classeur
Différents cas d'exécutionExecution javascript et condition unique [resolu]
[Ruby] exécution d'une commande 'echo' avec ruby [résolu][RESOLU] INSERT Mysql foireux
Plus de sujets relatifs à : [Access]Exécution d'un Insert


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR