Discussion :

[PAUL87]

Bonjour,
Lorsqu'on insère dans un formulaire des boutons de déplacement : enregistrement précédent et enregistrement suivant,
Comment faire pour modifier le contenu de la fenetre qui s'affiche lorsqu'on arrive en fin de liste ou que l'on est retourné au début.
Actuellement j'ai un message automatique:
" Impossible d'atteindre l'enregistrement spécifié...vous etes peut etre à la fin d'un jeu d'enregistrement"
C'est ce texte que je veux modifier
Merci

[jbaudin]

Voici un code qui te permet de modifier à volonté les messages d'erreur.
Il te suffit de rajouter dans le select case les numéros d'erreur rencontrés et une msgbox spécifique.

Ce code est celui du bouton suivant généré avec l'assistant.
Pour générer une msgbox, je te conseille d'utiliser MZ Tools.

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
22
Private Sub Commande2_Click()
On Error GoTo Err_Commande2_Click
 
 
    DoCmd.GoToRecord , , acNext
 
Exit_Commande2_Click:
    Exit Sub
 
Err_Commande2_Click:
    Select Case Err.Number
    Case 2105
        Call MsgBox("Vous avez atteint le dernier enregistrement de la table." _
                    & vbCrLf & "Impossible d'aller plus loin !" _
                    , vbInformation, "Dernier enregistrement atteint !")
 
    Case Else
        MsgBox Err.Number & vbCr & Err.Description
    End Select
    Resume Exit_Commande2_Click
 
End Sub

[PAUL87]

MERCI beaucoup
mais comment savoir le N° d'erreur rencontré et msgbox spécifique?

[Lou Pitchoun]

Fais un

Code :

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

debug.print Err.number

pour connaitre le numéro

[jbaudin]

Regarde mon code dans le select case !!!!!!!
C'est déjà implémenté !!!!

[Lou Pitchoun]

oui pour un type d'erreur.... s'il veut en connaitre un autre ça peut lui servir.
"Peche pour quelqu'un et il ne saura jamais pecher. Apprend à quelqu'un à pecher, et il saura pecher toute sa vie"

[jbaudin]

Tu l'as dit !!

[PAUL87]

Merci beaucoup ça fonctionne super...

j'ai bien compris le message:

"Peche pour quelqu'un et il ne saura jamais pecher. Apprend à quelqu'un à pecher, et il saura pecher toute sa vie"

Mais je pêche de - en - mal....(pour un autodidacte)
encore un détail,
lorsque je lance l'ouverture de mon form. lié à une requête, s'il n'y a pas de résultats trouvés, le form.s'ouvre quand même...mais vierge !!! sans les champs (vides) ...étrange!! comment faire ? pour avoir une mgsBox et pas de formulaire?
Merci

[jbaudin]

Dans les évènements du formulaire, tu as "Sur ouverture"
Exécute un code qui contient ta treqête avec un recourdcount.
Si recordount = 0 Alors msgbox et fermer le formulaire