probleme de relation table-formulaire

voilà, j'ai un formulaire dans lequel j'ai différentes zones de texte
Dans chacune d'entre elles je saisi une donnée et j'ai crée un bouton enregistrement grace à l'assisstant, et je voudrais que quand je clique dessus, il aille me rajouter l'enregistrement que j'ai saisi dans la table
voilà mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Private Sub Commande16_Click() On Error GoTo Err_Commande16_Click   Dim db As DAO.Database Dim Tbl As DAO.TableDef Set db = CurrentDb Set Tbl = db.TableDefs("Commandes")         Commandes.totTTC = ttc Commandes.port = port Commandes.CodeFour = four Commandes.DateCom = date Commandes.DateLivraison = datelivr Commandes.NumCom = num             DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70   Exit_Commande16_Click: Exit Sub   Err_Commande16_Click: MsgBox Err.Description Resume Exit_Commande16_Click   End Sub

---

ttc, port, fou, ...correspondant bien sur au zone de texte et Commandes.totTTC au champ totTTC de la table commandes bien sur etc...

Mais ça marche pas il me met un message d'erreur du genre "Membre de methode ou de donnée absent!"

Bonjour

Un bon bout de lecture sur le tuto DAO est nécessaire.

Starec

voilà, je suis allé voir le tuto, et j'ai donc modifié mon code
en effet, c'est complètement différent:oops:
voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Commande16_Click() On Error GoTo Err_Commande16_Click Dim db As DAO.Recordset Dim db As DAO.Database Set db = CurrentDb Set db = db.OpenRecordset("Commandes", dbOpenTable) 'Passe en mode Ajout db.AddNew 'Affecte les différents champs db.Fields("NumCom").Value = num db.Fields("DateCom").Value = date db.Fields("DateLivraison").Value = datelivr db.Fields("CodeFour").Value = four db.Fields("Port").Value = port db.Fields("totTTC").Value = ttc 'Met à Jour db.Update   'Libération des objets db.Close db.Close Set db = Nothing Set db = Nothing

---

Mais il me met un message d'erreur , il sélectionne mon "db as DAO.Database" et m'affiche "Declaration existante dans la portée en cours"

Re

Tu as déclaré 2 fois db

Code:

---

1 2	Dim db As DAO.Recordset Dim db As DAO.Database

---

Met

Code:

---

dim rst as DAO.Recordset

---

et remplace ton code en conséquence.

Starec

oh oui, c'est bo ça marche, merci infiniment Starec, mais j'ai une autre question
comment dois-je faire maintenant pour que des que je clique sur le boton enregistrement il m'initialise toutes les zone de textes, afin que je puisse re saisir un nouvel enregistrement, dois-je mettre comme ça:
mazonedetexte=""
???