ACCESS 技巧千尋：加強(qiáng)后的MSGBOX函數(shù)

加強(qiáng)版的MSGBOX函數(shù)

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


 
這段代碼最早出自Usenet，后被MVP Michael Kaplan整理轉(zhuǎn)載后發(fā)表在他的網(wǎng)站trigeminal.com，后被微軟選入KB，編號(hào)：KB242889

(算法函數(shù)_API_系統(tǒng)-相關(guān)文章技巧鏈接)：
ACCESS集錦