Création de messages conviviaux dans votre application de base de données Access peut être plus efficace que l'affichage du message d'erreur par défaut . Dans Visual Basic pour Applications (VBA) , utilisez le "On Error GoTo " déclaration à intercepter les erreurs et de diriger le flux de procédure à l'endroit des états de gestion des erreurs . Créer un message d'erreur descriptif en utilisant une boîte de message qui informe l' utilisateur sur l'erreur et peut-être sur la façon d'y remédier. Instructions
1

Cliquez sur " Base de données Outils ", puis " Visual Basic " pour ouvrir l'éditeur Visual Basic de Microsoft . Cliquez sur le menu "Insertion ", puis " Module " pour ajouter un nouveau module de code
2

créer un nouveau sous procédure : .

Private Sub createErrorMessage ()
< p > On Error GoTo Err_createErrorMessage :
3

créer une variable de chaîne que vous allez utiliser pour générer une erreur :

myData Dim As String

myData = " 1234567 "
4

Ajoutez le code suivant pour générer une erreur en ajoutant "-1" à la propriété length de la fonction «de gauche» :

myData = gauche (0 , -1)
5

Tapez le code suivant pour capturer l'erreur et créer un message d'erreur informant l'utilisateur sur l'erreur :

Exit_createErrorMessage : Photos

Exit Sub

Err_createErrorMessage :

MsgBox " erreur: . longueur doit être supérieure à zéro " , vbCritical

End Sub
6

Appuyez sur " F5" pour exécuter la procédure sous et afficher la réponse .