Discussion :

[jmde]

Bonsoir,

Je voudrais mettre à jour ma tbl chèques en fonction de la rqt Temporaire, mais lorsque je lance
le code rien ne se produit, pourtant le rs1 (rqt Temporaire est bien parcouru et la boucle se termine
Bien.

Pouvez-vous m’aider à résoudre mon problème ?

Le str critere me donne ceci

Code :

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

"[Regroup]=1 AND [Nom]='"ABO" AND [Emetteur]='"ABO Jack"' AND [Banque]=LCL"

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
 '--- Interrogation de la tbl chèques rs
         rq = "select * from [tbl Chèques]"
         Set rs = db.OpenRecordset(rq, dbOpenDynaset)
 
    '--- Interrogation de la rqt Temporaire rs1
         Set rs1 = db.OpenRecordset("rqt Temporaire", dbOpenDynaset)
 
    '--- Boucle sur la rqt Temporaire rs1
          Do While Not rs1.EOF
 
    '--- Lire les enregistrements suivant ce critère
          strCritere = "[Regroup]=" & (rs1![Regroup]) & " AND " & _
                       "[Nom]='" & Chr(34) & Trim(rs1![Nom]) & Chr(34) & " AND " & _
                        "[Emetteur]='" & Chr(34) & (rs1![Emetteur]) & Chr(34) & "' AND " & _
                         "[Banque]=" & (rs1![Banque])
 
          rs.FindFirst strCritere
 
    '--- vérifier le résultat rs.
         If rs.NoMatch Then
             'Ne rien faire
         Else
           rs.Edit
            rs("N°Remise") = CInt(cmbN°Remise)   'Champ N°Remise
             rs("N°Brouillard") = CInt(cmbN°Remise)   'Champ N°Brouillard
             rs("DateRemise") = CDate(txtDateR.Value) 'Champ DateRemise
             rs("Verrou") = True
             rs.Update
          End If
 
    rs1.MoveNext
    Loop

Merci pour votre aide.

Salutations

[Jean-Philippe André]

Bonjour,

les Chr(34) ne servent à rien, vu que le caractere pour limiter une chaine de caractères est le '

essaie avec

Code :

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

1
2
"[Nom]='" &  Trim(rs1![Nom]) & " AND " & _
                        "[Emetteur]='" & (rs1![Emetteur])  & "' AND " & _

[jmde]

Bonjour,

Merci pour la réponse.

J'ai effectué les modifications et lorsque je lance le code il n'y a
que le premier enregistrement qui est mis à jour.

Salutations.

[micniv]

Bonjour ,
je suppose que REGROUP est aussi de type Text; Alors essaie

Code :

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

1
2
3
4
5
 
 strCritere = "[Regroup]='" & nz(rs1![Regroup]) & "'" & _
                       " AND [Nom]='" &   Trim(rs1![Nom]) & "'" & _
                        " AND [Emetteur]='" & nz(rs1![Emetteur])  & "'" & _
                         " AND [Banque]= '" & nz(rs1![Banque]) & "'"

sinon fait du debug pas à pas (F8) pour suivre l’exécution

Cdlt

[jmde]

Bonjour,

Le champ Regroup a bien un champ Numérique.

Sur le strcritere j’ai modifié le champ Banque en prenant la Réf Banque, j’ai ajouté le champ
civilité pour prendre en compte les familles ( Mr, Me) et le champ N°Remise.

Code :

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

1
2
3
4
5
6
strCritere = "[Regroup]=" & (rs1![Regroup]) & " AND " & _
                       "[Nom]='" & Trim(rs1![Nom]) & "' AND " & _
                        "[Emetteur]='" & (rs1![Emetteur]) & "' AND " & _
                         "[RéfBanque]=" & (rs1![RéfBanque]) & " AND " & _
                          "[Civilité]='" & (rs1![Civilité]) & "' AND " & _
                           "[N°Remise]=" & CInt(cmbN°Remise)

J’ai sélectionné trois enregistrements dans rs1 et j’ai fait un Debug.Print strCritere qui me donne ce résultat :

Code SQL :

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

1
2
3
Regroup]=1 AND [Nom]='ABD' AND [Emetteur]='ABD Gerard' AND [RéfBanque]=1 AND [Civilité]='Mr' AND [N°Remise]=1
[Regroup]=10 AND [Nom]='ALG-CHAS' AND [Emetteur]='ALG Thierry' AND [RéfBanque]=33 AND [Civilité]='Mr' AND [N°Remise]=1
[Regroup]=10 AND [Nom]='ALG-CHAS' AND [Emetteur]='ALG Thierry' AND [RéfBanque]=33 AND [Civilité]='Me' AND [N°Remise]=1

Alors que les trois enregistrements sont bien passés sur update, seul le 1èr a été mis à jour.

Avez-vous une idée sur cette anomalie ? ou se trouve mon erreur ?

Merci.

Salutations

[Jean-Philippe André]

Salut,

si a chaque fois que tu roules sur ton RS1, autant repartir ton RS du debut…

La syntaxe ressemblerait a ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    '--- Interrogation de la rqt Temporaire rs1
         Set rs1 = db.OpenRecordset("rqt Temporaire", dbOpenDynaset)
 
    '--- Boucle sur la rqt Temporaire rs1
          Do While Not rs1.EOF
 
    '--- Lire les enregistrements suivant ce critère
          strCritere = "[Regroup]=" & (rs1![Regroup]) & " AND " & _
                       "[Nom]='" & Chr(34) & Trim(rs1![Nom]) & Chr(34) & " AND " & _
                        "[Emetteur]='" & Chr(34) & (rs1![Emetteur]) & Chr(34) & "' AND " & _
                         "[Banque]=" & (rs1![Banque])
rq = "select * from [tbl Chèques] where " & strCritere
         Set rs = db.OpenRecordset(rq, dbOpenDynaset)