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