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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <fujitsuchaos@msn.com> a écrit dans le message de
news:e8iR5U9bIHA.3400@TK2MSFTNGP03.phx.gbl...
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
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