Je viens de de vérifier la routine que tu m'as gentiment envoyée, mais elle ne correspond pas exactement à ce que je recherche. En fait, je voudrais simplement désactiver mon bouton "suivant" quand le formulaire est au dernier enregistrement. Je crois me souvenir (en access 97) qu'il y a une solution plus simple pour repérer qu'on est bien sur le dernier enregistrement de la requête/table, source de ce formulaire.
Je ne me rappelle plus <:-(
Goup'
"3stone" a écrit dans le message de news: uHQrD%
Salut,
Goupil wrote:
Ma mémoire me joue des tours, je ne me rappelle plus comment repérer le dernier enregistrement d'un formulaire en VBA.
A condition que la source soit triée (sinon c'est alléatoire...)
Si l'identifiant est un NuméroAuto (ID)
Dim lgDernier As Long
With Me.RecordsetClone if Not .EOF then .moveLast lgDernier = ID end if End With
Je viens de de vérifier la routine que tu m'as gentiment envoyée, mais elle
ne correspond pas exactement à ce que je recherche.
En fait, je voudrais simplement désactiver mon bouton "suivant" quand le
formulaire est au dernier enregistrement.
Je crois me souvenir (en access 97) qu'il y a une solution plus simple pour
repérer qu'on est bien sur le dernier enregistrement de la requête/table,
source de ce formulaire.
Je ne me rappelle plus <:-(
Goup'
"3stone" <home@sweet_home.be> a écrit dans le message de news:
uHQrD%23JVKHA.220@TK2MSFTNGP02.phx.gbl...
Salut,
Goupil wrote:
Ma mémoire me joue des tours, je ne me rappelle plus comment repérer
le dernier enregistrement d'un formulaire en VBA.
A condition que la source soit triée (sinon c'est alléatoire...)
Si l'identifiant est un NuméroAuto (ID)
Dim lgDernier As Long
With Me.RecordsetClone
if Not .EOF then
.moveLast
lgDernier = ID
end if
End With
Je viens de de vérifier la routine que tu m'as gentiment envoyée, mais elle ne correspond pas exactement à ce que je recherche. En fait, je voudrais simplement désactiver mon bouton "suivant" quand le formulaire est au dernier enregistrement. Je crois me souvenir (en access 97) qu'il y a une solution plus simple pour repérer qu'on est bien sur le dernier enregistrement de la requête/table, source de ce formulaire.
Je ne me rappelle plus <:-(
Goup'
"3stone" a écrit dans le message de news: uHQrD%
Salut,
Goupil wrote:
Ma mémoire me joue des tours, je ne me rappelle plus comment repérer le dernier enregistrement d'un formulaire en VBA.
A condition que la source soit triée (sinon c'est alléatoire...)
Si l'identifiant est un NuméroAuto (ID)
Dim lgDernier As Long
With Me.RecordsetClone if Not .EOF then .moveLast lgDernier = ID end if End With
Voici ce que j'utilise pour activer ou désactiver des boutons de déplacement personnalisés
With Me.RecordsetClone .Bookmark = Me.Bookmark If .AbsolutePosition = 0 Then Me.CmdPrec.Enabled = False Else Me.CmdPrec.Enabled = True End If If .AbsolutePosition + 1 = .RecordCount Then Me.CmdSuiv.Enabled = False Else Me.CmdSuiv.Enabled = True End If End With
-- Cordialement,
Gilbert
"Goupil" a écrit dans le message de news:4ae6167f$0$918$
Bonsoir Pierre, et tout le monde...
Je viens de de vérifier la routine que tu m'as gentiment envoyée, mais
elle
ne correspond pas exactement à ce que je recherche. En fait, je voudrais simplement désactiver mon bouton "suivant" quand le formulaire est au dernier enregistrement. Je crois me souvenir (en access 97) qu'il y a une solution plus simple
pour
repérer qu'on est bien sur le dernier enregistrement de la requête/table, source de ce formulaire.
Je ne me rappelle plus <:-(
Goup'
"3stone" a écrit dans le message de news: uHQrD% > Salut, > > Goupil wrote: >> Ma mémoire me joue des tours, je ne me rappelle plus comment repérer >> le dernier enregistrement d'un formulaire en VBA. > > > A condition que la source soit triée (sinon c'est alléatoire...) > > Si l'identifiant est un NuméroAuto (ID) > > Dim lgDernier As Long > > With Me.RecordsetClone > if Not .EOF then > .moveLast > lgDernier = ID > end if > End With > > -- > A+ > Pierre (3stone) Access MVP > Perso: http://www.3stone.be/ > MPFA: http://www.mpfa.info/ (infos générales) >
Bonjour,
Voici ce que j'utilise pour activer ou désactiver des boutons de déplacement
personnalisés
With Me.RecordsetClone
.Bookmark = Me.Bookmark
If .AbsolutePosition = 0 Then
Me.CmdPrec.Enabled = False
Else
Me.CmdPrec.Enabled = True
End If
If .AbsolutePosition + 1 = .RecordCount Then
Me.CmdSuiv.Enabled = False
Else
Me.CmdSuiv.Enabled = True
End If
End With
--
Cordialement,
Gilbert
"Goupil" <quentin@optojet.fr> a écrit dans le message de
news:4ae6167f$0$918$ba4acef3@news.orange.fr...
Bonsoir Pierre, et tout le monde...
Je viens de de vérifier la routine que tu m'as gentiment envoyée, mais
elle
ne correspond pas exactement à ce que je recherche.
En fait, je voudrais simplement désactiver mon bouton "suivant" quand le
formulaire est au dernier enregistrement.
Je crois me souvenir (en access 97) qu'il y a une solution plus simple
pour
repérer qu'on est bien sur le dernier enregistrement de la requête/table,
source de ce formulaire.
Je ne me rappelle plus <:-(
Goup'
"3stone" <home@sweet_home.be> a écrit dans le message de news:
uHQrD%23JVKHA.220@TK2MSFTNGP02.phx.gbl...
> Salut,
>
> Goupil wrote:
>> Ma mémoire me joue des tours, je ne me rappelle plus comment repérer
>> le dernier enregistrement d'un formulaire en VBA.
>
>
> A condition que la source soit triée (sinon c'est alléatoire...)
>
> Si l'identifiant est un NuméroAuto (ID)
>
> Dim lgDernier As Long
>
> With Me.RecordsetClone
> if Not .EOF then
> .moveLast
> lgDernier = ID
> end if
> End With
>
> --
> A+
> Pierre (3stone) Access MVP
> Perso: http://www.3stone.be/
> MPFA: http://www.mpfa.info/ (infos générales)
>
Voici ce que j'utilise pour activer ou désactiver des boutons de déplacement personnalisés
With Me.RecordsetClone .Bookmark = Me.Bookmark If .AbsolutePosition = 0 Then Me.CmdPrec.Enabled = False Else Me.CmdPrec.Enabled = True End If If .AbsolutePosition + 1 = .RecordCount Then Me.CmdSuiv.Enabled = False Else Me.CmdSuiv.Enabled = True End If End With
-- Cordialement,
Gilbert
"Goupil" a écrit dans le message de news:4ae6167f$0$918$
Bonsoir Pierre, et tout le monde...
Je viens de de vérifier la routine que tu m'as gentiment envoyée, mais
elle
ne correspond pas exactement à ce que je recherche. En fait, je voudrais simplement désactiver mon bouton "suivant" quand le formulaire est au dernier enregistrement. Je crois me souvenir (en access 97) qu'il y a une solution plus simple
pour
repérer qu'on est bien sur le dernier enregistrement de la requête/table, source de ce formulaire.
Je ne me rappelle plus <:-(
Goup'
"3stone" a écrit dans le message de news: uHQrD% > Salut, > > Goupil wrote: >> Ma mémoire me joue des tours, je ne me rappelle plus comment repérer >> le dernier enregistrement d'un formulaire en VBA. > > > A condition que la source soit triée (sinon c'est alléatoire...) > > Si l'identifiant est un NuméroAuto (ID) > > Dim lgDernier As Long > > With Me.RecordsetClone > if Not .EOF then > .moveLast > lgDernier = ID > end if > End With > > -- > A+ > Pierre (3stone) Access MVP > Perso: http://www.3stone.be/ > MPFA: http://www.mpfa.info/ (infos générales) >
Gilbert
Précision : c'est à mettre dans l'évènement Form_Current de ton formulaire.
Tu peux aussi l'écrire de manière plus concise :
With Me.RecordsetClone .Bookmark = Me.Bookmark Me.CmdPrec.Enabled = Not (.AbsolutePosition = 0) Me.CmdSuiv.Enabled = Not (.AbsolutePosition + 1 = .RecordCount ) End With
-- Cordialement,
Gilbert
"Gilbert" a écrit dans le message de news:
Bonjour,
Voici ce que j'utilise pour activer ou désactiver des boutons de
déplacement
personnalisés
With Me.RecordsetClone .Bookmark = Me.Bookmark If .AbsolutePosition = 0 Then Me.CmdPrec.Enabled = False Else Me.CmdPrec.Enabled = True End If If .AbsolutePosition + 1 = .RecordCount Then Me.CmdSuiv.Enabled = False Else Me.CmdSuiv.Enabled = True End If End With
-- Cordialement,
Gilbert
"Goupil" a écrit dans le message de news:4ae6167f$0$918$ > Bonsoir Pierre, et tout le monde... > > Je viens de de vérifier la routine que tu m'as gentiment envoyée, mais elle > ne correspond pas exactement à ce que je recherche. > En fait, je voudrais simplement désactiver mon bouton "suivant" quand le > formulaire est au dernier enregistrement. > Je crois me souvenir (en access 97) qu'il y a une solution plus simple pour > repérer qu'on est bien sur le dernier enregistrement de la
requête/table,
> source de ce formulaire. > > Je ne me rappelle plus <:-( > > Goup' > > "3stone" a écrit dans le message de news: > uHQrD% > > Salut, > > > > Goupil wrote: > >> Ma mémoire me joue des tours, je ne me rappelle plus comment repérer > >> le dernier enregistrement d'un formulaire en VBA. > > > > > > A condition que la source soit triée (sinon c'est alléatoire...) > > > > Si l'identifiant est un NuméroAuto (ID) > > > > Dim lgDernier As Long > > > > With Me.RecordsetClone > > if Not .EOF then > > .moveLast > > lgDernier = ID > > end if > > End With > > > > -- > > A+ > > Pierre (3stone) Access MVP > > Perso: http://www.3stone.be/ > > MPFA: http://www.mpfa.info/ (infos générales) > > > >
Précision : c'est à mettre dans l'évènement Form_Current de ton formulaire.
Tu peux aussi l'écrire de manière plus concise :
With Me.RecordsetClone
.Bookmark = Me.Bookmark
Me.CmdPrec.Enabled = Not (.AbsolutePosition = 0)
Me.CmdSuiv.Enabled = Not (.AbsolutePosition + 1 = .RecordCount )
End With
--
Cordialement,
Gilbert
"Gilbert" <news@news.fr> a écrit dans le message de
news:ebQi9YoVKHA.5584@TK2MSFTNGP05.phx.gbl...
Bonjour,
Voici ce que j'utilise pour activer ou désactiver des boutons de
déplacement
personnalisés
With Me.RecordsetClone
.Bookmark = Me.Bookmark
If .AbsolutePosition = 0 Then
Me.CmdPrec.Enabled = False
Else
Me.CmdPrec.Enabled = True
End If
If .AbsolutePosition + 1 = .RecordCount Then
Me.CmdSuiv.Enabled = False
Else
Me.CmdSuiv.Enabled = True
End If
End With
--
Cordialement,
Gilbert
"Goupil" <quentin@optojet.fr> a écrit dans le message de
news:4ae6167f$0$918$ba4acef3@news.orange.fr...
> Bonsoir Pierre, et tout le monde...
>
> Je viens de de vérifier la routine que tu m'as gentiment envoyée, mais
elle
> ne correspond pas exactement à ce que je recherche.
> En fait, je voudrais simplement désactiver mon bouton "suivant" quand le
> formulaire est au dernier enregistrement.
> Je crois me souvenir (en access 97) qu'il y a une solution plus simple
pour
> repérer qu'on est bien sur le dernier enregistrement de la
requête/table,
> source de ce formulaire.
>
> Je ne me rappelle plus <:-(
>
> Goup'
>
> "3stone" <home@sweet_home.be> a écrit dans le message de news:
> uHQrD%23JVKHA.220@TK2MSFTNGP02.phx.gbl...
> > Salut,
> >
> > Goupil wrote:
> >> Ma mémoire me joue des tours, je ne me rappelle plus comment repérer
> >> le dernier enregistrement d'un formulaire en VBA.
> >
> >
> > A condition que la source soit triée (sinon c'est alléatoire...)
> >
> > Si l'identifiant est un NuméroAuto (ID)
> >
> > Dim lgDernier As Long
> >
> > With Me.RecordsetClone
> > if Not .EOF then
> > .moveLast
> > lgDernier = ID
> > end if
> > End With
> >
> > --
> > A+
> > Pierre (3stone) Access MVP
> > Perso: http://www.3stone.be/
> > MPFA: http://www.mpfa.info/ (infos générales)
> >
>
>
Précision : c'est à mettre dans l'évènement Form_Current de ton formulaire.
Tu peux aussi l'écrire de manière plus concise :
With Me.RecordsetClone .Bookmark = Me.Bookmark Me.CmdPrec.Enabled = Not (.AbsolutePosition = 0) Me.CmdSuiv.Enabled = Not (.AbsolutePosition + 1 = .RecordCount ) End With
-- Cordialement,
Gilbert
"Gilbert" a écrit dans le message de news:
Bonjour,
Voici ce que j'utilise pour activer ou désactiver des boutons de
déplacement
personnalisés
With Me.RecordsetClone .Bookmark = Me.Bookmark If .AbsolutePosition = 0 Then Me.CmdPrec.Enabled = False Else Me.CmdPrec.Enabled = True End If If .AbsolutePosition + 1 = .RecordCount Then Me.CmdSuiv.Enabled = False Else Me.CmdSuiv.Enabled = True End If End With
-- Cordialement,
Gilbert
"Goupil" a écrit dans le message de news:4ae6167f$0$918$ > Bonsoir Pierre, et tout le monde... > > Je viens de de vérifier la routine que tu m'as gentiment envoyée, mais elle > ne correspond pas exactement à ce que je recherche. > En fait, je voudrais simplement désactiver mon bouton "suivant" quand le > formulaire est au dernier enregistrement. > Je crois me souvenir (en access 97) qu'il y a une solution plus simple pour > repérer qu'on est bien sur le dernier enregistrement de la
requête/table,
> source de ce formulaire. > > Je ne me rappelle plus <:-( > > Goup' > > "3stone" a écrit dans le message de news: > uHQrD% > > Salut, > > > > Goupil wrote: > >> Ma mémoire me joue des tours, je ne me rappelle plus comment repérer > >> le dernier enregistrement d'un formulaire en VBA. > > > > > > A condition que la source soit triée (sinon c'est alléatoire...) > > > > Si l'identifiant est un NuméroAuto (ID) > > > > Dim lgDernier As Long > > > > With Me.RecordsetClone > > if Not .EOF then > > .moveLast > > lgDernier = ID > > end if > > End With > > > > -- > > A+ > > Pierre (3stone) Access MVP > > Perso: http://www.3stone.be/ > > MPFA: http://www.mpfa.info/ (infos générales) > > > >
Goupil
Voilà qui complète la réponse de Pierre. Merci Gilbert !
Goup'
"Gilbert" a écrit dans le message de news:
Bonjour,
Voici ce que j'utilise pour activer ou désactiver des boutons de déplacement personnalisés
With Me.RecordsetClone .Bookmark = Me.Bookmark If .AbsolutePosition = 0 Then Me.CmdPrec.Enabled = False Else Me.CmdPrec.Enabled = True End If If .AbsolutePosition + 1 = .RecordCount Then Me.CmdSuiv.Enabled = False Else Me.CmdSuiv.Enabled = True End If End With
-- Cordialement,
Gilbert
"Goupil" a écrit dans le message de news:4ae6167f$0$918$
Bonsoir Pierre, et tout le monde...
Je viens de de vérifier la routine que tu m'as gentiment envoyée, mais
elle
ne correspond pas exactement à ce que je recherche. En fait, je voudrais simplement désactiver mon bouton "suivant" quand le formulaire est au dernier enregistrement. Je crois me souvenir (en access 97) qu'il y a une solution plus simple
pour
repérer qu'on est bien sur le dernier enregistrement de la requête/table, source de ce formulaire.
Je ne me rappelle plus <:-(
Goup'
"3stone" a écrit dans le message de news: uHQrD% > Salut, > > Goupil wrote: >> Ma mémoire me joue des tours, je ne me rappelle plus comment repérer >> le dernier enregistrement d'un formulaire en VBA. > > > A condition que la source soit triée (sinon c'est alléatoire...) > > Si l'identifiant est un NuméroAuto (ID) > > Dim lgDernier As Long > > With Me.RecordsetClone > if Not .EOF then > .moveLast > lgDernier = ID > end if > End With > > -- > A+ > Pierre (3stone) Access MVP > Perso: http://www.3stone.be/ > MPFA: http://www.mpfa.info/ (infos générales) >
Voilà qui complète la réponse de Pierre.
Merci Gilbert !
Goup'
"Gilbert" <news@news.fr> a écrit dans le message de news:
ebQi9YoVKHA.5584@TK2MSFTNGP05.phx.gbl...
Bonjour,
Voici ce que j'utilise pour activer ou désactiver des boutons de
déplacement
personnalisés
With Me.RecordsetClone
.Bookmark = Me.Bookmark
If .AbsolutePosition = 0 Then
Me.CmdPrec.Enabled = False
Else
Me.CmdPrec.Enabled = True
End If
If .AbsolutePosition + 1 = .RecordCount Then
Me.CmdSuiv.Enabled = False
Else
Me.CmdSuiv.Enabled = True
End If
End With
--
Cordialement,
Gilbert
"Goupil" <quentin@optojet.fr> a écrit dans le message de
news:4ae6167f$0$918$ba4acef3@news.orange.fr...
Bonsoir Pierre, et tout le monde...
Je viens de de vérifier la routine que tu m'as gentiment envoyée, mais
elle
ne correspond pas exactement à ce que je recherche.
En fait, je voudrais simplement désactiver mon bouton "suivant" quand le
formulaire est au dernier enregistrement.
Je crois me souvenir (en access 97) qu'il y a une solution plus simple
pour
repérer qu'on est bien sur le dernier enregistrement de la requête/table,
source de ce formulaire.
Je ne me rappelle plus <:-(
Goup'
"3stone" <home@sweet_home.be> a écrit dans le message de news:
uHQrD%23JVKHA.220@TK2MSFTNGP02.phx.gbl...
> Salut,
>
> Goupil wrote:
>> Ma mémoire me joue des tours, je ne me rappelle plus comment repérer
>> le dernier enregistrement d'un formulaire en VBA.
>
>
> A condition que la source soit triée (sinon c'est alléatoire...)
>
> Si l'identifiant est un NuméroAuto (ID)
>
> Dim lgDernier As Long
>
> With Me.RecordsetClone
> if Not .EOF then
> .moveLast
> lgDernier = ID
> end if
> End With
>
> --
> A+
> Pierre (3stone) Access MVP
> Perso: http://www.3stone.be/
> MPFA: http://www.mpfa.info/ (infos générales)
>
Voilà qui complète la réponse de Pierre. Merci Gilbert !
Goup'
"Gilbert" a écrit dans le message de news:
Bonjour,
Voici ce que j'utilise pour activer ou désactiver des boutons de déplacement personnalisés
With Me.RecordsetClone .Bookmark = Me.Bookmark If .AbsolutePosition = 0 Then Me.CmdPrec.Enabled = False Else Me.CmdPrec.Enabled = True End If If .AbsolutePosition + 1 = .RecordCount Then Me.CmdSuiv.Enabled = False Else Me.CmdSuiv.Enabled = True End If End With
-- Cordialement,
Gilbert
"Goupil" a écrit dans le message de news:4ae6167f$0$918$
Bonsoir Pierre, et tout le monde...
Je viens de de vérifier la routine que tu m'as gentiment envoyée, mais
elle
ne correspond pas exactement à ce que je recherche. En fait, je voudrais simplement désactiver mon bouton "suivant" quand le formulaire est au dernier enregistrement. Je crois me souvenir (en access 97) qu'il y a une solution plus simple
pour
repérer qu'on est bien sur le dernier enregistrement de la requête/table, source de ce formulaire.
Je ne me rappelle plus <:-(
Goup'
"3stone" a écrit dans le message de news: uHQrD% > Salut, > > Goupil wrote: >> Ma mémoire me joue des tours, je ne me rappelle plus comment repérer >> le dernier enregistrement d'un formulaire en VBA. > > > A condition que la source soit triée (sinon c'est alléatoire...) > > Si l'identifiant est un NuméroAuto (ID) > > Dim lgDernier As Long > > With Me.RecordsetClone > if Not .EOF then > .moveLast > lgDernier = ID > end if > End With > > -- > A+ > Pierre (3stone) Access MVP > Perso: http://www.3stone.be/ > MPFA: http://www.mpfa.info/ (infos générales) >