Carte du site
 Remerciements
 Netiquette
 Bugs
 Tables
 Requêtes
 Formulaires
 États (rapports)
 Modules
 APIs
 Chaînes
 Date/Time
 Général
 Ressources
 Téléchargeables

 Termes d'usage

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 **************

© 1998-2001, Dev Ashish, All rights reserved. Optimized for Microsoft Internet Explorer