Bonjour,

Je voudrais au départ ajouter les enregistrements de rs1 à rs.
Puis si rs1 à des nouveaux enregistrements les rajouter à rs,
ou si rs1 à des champs modifiés mettre à jour rs.

Comment intégrer dans ce code la mise à jour par Edit, en sachant que la table est vide au départ.


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
'--- Boucle sur la table rs1
      Do While Not rs1.EOF
 
'--- Rechercher si le numéro de licence existe
      rs.FindFirst "[NuméroLicence]=" & rs1!Licence
 
'--- Pas de numéro de licence trouvé, crée l'enregistrement
      If rs.NoMatch Then
 
'--- Enregistrement des données des nouveaux
      rs.AddNew
         rs("Nom") = rs1!Nom
         rs("Prénom") = rs1!Prénom
         rs("Titre") = rs1!Civil
         rs("NuméroLicence") = rs1!Licence
     End If
     rs.Update
     rs1.MoveNext
Loop
Merci de votre aide

Salutations.