Microsoft Access 2000 : fonction MsgBox

Répondre
marco44
Administrateur du site
Messages : 86
Enregistré le : jeu. 1 janv. 2009 13:00

Microsoft Access 2000 : fonction MsgBox

Message par marco44 » dim. 28 févr. 2016 13:15

La fonction MsgBox ignore la mise en forme !

marco44
Administrateur du site
Messages : 86
Enregistré le : jeu. 1 janv. 2009 13:00

Re: Microsoft Access 2000 : fonction MsgBox

Message par marco44 » dim. 28 févr. 2016 13:18

Création d’une macro, qui utilise l’action BoîteMsg
  1. Dans la fenêtre Base de données, cliquez sur Macros, sous Objets et puis cliquez sur Nouveau.
  2. Dans la fenêtre Macro, cliquez sur la flèche sous Action et puis cliquez sur Msgbox dans la liste Action.
  3. Appuyez sur F6 pour déplacer le pointeur vers la zone sous Arguments de l’action Message.
  4. Tapez le message suivant dans la zone Message :
    Bouter button !@This incorrect ne fait pas de work.@Try autre.
  5. Dans le menu Fichier, cliquez sur Enregistrer sous et puis cliquez sur OK pour enregistrer la macro avec le nom par défaut.
  6. Dans le menu Exécuter, cliquez sur Exécuter. Notez que la première ligne du message est gras.
Créer la fonction FormattedMsgBox
La fonction Eval force le service Visual Basic pour Applications d’expressions à évaluer séparément la fonction MsgBox dans Visual Basic Editor et par conséquent il est possible de bénéficier à la mise en forme panneau. L’exemple suivant utilise une fonction utilisateur nommée FormattedMsgBox à la place de la fonction MsgBox.
Pour créer la fonction FormattedMsgBox, procédez comme suit :
  1. Démarrez Microsoft Access.
  2. Ouvrez la base de données exemple Northwind.mdb
  3. Créez un module
  4. Ajoutez la procédure suivante au module :

    Code : Tout sélectionner

    Function FormattedMsgBox(Prompt As String, _
                            Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
                            Optional Title As String = "Microsoft Access", _
                            Optional HelpFile As Variant, _
                            Optional Context As Variant) As VbMsgBoxResult
       Dim strMsg As String
       If IsMissing(HelpFile) Or IsMissing(Context) Then
          strMsg = "MsgBox(" & Chr(34) & Prompt & Chr(34) & ", " & Buttons & _
                    ", " & Chr(34) & Title & Chr(34) & ")"
       Else
          strMsg = "MsgBox(" & Chr(34) & Prompt & Chr(34) & ", " & Buttons & _
                    ", " & Chr(34) & Title & Chr(34) & ", " & Chr(34) & _
                         HelpFile & Chr(34) & ", " & Context & ")"
       End If
       FormattedMsgBox = Eval(strMsg)
    End Function
  5. Enregistrez le module en utilisant le nom par défaut qui s’affiche dans la zone Nom module.
  6. Vous souhaitez utiliser la mise en forme spéciale par fournie quand the à signe, vous appelez la fonction FormattedMsgBox à la place de la fonction MsgBox intégrée.
Par exemple :

Code : Tout sélectionner

Sub TestMsgBox()
   Dim lngResult As Long
   lngResult = FormattedMsgBox("Extremely Important@This is an invalid operation.@Refer to online help.", _
       vbCritical + vbOkOnly, "Microsoft Access")
End Sub
Voir en ligne : Solution issue du support Microsoft

Répondre