[AC-2003] Procédure d'ajout d'entrée [Résolu]

[pendoRa]

Bonjour, je travail sur une base Access 2003, et je dois par l'intermédiaire d'un formulaire permettre aux utilisateurs de saisir de nouveaux produits ainsi que d'autres paramètres, qui s'ajoute dans plusieures tables. La se trouve ma question.
En effet pour réalisé un enregistrement dans une table, j'utilise une procédure, telle quelle :

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
Private Sub goToCustForm_Click()
 
 
Dim rst_cust As Recordset
Set rst_cust = CurrentDb.OpenRecordset("HMI_CLIENT-CUST", dbOpenDynaset)
On Error Resume Next
With rst_cust
.AddNew
    !_CLIENT_ID = toCustID
    !_CLIENT_NAME = toCustShipTo
    !_CLIENT_NAME_SOLD = toCustSoldTo
    !_CLIENT_CITY = toCity
    !_CLIENT_COUNTRY = toCountry
    !_CLIENT_AFFILIATE = toAffiliate
    !_CLIENT_ORIGIN = toOrigin
    .Update
 
If Err.Number <> 0 Then
    MsgBox Err.Description, , Err.Number
    GoTo Fin_cust:
End If
.Close
End With
Set rst_cust = Nothing
Fin_cust:
 
End Sub

Ma question est, puis-je réécrire deux autres recordset dans la même procédure pour les deux tables suivantes, ou dois-je écrire une procédure par nouveau recordset ?


Merci
Cordialement

[Aegnor]

Bonjour,

tu peux utiliser la même procédure pour mettre à jour toutes les tables.
Tu peux même réutiliser la même variable à chaque changement de table.

Cordialement,

[pendoRa]

Parfait, merci de cet éclaircissement.