UC知道请教VB中MsgBox的应用问题
来源：百度知道 编辑：UC知道 时间：2024/05/13 03:21:22
我想单击窗体中的按钮Command95后出现"是"和"否"的选项,然后单击"是",则运行一个查询,单击"否"则退出.
我写的代码如下,可运行后显示错误信息,请高手指点!!!
Private Sub Command95_Click()
Dim a
a = MsgBox("必须在工资审批任务完成后才能进行更新记录操作！请选择是否进行更新记录操作："vbYesNo,"确定更新")
If a = vbYes Then
OpenQuery.工资异动更新查询
Else
Exit Sub
End If
End Sub
我写的代码如下,可运行后显示错误信息,请高手指点!!!
Private Sub Command95_Click()
Dim a
a = MsgBox("必须在工资审批任务完成后才能进行更新记录操作！请选择是否进行更新记录操作："vbYesNo,"确定更新")
If a = vbYes Then
OpenQuery.工资异动更新查询
Else
Exit Sub
End If
End Sub
a = MsgBox("必须在工资审批任务完成后才能进行更新记录操作！请选择是否进行更新记录操作："vbYesNo,"确定更新")
少了一个逗号吧，，vbyesno前面加个逗号看看
看其他是没错的
是的，就差了一个逗号，写代码的时候应该有提示的。
如果过程里就只有这些代码，这样就够了：
Private Sub Command1_Click()
if MsgBox("必须在工资审批任务完成后才能进行更新记录操作！请选择是否进行更新记录操作：", vbYesNo, "确定更新")=vbyes then
OpenQuery.工资异动更新查询
End If
End Sub
用MsgBox会返回数值比如"是"是6 否是"7"
所以后面应是
If a = 6 then
OpenQuery
Else
Exit Sub
End If
End Sub
错误信息能贴上来么