vbYesNo + vbQuestion用法

牛大师　发表于：2017-02-17 20:54:45 　

Option Compare Database
Private Sub Command0_Click()
Dim Cancel As Long
If MsgBox("你真的想打开窗体2吗？", vbYesNo + vbQuestion, "请确认…") = vbNo Then Cancel = True
DoCmd.OpenForm "窗体2"

End Sub

高手们给看看，学来的代码，不是太懂代码，求解为什么出来对话框无论点是否打开窗体2都会打开，为什么呢？

Top

MDZZ 发表于：2017-02-18 08:29:47

If MsgBox("你真的想打开窗体2吗？", vbYesNo + vbQuestion, "请确认…") = vbNo Then Cancel = True

DoCmd.OpenForm "窗体2"

IF XXX THEN A （这种是不要end if,所以下面的 B是一直会运行的 ,当if满足才运行A 写法问题）

正确写法

If MsgBox("你真的想打开窗体2吗？", vbYesNo + vbQuestion, "请确认…") = vbyes Then
DoCmd.OpenForm "窗体2"

End if

Top

牛大师发表于：2017-02-18 12:08:03

非常感谢 MDZZ大神，谢谢！

Top

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

Access交流中心

vbYesNo + vbQuestion用法