消息框操作选择

半夜罗　发表于：2017-05-24 20:40:25 　

请问各位大神，假如一个消息框有三个选择：

If MsgBox("打印附注吗？", vbYesNoCancel + vbCritical, "提示!!!!") = vbYes Then

=vbyes "是" 此时做第一个动作

=vbno “否” 此时做第二个动作

"取消" 此时什么也不做

end if

这段代码应怎样写？是不是应该写成：

If MsgBox("打印附注吗？", vbYesNoCancel + vbCritical, "提示!!!!") = vbYes Then 程序1

If MsgBox("打印附注吗？", vbYesNoCancel + vbCritical, "提示!!!!") =vbno Then 程序2

If MsgBox("打印附注吗？", vbYesNoCancel + vbCritical, "提示!!!!") =vbno Then Exit Sub

杨雪发表于：2017-05-25 09:48:15

后面的=xxx 这个只是默认焦点在那个按钮上，如果你直接按enter 键，就会执行这个按钮。所以这种提示框应该是有三个按钮，默认放在否，或者取消上吧。

【菜鸟入门】消息盒MsgBox函数详解示例[Access软件网]
http://www.accessoft.com/article-show.asp?id=4991

MDZZ 发表于：2017-05-25 14:14:05

Dim i As Integer
i = MsgBox("测试", vbYesNoCancel)
Select Case i
Case 6
MsgBox "YES"
Case 7
MsgBox "NO"
Case 2
MsgBox "Cancel"
End Select

cspa 发表于：2017-05-25 18:20:22

这样：

Dim R As Long

R=MsgBox("打印附注吗？", vbYesNoCancel + vbCritical, "提示!!!!")

Select Case R
  Case 6
  此时做第一个动作
  Case 7
  此时做第二个动作
  Case 2
  此时什么也不做
  End Select

半夜罗发表于：2017-05-26 09:01:22

谢谢MDZZ与cspa　老师，虽然没有将cspa　老师的答案为最佳答案，其实这两个和答案是一样的，谢谢！cspa　老师的还要直观些。

总记录：4篇页次：1/1 9 1 :

Access交流中心