Sujet Précédent Sujet Suivant

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 3418 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 31 mai 2023 - 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

Réponse 1 / 2
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
Réponse 2 / 2
vb95 Messages postés 3418 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 31 mai 2023 165
21 mars 2020 à 01:10
Bonsoir
Sans certitude mets le 
rs.Update
après le 
Loop
pour voir .
0
Rejoignez-nous