Boucle Do While

Version imprimable

Boucle Do While

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:

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

Code:

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 ?

21/09/2009, 13h56
GillesDeVuif

Citation:

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:

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

Cordialement.
21/09/2009, 14h48
Alain36

Bonjour,

Quelque chose manque dans ta boucle :

Code:

rs1.MoveNext

à mettre avant le Loop

Ecrite comme tu l'as fait, ta boucle reste bloquée sur le premier enregistrement de rs1
21/09/2009, 14h59
Kloun

Sinon, en 2 requètes ensemblistes (un update, un insert), on doit pouvoir faire la même chose.
21/09/2009, 19h04
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

Bonjour,
peut-être comme ça :

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
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.

22/09/2009, 01h45
jmde

Bonsoir ou Bonjour GillesDeVuif,

Non hélas ça ne fonctionne toujours pas.

Je vais essayer de joindre une base d’exemple.

Salutations
22/09/2009, 10h30
Alain36

Bonjour,

Je reviens à la charge. Quelque chose d'autre vient de me sauter aux yeux : le problème est dans le FindFirst.

- Si le champ NumeroLicence est de type texte, alors :

Code:

rs.FindFirst "[NuméroLicence]='" & Left(rs1![Numero], 7) & "'"

la chaîne retournée par le Left doit être entre 2 quotes
- S'il est numérique entier, alors :

Code:

rs.FindFirst "[NuméroLicence]=" & Val(Left(rs1![Numero], 7))

je ne suis pas sûr que le Val soit nécessaire, mais dans le doute...

En tout cas, utilise l'une ou l'autre syntaxe suivant que le champ est du texte ou pas
22/09/2009, 10h35
Kloun

Je reviens aussi à la charge pour dire que 2 requètes, ça serait plus propre, plus rapide et plus sûr.
Une requète update avec un inner join entre les 2 tables et une requète insert avec un left join et une condition de non correspondance.

Bonjour JMDE
le conseil de Kloun est avisé, ces requêtes peuvent peut-être t'aider :
(Je le remercie au passage pour le temps qu'il a bien voulu me consacrer)

Code:

1
2
3
4
5
INSERT INTO [tbl Adherents] (NumeroLicence,DateNaissance) 
SELECT [tbl Adherents 1].Numero, [tbl Adherents 1].[Date de naissance] 
FROM [tbl Adherents] LEFT JOIN [tbl Adherents 1] 
ON [tbl Adherents].[NumeroLicence] = LEFT([tbl Adherents 1].Numero,7) 
WHERE [tbl Adherents].NumeroLicence IS NULL AND [tbl Adherents 1].Saison = 2010;

Code:

1
2
3
4
5
6
UPDATE [tbl Adherents] INNER JOIN [tblAdherents])
ON [tbl Adherents].NumeroLicence = LEFT([tbl Adherents 1].Numero,7)
SET [tbl Adherents].Nom = [tbl Adherents 1].Nom,
[tbl Adherents].Prenom = [tbl Adherents 1].Prenom,
etc
WHERE [tbl Adherents 1].Saison = 2010;

L'update est à compléter.

Cordialement

25/09/2009, 18h57
jmde

Bonjour GillesdeVuif ;

Alain36 avait vu juste, c'était bien la syntaxe du FindFirst qui ne collait pas

Code:

rs.FindFirst "[NuméroLicence]='" & Left(rs1![Numero], 7) & "'".

Je te remercie d’avoir développé la solution de kloun.

Donc un grand merci à tous pour votre aide.

Salutations