Discussion :

[puppusse79]

Bonjour,
J'ai supprimé la barre de navigation "windows" pour créer la mienne dans un formulaire de modification, et je voudrais faire apparaître "Enr. X sur Y". Pour le Y, pas de souci, j'ai utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Currentdb.TableDefs("NomTable").recordCount

sur une zone de texte , par contre en ce qui concerne le X, je n'arrive pas à mettre la main sur la solution. Si quelqu'un peut m'aider... Merci bcp à lui

[sunvialley]

je vois pas ton problème :

chez moi avec ce petit code ca marche (sans déclaration, sans rien...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Commande2_Click()
    X = CurrentRecord
    Y = CurrentDb.TableDefs("Table1").RecordCount
    txt.Caption = X & " / " & Y
End Sub

par contre il faut que la source de données de ton formulaire soit bien la "Table1" (mais ca doit être ke cas dans ton formulaire je pense)

[puppusse79]

effectivement ça marche! J'ai changé ma zone de texte par une etiquette pour pouvoir utiliser le caption. Merci!

[Caroline1]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
X = Me.CurrentRecord
Y = Me.RecordsetClone.RecordCount

Attention à mettre le champ à jour sur activation et lors de l'ajout/suppression d'enregistrement. Déclarer x et y est une bonne habitude aussi... (option Explicit.)

Il y a un tutoriel sur la personnalisation de barre de déplacement (je n'arrive pas à remettre le doigts dessus, dsl)