Bonjour,
Je sais que cette question a déjà été posée, mais aucune solution ne
fonctionne (chez moi).
J'ai créé 2 boutons de déplacements dans un formulaire dont les
enregistrements sont filtrés.
Je voudrais que:
Quand on est sur le premier record, le bouton précédent soit invisible
Qu'il ne se positionne pas sur un nouvel enregistrement vierge quand on a
fait défilé tous les enregistrements filtrés et que le bouton suivant soit
désactivé.
J'ai essayé avec Me.RecordsetClone.AbsolutePosition , en affectant le
résultat à une variable pour tester, mais le résultat est toujours 0
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
Anor
Bonjour, je ne sais pas ce qui t'a été proposé, mais habituellement, je fais à peu près comme ça : (code reconstruit à la volée mais pas retesté)
Private Sub Form_Current() On Error GoTo Form_CurrentErr
If Me.CurrentRecord > Me.RecordsetClone.RecordCount Then Me.BtnSupprimer.Enabled = False Me.BtnSuivant.Enabled = False Else Me.BtnSupprimer.Enabled = True Me.BtnSuivant.Enabled = True End If
If Me.CurrentRecord = 1 Then Me.BtnPrecedent.Enabled = False Else Me.BtnPrecedent.Enabled = True End If
Form_CurrentErr: Exit Sub End Sub
ça marche ? -- à+ Arnaud -------------------------------------------------- Avant toute chose : http://users.skynet.be/mpfa/ Access Memorandum - http://memoaccess.free.fr ## Réponses souhaitées sur ce forum, merci. ## --------------------------------------------------
Philo : | Bonjour, | Je sais que cette question a déjà été posée, mais aucune solution ne | fonctionne (chez moi). | J'ai créé 2 boutons de déplacements dans un formulaire dont les | enregistrements sont filtrés. | Je voudrais que: | Quand on est sur le premier record, le bouton précédent soit invisible | Qu'il ne se positionne pas sur un nouvel enregistrement vierge quand | on a fait défilé tous les enregistrements filtrés et que le bouton | suivant soit désactivé. | J'ai essayé avec Me.RecordsetClone.AbsolutePosition , en affectant le | résultat à une variable pour tester, mais le résultat est toujours 0 | | Merci
Bonjour,
je ne sais pas ce qui t'a été proposé, mais habituellement, je fais à peu près comme ça :
(code reconstruit à la volée mais pas retesté)
Private Sub Form_Current()
On Error GoTo Form_CurrentErr
If Me.CurrentRecord > Me.RecordsetClone.RecordCount Then
Me.BtnSupprimer.Enabled = False
Me.BtnSuivant.Enabled = False
Else
Me.BtnSupprimer.Enabled = True
Me.BtnSuivant.Enabled = True
End If
If Me.CurrentRecord = 1 Then
Me.BtnPrecedent.Enabled = False
Else
Me.BtnPrecedent.Enabled = True
End If
Form_CurrentErr:
Exit Sub
End Sub
ça marche ?
--
à+
Arnaud
--------------------------------------------------
Avant toute chose : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum, merci. ##
--------------------------------------------------
Philo <phil.hennebert@honet.be> :
| Bonjour,
| Je sais que cette question a déjà été posée, mais aucune solution ne
| fonctionne (chez moi).
| J'ai créé 2 boutons de déplacements dans un formulaire dont les
| enregistrements sont filtrés.
| Je voudrais que:
| Quand on est sur le premier record, le bouton précédent soit invisible
| Qu'il ne se positionne pas sur un nouvel enregistrement vierge quand
| on a fait défilé tous les enregistrements filtrés et que le bouton
| suivant soit désactivé.
| J'ai essayé avec Me.RecordsetClone.AbsolutePosition , en affectant le
| résultat à une variable pour tester, mais le résultat est toujours 0
|
| Merci
Bonjour, je ne sais pas ce qui t'a été proposé, mais habituellement, je fais à peu près comme ça : (code reconstruit à la volée mais pas retesté)
Private Sub Form_Current() On Error GoTo Form_CurrentErr
If Me.CurrentRecord > Me.RecordsetClone.RecordCount Then Me.BtnSupprimer.Enabled = False Me.BtnSuivant.Enabled = False Else Me.BtnSupprimer.Enabled = True Me.BtnSuivant.Enabled = True End If
If Me.CurrentRecord = 1 Then Me.BtnPrecedent.Enabled = False Else Me.BtnPrecedent.Enabled = True End If
Form_CurrentErr: Exit Sub End Sub
ça marche ? -- à+ Arnaud -------------------------------------------------- Avant toute chose : http://users.skynet.be/mpfa/ Access Memorandum - http://memoaccess.free.fr ## Réponses souhaitées sur ce forum, merci. ## --------------------------------------------------
Philo : | Bonjour, | Je sais que cette question a déjà été posée, mais aucune solution ne | fonctionne (chez moi). | J'ai créé 2 boutons de déplacements dans un formulaire dont les | enregistrements sont filtrés. | Je voudrais que: | Quand on est sur le premier record, le bouton précédent soit invisible | Qu'il ne se positionne pas sur un nouvel enregistrement vierge quand | on a fait défilé tous les enregistrements filtrés et que le bouton | suivant soit désactivé. | J'ai essayé avec Me.RecordsetClone.AbsolutePosition , en affectant le | résultat à une variable pour tester, mais le résultat est toujours 0 | | Merci