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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!"