Bonjour à tous,
J'aimerais ajouter des enregistrements dans une table existante et à la fin de la table, c'est-à-dire le code doit se pointer à la fin des enregistrements de la table et y ajouter d'autres. Je suis débutant en access et vba. Voilà le code que j'ai fait pour ça mais il ne fonctionne pas.
Quelqu'un pourrait me donner le code qui fonctionne bien. Je travaille avec Offixe XP pro. Voilà mon code:
Merci d'avance de votre réponse.
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 Private Sub Form_Close() Dim Db As DAO.Database Dim Rs As DAO.Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("facture", dbOpenTable) On Error Resume Next With Rs .AddNew !NumFact = Form_SaisieFacture!NumFact !DateFacture = Form_SaisieFacture!Date$() !NumClient = Form_SaisieFacture!NumClient !NomClient = Form_SaisieFacture!NomClient !MontantHaut = Form_SaisieFacture!frais !MontantTotalFacture = Form_SaisieFacture!total .Update .Requery End With If Err.Number <> 0 Then MsgBox Err.Description, , Err.Number GoTo Fin: End If Rs.Close Set Rs = Nothing Set Db = Nothing Fin: End Sub
Augustin
Partager