MsgBox "Wrong button!@This button doesn't work.@Try another.", _
vbOKOnly + vbExclamation
In Access 2000 (mit dem neu integrierten VBE, dem Visual Basic Editor), ruft
die MsgBox-Funktion von VBA nicht mehr Access auf, um diese Arbeit zu erledigen,
daher gibt es keine formatierten Meldungsfenster mehr und auch nicht mehr die
Möglichkeit, Meldungen mit dem Office-Assistenten zu präsentieren. Aber es
gibt einen Workaround!
Wenn man die Eval-Funktion verwendet, dann geht der
Aufruf über den Expression Service, der eine Schnittstelle zu Access und Jet
bildet, um die MsgBox-Funktion auszuführen, und es wird die Access-Version
aufgerufen statt der VBA-Version. Daher können Sie folgendes in Ihrer
Access-Datenbank hinzufügen und statt der VBA MsgBox aufrufen, um die
Funktionalität von 97 wieder zu bekommen:
Function FormattedMsgBox( _
Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = vbNullString, _
Optional HelpFile As Variant, _
Optional Context As Variant) _
As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """)")
Else
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """, """ & _
HelpFile & """, " & Context & ")")
End If
End Function
Hier ein Vergleich. Ich überlasse Ihnen die Wahl, was Ihnen besser gefällt:
|
MsgBox "Wrong button!@This button doesn't work.@Try Another.",
vbOKOnly + vbExclamation, "My Application"
|
|
FormattedMsgBox "Wrong button!@This button doesn't work.@Try Another.",
vbOKOnly + vbExclamation, "My Application"
|
