Forms: Simuler le "Enregistrement  x de y"	Author(s) Dev Ashish

Simuler le "Enregistrement  x de y".

(Q)    Je désire définir mes propres boutons de navigation pour un formulaire (avec les boutons standards désactivés) et j'aimerais simuler le "Enregistrement X de Y", comment s'y prendre?

(A)    Soit l'étiquette lblNavigate qui contiendra ce résultat, placer le code suivant dans la procédure événementielle  Current   du formulaire.

'************** Code Start  **************
Private Sub Form_Current()
    If Me.NewRecord Then
        Me!lblNavigate.Caption = "New Record"
    Else
        With Me.RecordsetClone
            .Bookmark = Me.Bookmark
            Me!lblNavigate.Caption = "Enregistrement  " & _
                    .AbsolutePosition + 1 _
                    & " de " & .RecordCount
        End With
    End If
End Sub
'************** Code End **************