Dim WithEvents RS As Recordset Private Sub Form_Load() Set RS = New Recordset label1.Caption = RS.CursorLocation & " /" & RS.RecordCount End Sub Private Sub RS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) label1.Caption = RS.CursorLocation & " /" & RS.RecordCount End Sub
Private Sub Form_Current() Me.txtEnrCourant = Me.CurrentRecord total = DCount("*", Me.RecordSource) End Sub