Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

ACCESS 技巧加强后的自定义MSGBOX函数

2015-4-24 16:48| 发布者: admin| 查看: 1323| 评论: 5|原作者: 大熊|来自: www.office-cn.net

摘要: Function FormattedMsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString, _ Optional HelpFile As Variant, _ Optional Context As ...

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

收藏分享邀请

上一篇：ACCESS关于属性过程的问题下一篇：在窗体中修改数据时，关闭窗体，数据已经修改，这样很容易产生错误数据的解决办法

发表评论

帐号		自动登录	找回密码
密码			注册

ACCESS 技巧加强后的自定义MSGBOX函数

最新评论

相关分类