Discussion :

[LUCAS-28]

Salut,

J'aimerais savoir comment supprimer les messages d'erreur qu'Access met automatiquement pour certains boutons de commande comme les "enregistrements suivants" et comment les remplacer par ses propres messages ?

[vodiem]

bonsoir LUCAS-28
t'as choisi l'abonnement DVP pour combler tes soirées

Code :

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

On Error Resume Next

pour annuler la gestion d'erreur

à voir la rubrique 'On Error Goto' ou 'Error' de ton copain <F1> pour la gestion des événements Error.

[LUCAS-28]

en fait je me suis mal exprimé ; désactiver la gestion d'erreur je connaissais mais c dans le code ou j'aimerais remplacer la gestion d'erreur par une autre boite de dialogue avec un autre texte.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Premier_enregistrement_Click()
On Error GoTo Err_Premier_enregistrement_Click
 
 
    DoCmd.GoToRecord , , acFirst
 
Exit_Premier_enregistrement_Click:
    Exit Sub
 
Err_Premier_enregistrement_Click:
    MsgBox Err.Description
    Resume Exit_Premier_enregistrement_Click
 
End Sub

[vodiem]

?

ben: récupére la valeur Err.Description
et fait un test sur cette valeur

Code :

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

IF Err.Description=valeur THEN Msgbox "Mon message"

à la place de:

Code :

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

    MsgBox Err.Description

[LUCAS-28]

Cela ne marche pas. Qu'est-ce qui cloche ?

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
Private Sub Enregistrement_précédent_Click()
On Error GoTo Err_Enregistrement_précédent_Click
 
 
    DoCmd.GoToRecord , , acPrevious
 
Exit_Enregistrement_précédent_Click:
    Exit Sub
 
Err_Enregistrement_précédent_Click:
    If Err.Description = valeur Then
    MsgBox "Aucun enregistrement ne précède celui en cours", "Mémo"
    Resume Exit_Enregistrement_précédent_Click
    End If
 
End Sub

[vodiem]

oula oui,

bon j'ai pas fait gaffe prends plutot Err.Number.

il faut que tu fasse avant:

Code :

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

msgbox Err.Number

valeur = Err.Number que tu as vus dans le msgbox.
par ex:120

ensuite tu fais:

Code :

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

1
2
3
4
Err_Enregistrement_précédent_Click:
    If Err.Number = 120 Then MsgBox "Aucun enregistrement ne précède celui en cours", "Mémo"
    Resume Exit_Enregistrement_précédent_Click
    End If

[LUCAS-28]

j'ai essayer le code que tu m'as donné mais sans succès ...

[francishop]

Bonsoir,

On peut s'inspirer de : http://access.developpez.com/sources...utonNavigation

Cordialement.