Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

"Précédent" & "Suivant"

1 réponse
Avatar
Marco
Bonjour

Access 2007
Dans le formulaire (et sous le formulaire), Les bouton sont "Précédent" &
"Suivant".
Private Sub Form_Current()
If Me.NbrePage > 1 Then
Me.Précédent.Visible=True
Me.suivant.Visible=True
Else
Me.Précédent.Visible=False
Me.suivant.Visible=False
End IF

OK

Et est ce que c'est possible ajouter le programme de VBA suivant :

Si la page est dernier alors me.suivant.visible=False
Si la page début alors me.précédent.visible=False

merci d'avance

Marco

1 réponse

Avatar
Gilbert
Bonjour,

Dans l'évènement Form_Current tu mets quelque chose comme :

Me.Précédent.Enabled = Not Me.RecordsetClone.AbsolutePosition = 0
Me.Suivant.Enabled = Not Me.RecordsetClone.AbsolutePosition + 1 Me.RecordsetClone.RecordCount

--
Cordialement,

Gilbert


"Marco" a écrit dans le message de
news:
Bonjour

Access 2007
Dans le formulaire (et sous le formulaire), Les bouton sont "Précédent" &
"Suivant".
Private Sub Form_Current()
If Me.NbrePage > 1 Then
Me.Précédent.Visible=True
Me.suivant.Visible=True
Else
Me.Précédent.Visibleúlse
Me.suivant.Visibleúlse
End IF

OK

Et est ce que c'est possible ajouter le programme de VBA suivant :

Si la page est dernier alors me.suivant.visibleúlse
Si la page début alors me.précédent.visibleúlse

merci d'avance

Marco