Dans une base de données de bureau Access, la fonction MsgBox affiche un message dans une boîte de dialogue, attend que l’utilisateur clique sur un bouton et retourne un entier indiquant le bouton sur lequel l’utilisateur a cliqué.
Syntaxe
MsgBox(prompt [, buttons ] [, title ] [, helpfile ] [, context ] )
La syntaxe de la fonction MsgBox contient les arguments suivants :
| Argument | Description |
|---|---|
| Invite | Obligatoire. Expression de chaîne affichée en tant que message dans la boîte de dialogue. La longueur maximale de l’invite est d’environ 1 024 caractères, selon la largeur des caractères utilisés. Si l’invite se compose de plusieurs lignes, vous pouvez séparer les lignes à l’aide d’un caractère de retour chariot (Chr(13)), d’un caractère de saut de ligne (Chr(10)) ou d’une combinaison de caractères retour chariot - saut de ligne (Chr(13) & Chr(10)) entre chaque ligne. |
| boutons | Facultatif. expression numérique qui est la somme des valeurs spécifiant le nombre et le type de boutons à afficher, le style d’icône à utiliser, l’identité du bouton par défaut et la modalité de la boîte de message. En cas d’omission, la valeur par défaut des boutons est 0. |
| Titre | Facultatif. Expression de chaîne affichée dans la barre de titre de la boîte de dialogue. Si vous omettez titre, le nom de l’application est placé dans la barre de titre. |
| helpfile | Facultatif. Expression de chaîne qui identifie le fichier d’aide à utiliser pour fournir une aide contextuelle pour la boîte de dialogue. Si helpfile est fourni, le contexte doit également être fourni. |
| Contexte | Facultatif. Expression numérique qui est le numéro de contexte d’aide affecté à la rubrique d’aide appropriée par l’auteur de l’aide. Si le contexte est fourni, helpfile doit également être fourni. |
Paramètres
Les paramètres de l’argument boutonssont les suivants :
| Constante | Valeur | Description |
|---|---|---|
| vbOKOnly | 0 | Afficher le bouton OK uniquement. |
| vbOKCancel | 1 | Affichez les boutons OK et Annuler . |
| vbAbortRetryIgnore | 2 | Afficher les boutons Abandonner, Réessayer et Ignorer . |
| vbYesNoCancel | 3 | Afficher les boutons Oui, Non et Annuler . |
| vbYesNo | 4 | Afficher les boutons Oui et Non . |
| vbRetryCancel | 5 | Afficher les boutons Réessayer et Annuler . |
| vbCritical | 16 | Icône Afficher le message critique . |
| vbQuestion | 32 | Afficher l’icône Requête d’avertissement . |
| vbExclamation | 48 | Icône Afficher le message d’avertissement . |
| vbInformation | 64 | Icône Afficher le message d’informations . |
| vbDefaultButton1 | 0 | Le premier bouton est par défaut. |
| vbDefaultButton2 | 256 | Le deuxième bouton est par défaut. |
| vbDefaultButton3 | 512 | Le troisième bouton est par défaut. |
| vbDefaultButton4 | 768 | Le quatrième bouton est la valeur par défaut. |
| vbApplicationModal | 0 | Modal d’application ; l’utilisateur doit répondre à la boîte de message avant de continuer à travailler dans l’application actuelle. |
| vbSystemModal | 4 096 | Modal système ; toutes les applications sont suspendues jusqu’à ce que l’utilisateur réponde à la boîte de message. |
| vbMsgBoxHelpButton | 16384 | Bouton Ajouter de l’aide à la boîte de message |
| VbMsgBoxSetForeground | 65536 | Spécifie la fenêtre de boîte de message comme fenêtre de premier plan |
| vbMsgBoxRight | 524288 | Le texte est aligné à droite |
| vbMsgBoxRtlReading | 1048576 | Spécifie que le texte doit apparaître sous forme de lecture de droite à gauche sur les systèmes hébreux et arabes |
Le premier groupe de valeurs (0 à 5) décrit le nombre et le type de boutons affichés dans la boîte de dialogue ; le deuxième groupe (16, 32, 48, 64) décrit le style d’icône ; le troisième groupe (0, 256, 512) détermine quel bouton est le bouton par défaut ; et le quatrième groupe (0, 4096) détermine la modalité de la boîte de message. Lorsque vous ajoutez des nombres pour créer une valeur finale pour l’argument buttons , utilisez un seul nombre de chaque groupe.
Remarque
Ces constantes sont spécifiées par Visual Basic pour Applications. Par conséquent, les noms peuvent être utilisés n’importe où dans votre code à la place des valeurs réelles.
Valeurs de retour
| Constante | Valeur | Description |
|---|---|---|
| vbOK | 1 | OK |
| vbCancel | 2 | Annuler |
| vbAbort | 3 | Annuler |
| vbRetry | 4 | Réessayer |
| vbIgnore | 5 | Ignorer |
| vbYes | 6 | Oui |
| vbNo | 7 | Non |
Remarques
Lorsque le fichier d’aide et le contexte sont fournis, l’utilisateur peut appuyer sur F1 (Windows) ou SUR (macOS) pour afficher la rubrique d’aide correspondant au contexte. Certaines applications hôtes, par exemple Microsoft Excel, ajoutent automatiquement un bouton Aide à la boîte de dialogue.
Si la boîte de dialogue affiche un bouton Annuler , appuyer sur la touche Échap a le même effet que de cliquer sur Annuler. Si la boîte de dialogue contient un bouton Aide , l’aide contextuelle est fournie pour la boîte de dialogue. Toutefois, aucune valeur n’est retournée tant que l’utilisateur n’a pas cliqué sur l’un des autres boutons.
Remarque
Pour spécifier plus que le premier argument nommé, vous devez utiliser MsgBox dans une expression. Pour omettre certains arguments positionnels, vous devez inclure le délimiteur de virgule correspondant.
Exemple
Remarque
Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA).
Cet exemple utilise la fonction MsgBox pour afficher un message d’erreur critique dans une boîte de dialogue avec les boutons Oui et Non. Le bouton Non est spécifié comme réponse par défaut. La valeur retournée par la fonction MsgBox dépend du bouton choisi par l’utilisateur. Cet exemple suppose que DEMO.HLP est un fichier d’aide qui contient une rubrique avec un numéro de contexte d’aide égal à 1000.
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "MsgBox Demonstration"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If