"Précédent" & "Suivant"

Le
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ú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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilbert
Le #6362611
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" 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



Publicité
Poster une réponse
Anonyme