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 ?
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 ?
bonsoir LUCAS-28
t'as choisi l'abonnement DVP pour combler tes soirées
pour annuler la gestion d'erreur
Code : Sélectionner tout - Visualiser dans une fenêtre à part On Error Resume Next
à voir la rubrique 'On Error Goto' ou 'Error' de ton copain <F1> pour la gestion des événements Error.
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
?
ben: récupére la valeur Err.Description
et fait un test sur cette valeur
à la place de:
Code : Sélectionner tout - Visualiser dans une fenêtre à part IF Err.Description=valeur THEN Msgbox "Mon message"
Code : Sélectionner tout - Visualiser dans une fenêtre à part MsgBox Err.Description
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
oula oui,
bon j'ai pas fait gaffe prends plutot Err.Number.
il faut que tu fasse avant:
valeur = Err.Number que tu as vus dans le msgbox.
Code : Sélectionner tout - Visualiser dans une fenêtre à part msgbox Err.Number
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
j'ai essayer le code que tu m'as donné mais sans succès ...
Bonsoir,
On peut s'inspirer de : http://access.developpez.com/sources...utonNavigation
Cordialement.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager