Mise à jour d'une table access

jadami
Messages postés
103
Date d'inscription
mercredi 14 mars 2007
Statut
Membre
Dernière intervention
18 septembre 2020
- Modifié le 14 mars 2020 à 13:44
vb95
Messages postés
2629
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
13 mai 2022
- 21 mars 2020 à 01:10
Bonjour,

Je voudrais mettre à jour ma tbl chèques en fonction d’une rqt Temporaire, mais lorsque je lance le code, seul le premier des trois enregistrements que j’ai choisis pour le test est enregistré, pourtant le rs1 (rqt Temporaire est bien parcouru et la boucle se termine bien.

 '--- 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 = "[RegroupFamille]=" & (rs1![RegroupFamille]) & " AND " & _
                       "[NomFamille]='" & Trim(rs1![NomFamille]) & "' AND " & _
                        "[Emetteur]='" & (rs1![Emetteur]) & "' AND " & _
                         "[RéfBanque]=" & (rs1![RéfBanque]) & " AND " & _
                          "[Civilité]='" & (rs1![Civilité]) & "' AND " & _
                           "[N°Remise]=" & CInt(cmbN°Remise)
                         
          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)  
              rs("N°Brouillard") = CInt(cmbN°Remise)   
              rs("DateRemise") = CDate(txtDateR.Value) 
              rs.Update
          End If
        
    rs1.MoveNext
    Loop

Résultat des trois enregistrements de rs1
Debug.Print strCritere 

RegroupFamille]=1 AND [NomFamille]='ABD' AND [Emetteur]='ABD Gerard' AND [RéfBanque]=1 AND [Civilité]='Mr' AND [N°Remise]=1

[RegroupFamille]=10 AND [NomFamille]='ALG-CHAS' AND [Emetteur]='ALG Thierry' AND [RéfBanque]=33 AND [Civilité]='Mr' AND [N°Remise]=1

[RegroupFamille]=10 AND [NomFamille]='ALG-CHAS' AND [Emetteur]='ALG Thierry' AND [RéfBanque]=33 AND [Civilité]='Me' AND [N°Remise]=1


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

Salutations

2 réponses

jadami
Messages postés
103
Date d'inscription
mercredi 14 mars 2007
Statut
Membre
Dernière intervention
18 septembre 2020

20 mars 2020 à 17:19
Bonjour,

Personne pour m'aider en me donnant une piste ?

Merci
0
vb95
Messages postés
2629
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
13 mai 2022
151
21 mars 2020 à 01:10
Bonsoir
Sans certitude mets le
rs.Update
après le
Loop
pour voir .
0