Mise à jour d'une table access

Signaler
Messages postés
98
Date d'inscription
mercredi 14 mars 2007
Statut
Membre
Dernière intervention
20 mars 2020
-
Messages postés
2169
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
9 juillet 2020
-
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

Messages postés
98
Date d'inscription
mercredi 14 mars 2007
Statut
Membre
Dernière intervention
20 mars 2020

Bonjour,

Personne pour m'aider en me donnant une piste ?

Merci
Messages postés
2169
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
9 juillet 2020
109
Bonsoir
Sans certitude mets le
rs.Update
après le
Loop
pour voir .