Discussion :

[Junior_jef]

Hello tout le monde,

La question du jour est:

Comment savoir lorsque qu'il n'y a plus d'enregistrement suivant ou précédent et ainsi griser un bouton qui sert de bouton de déplacement dans un formulaire?



Je m'explique:

J'ai un formulaire(en mode modification de donnée) basé sur une requete. J'ai désactivé les boutons de déplacement et les ai remplacé par 2 gros boutons "suivant" et "précédent".

Seulement, lorsque j'arrive au bout des enregistrements, et que je clique sur le bouton "suivant", un message d'erreur apparait: "impossible d'atteindre l'enregistrement suivant".

Comment faire pour donc griser ce bouton juste apres le dernier enregistrement afin de ne pas obtenir ce message d'erreur?

Merci beaucoup à vous tous!

[kikilevrai]

tu pe pi etre faire une gestion d'erreur avec un on erro goto sa pe etre une solution !

[Faw]

Salut, c'est dans la faq, section Formmulaires, sous-section Contrôles

[ActionAccess]

Bonjour,

Avec l'assistant, le code suivant est généré. Il suffit alors de mettre un ' au début de la ligne MsgBox Err.Description.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Commande0_Click()
On Error GoTo Err_Commande0_Click
    DoCmd.GoToRecord , , acNext
Exit_Commande0_Click:
    Exit Sub
Err_Commande0_Click:
    'MsgBox Err.Description <---ICI
    Resume Exit_Commande0_Click
End Sub

Cordialement,

[Junior_jef]

tu pe pi etre faire une gestion d'erreur avec un on erro goto sa pe etre une solution !

heu non parce que dans ce cas la:

L'utilisateur clique sur le bouton suivant alors qu'il n'y a pas d'enregistrement suivant.

[Junior_jef]

Salut, c'est dans la faq, section Formmulaires, sous-section Contrôles

Oups, merci , pourtant j'avais cherché


Voici donc le code de la FAQ si certains voudraient s en inspirer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Form_Current()
 
On Error GoTo GestErr
If Me.CurrentRecord > 1 Then
  Me!BoutonPrécédent.Enabled = True
Else
  Me!BoutonPrécédent.Enabled = False
End If
Exit Sub
 
GestErr:
 
Select Case Err
  Case 2164
    Me!AutreContôleActifDeTonChoix.SetFocus
    Resume
  Case Else
    MsgBox Err.Description, , "Erreur n°" & Err.Number
    Exit Sub
End Select
End Sub

Je teste ca de suite