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!"