problème de boucle do until

bonjour à tous  g un petit pb je fais une boucle pour  lire tous les enregistrements d'une table 
mais cela ne marche pas


Private Sub MajMontantCpteRegroupement()
 
  Dim req           As DAO.QueryDef
  Dim frd           As DAO.Recordset
  Dim frd2          As DAO.Recordset
  Dim strCptRgp     As String
  Dim dblMontant    As Double
 
  CurrentDb.QueryDefs.Refresh
  
  'Déterminer le Compte de Regroupement correspondant au Compte en cours
  Set req = CurrentDb.QueryDefs("Req_CpteRegroupementPourUnCompte")
      req.Parameters("prmCptCod").Value = Me.code_compte.Value
 
  Set frd = req.OpenRecordset(dbOpenSnapshot)
 
 
  'If frd.RecordCount <> 0 Then
 
   'Do Until frd.EOF = True
 
  strCptRgp = frd.Fields("code_regroupement").Value
  frd.Close
  Set frd = Nothing
       
  'Calculer Somme sur Compte de Regroupement
  Set req = CurrentDb.QueryDefs("Req_SousTotalUnRegroupement")
  req.Parameters("prmExeCod").Value = Me.txt_exercice
  req.Parameters("prmSocCod").Value = Me.cbx_societe
  req.Parameters("prmCptCod").Value = strCptRgp
 
  Set frd2 = req.OpenRecordset(dbOpenSnapshot)
  dblMontant = frd2.Fields("SommeMontant").Value
    frd2.Close
  Set frd2 = Nothing
 
 'Mise à jour montant Compte de Regroupement
  Set req = CurrentDb.QueryDefs("definir_maj_essai")
  req.Parameters("prmExeCod").Value = Me.txt_exercice
  req.Parameters("prmSocCod").Value = Me.cbx_societe
  req.Parameters("prmCptCod").Value = strCptRgp
  req.Parameters("prmTotal").Value = dblMontant
  req.Execute
 
  'frd2.MoveNext
  'Loop
  'End If
   
  req.Close
  Set req = Nothing

End Sub

rajoute "doevents" juste avant ton loop

j'ai pas bien compris mais pourquoi des ' avant do until et loop

' do until ..;
c un commentaire

pourquoi en commentaire

ça ne marche toujours pas  il maffiche un message kil mank le bloc With

comme ça pcq je debuggé

tu pe me dire ce ki marche pa dan mon code

sur quelle ligne le message est affiche

Voila j'ai pris ton programme pour le tester
ce qui est anormal dans le code c'est que la condition de la boucle teste EOF de frd mais le probleme c'est que dans la boucle tu ferme frd
ensuite avant la fin de la boucle c'est frd2 qui passe a l'enregistrement suivant
tu m'excuse ta logique ne tient pas
si tu m'explique ce que tu veux on peut le faire ensemble
bonne chance