Bonjour,

Je voudrais mettre à jour mes enregistrements à partir d’une table
que j’ai importée, mais je n’arrive pas à faire fonctionner cette boucle
qui lorsqu’elle arrive à FindFirst passe à la fin du code.

Ou se situe mon erreur ?

Merci pour votre aide.

Salutations

'
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
35
36
37
38
39
40
41
42
43
--- Intérogation de la tbl adhérents
     rq = "select * From [tbl Adhérents]"
     Set rs = db.OpenRecordset(rq, dbOpenDynaset)
 
 
'--- Intérogation de la tbl adhérents 1
     rq = "select * From [tbl Adhérents 1] WHERE ((([tbl Adhérents 1].Saison)=2010));"
     Set rs1 = db.OpenRecordset(rq, dbOpenDynaset)
 
 
      If rs.EOF Then blnCibleVide = True Else blnCibleVide = False
 
'--- Boucle sur la table rs1
     Do While Not rs1.EOF
 
'--- Rechercher si le numéro de licence existe
      If blnCibleVide Then
         blnExistePas = True
      Else
         rs.FindFirst "[NuméroLicence]=" & Left(rs1![Numero], 7)
         blnExistePas = rs.NoMatch
      End If
 
'--- Pas de numéro de licence trouvé, crée l'enregistrement
      If blnExistePas Then
         rs.AddNew
         rs("NuméroLicence") = rs1("Numero")
         rs("DateNaissance") = rs1("Date de naissance")
         blnCibleVide = False
      Else
 '--- Existe on met à jour
         rs.Edit
      End If
 
 '--- Ajout/Mise à jour des autres champs
      rs("Nom") = rs1("Nom")
      rs("Prénom") = rs1("Prenom")
      rs("Civilité") = rs1("Genre")
      rs("Adresse") = rs1("Adresse")
      rs("Ville") = rs1("Ville")
      rs("CP") = rs1("Code postal")
      rs.Update
  Loop