[Access]Exécution d'un Insert

Exécution d'un Insert [Access] - VB/VBA/VBS - Programmation

Marsh Posté le 30-11-2009 à 15:21:11    

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
  6. Dim SQL As String
  8. oNom = Me.txtNomPersonnel
  9. oPrenom = Me.txtPrenomPersonnel
  10. oPoste = Me.txtPostePersonnel
  11. oEmail = Me.txtEMailPersonnel
  13. SQL = "Insert into Personnel (NomPersonnel,PrenomPersonnel,MailPersonnel,PostePersonnel) " & _
  14.       "values ('" + oNom + "','" + oPrenom + "','" + oEmail + "','" + oPoste + "') ; "
  17. End Sub


 
Merci de bien vouloir m'expliquer comment faire  :)

Reply

Marsh Posté le 30-11-2009 à 15:21:11   

Reply

Marsh Posté le 30-11-2009 à 15:35:36    

Il manque juste une ligne :

DoCmd.RunSQL SQL


Reply

Marsh Posté le 30-11-2009 à 15:49:18    

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?

Reply

Marsh Posté le 30-11-2009 à 15:52:34    

Avant le DoCmd.RunSQL, mettre

DoCmd.SetWarnings False


Reply

Marsh Posté le 03-12-2009 à 23:19:09    

... 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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed