Discussion :

[jmde]

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

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
     Else
 '--- Existe on met à jour
         rs.Edit
      End If

peut être le rs.edit ne fait il pas partie du if ?

[GillesDeVuif]

rq = "select * From [tbl Adhérents 1] WHERE ((([tbl Adhérents 1].Saison)=2010));"

Bonjour.
Est-ce que la requête ci-dessus renvoie des résultats (si 2010 est une valeur, et non le nom d'une variable, peut-être manque-t-il les quotes) ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rq = "select * From [tbl Adhérents 1] WHERE ((([tbl Adhérents 1].Saison)='2010'));"

Cordialement.

[Alain36]

Bonjour,

Quelque chose manque dans ta boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rs1.MoveNext

à mettre avant le Loop

Ecrite comme tu l'as fait, ta boucle reste bloquée sur le premier enregistrement de rs1

[Kloun]

Sinon, en 2 requètes ensemblistes (un update, un insert), on doit pouvoir faire la même chose.

[jmde]

Bonsoir,

Merci pour vos réponses.

La rq renvoie bien des enregistrements.

En effet le rs1.MoveNext manquait bien, mais ma boucle ne fonctionne toujours pas.

Est-ce que des types de champs différents dans chaque table peuvent provoquer le problème, (le champ [NuméroLicence] et [Numero] et de type
texte).

Salutations

[GillesDeVuif]

Bonjour,
peut-être comme ça :

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
rs1.MoveFirst
 
'--- Boucle sur la table rs1
    While Not rs1.EOF
        StrNum = "[NuméroLicence]=" & Left(rs1("Numero"), 7)
        With rs
        .FindFirst StrNum
            If .NoMatch Then
                .AddNew
                !NuméroLicence = rs1("Numero")
                !DateNaissance = rs1("Date de naissance")
                .Update
            Else
                .Edit
                !Nom = rs1("Nom")
                !Prénom = rs1("Prenom")
                !Civilité = rs1("Genre")
                !Adresse = rs1("Adresse")
                !Ville = rs1("Ville")
                !CP = rs1("Code postal")
                .Update
            End If
        End With
    rs1.MoveNext
    Wend

Cordialement.