A voir également:
- Ajout de donnée sous access
- Ajout rapide snap ✓ - Forum Snapchat
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Exemple base de données access à télécharger gratuit - Forum Access
- Ajout snap sans rien - Forum Snapchat
- Access denied - Forum Bbox Bouygues
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