Ajout de donnée sous access
bigbo
-
bigbo -
bigbo -
Bonjour,es-ce que quelqu'un peux m'aider, svp?
J'ai créer un formulaire de saisie sous access, ainsi qu'un bouton ajouter sur celui-ci(afin d'enregistrer les nouveaux enregistrments saisis); j'aimerai avoir le code en vba à mettre derrière mon bouton ajouter, pour que mes données s'insèrent automatiquement dans une table de ma base de donnée. Ma table s'appelle Gagnants et contient les champs:NumGagnant(num auto), Civilite(texte), NomGagn(texte), Adr1(texte), Adr2(texte), Ville(texte), codepost(numérique).
Merci, pour votre aide!!
J'ai créer un formulaire de saisie sous access, ainsi qu'un bouton ajouter sur celui-ci(afin d'enregistrer les nouveaux enregistrments saisis); j'aimerai avoir le code en vba à mettre derrière mon bouton ajouter, pour que mes données s'insèrent automatiquement dans une table de ma base de donnée. Ma table s'appelle Gagnants et contient les champs:NumGagnant(num auto), Civilite(texte), NomGagn(texte), Adr1(texte), Adr2(texte), Ville(texte), codepost(numérique).
Merci, pour votre aide!!
2 réponses
Si ton formulaire a ta table comme source, il n'est pas nécessaire d'ajouter un bouton. Tout nouvel enregistrement sera automatiquement ajouté à ta table.
Sinon le code VBA de ton bouton
Ne pas oublier de remplacer textbox... par le nom de la bonne textbox
Sub ..._Onclick()
on error goto Erreur
dim db as database
dim rs as recordset
set db= currentdb
set rs = db.oprenrecordset("Gagnants")
rs.addnew
rs!NumGagnant = Me!textbox1.value
rs!Civilite = Me!textbox2.value
rs!NomGagnant = Me!textbox3.value
rs!Adr1 = Me!textbox4.value
...
rs.update
Sortie:
on error resume next
set rs = nothing
set db = nothing
Erreur:
msgbox err.number & " : " & err.description
resume Sortie
End Sub
Ne pas oublier de remplacer textbox... par le nom de la bonne textbox
Sub ..._Onclick()
on error goto Erreur
dim db as database
dim rs as recordset
set db= currentdb
set rs = db.oprenrecordset("Gagnants")
rs.addnew
rs!NumGagnant = Me!textbox1.value
rs!Civilite = Me!textbox2.value
rs!NomGagnant = Me!textbox3.value
rs!Adr1 = Me!textbox4.value
...
rs.update
Sortie:
on error resume next
set rs = nothing
set db = nothing
Erreur:
msgbox err.number & " : " & err.description
resume Sortie
End Sub
