bonjour
dans une procédure VB je souhaiterai insérer un compteur qui puisse m'indiquer (fenêtre  dans le formulaire  ) le'enregistrement en cours que le programme traite , l'opération étant longue suivant le traitement, je ne sais pas si il marche , donc un compteur me montrerai le fonctionnement j'ai essaye de l'inclure dans chaqe sub mais cela n'a jamais pris   si quelqu'un sait faire ce serait super sympa
merci d'avance

salut,
 
Tu peux nous afficher ton code et l'endroit ou tu désire mettre ton compteur ? merci !
 
++

en fait j'ai indique le compteur dans le sub mais rien ne s'affiche et je voudrai que le N° de l'enregistrement traite soit visible dans le formulaire pour suivre le travail
 
Sub CompareDansTableAchat4champs(p1, p2, p3, p4, NomChampsAValoriser)
Dim MaBase
MonCompteur = 0
Set MaBase = CurrentDb()
    Set basetravail = MaBase.OpenRecordset("ANALYSE" )
        Form("Deroulement" ).Value = CStr(Date) + "(" + CStr(Time) + " )" + ": " + "JE vais parcourir ANALYSE" + vbCrLf + Form("Deroulement" ).Value
 
    If Not basetravail.EOF Then
        basetravail.MoveFirst
    End If
    Do Until (basetravail.EOF)
        MonCompteur = MonCompteur + 1
         
     Form("Deroulement" ).Value = CStr(Date) + "(" + CStr(Time) + " )" + ": " + "Compteur = " + CStr(MonCompteur) + " ; " + vbCrLf + Form("Deroulement" ).Value
        basetravail.Edit
      a01 = basetravail("A" )
      a02 = basetravail("B" )
      a03 = basetravail("C" )
      a04 = basetravail("D" )
 
      If (a01 = p1 And a02 = p2 And a03 = p3 And a04 = p4) then
         
         
         basetravail(NomChampsAValoriser) = 1
     
    End If
      basetravail.Update
      basetravail.MoveNext
    Loop
 
End Sub