-3

如果值更大，我想提示错误。通过 msgbox 显示错误，但我面临的问题是单击“OKAY”后执行进一步任务，我的编码如下所示，请帮助我，因为 docmd 不起作用，我想在单击“OKAY”后关闭表单

编码：-

Function Tokenincrease()

  Dim Test As String
  Test = MsgBox(" One Day One Token", vbExclamation + vbokayonly, "Sorry")
  If Test = vbOK Then
    DoCmd.OpenForm "Token Isuance Form LH"
  Else
      DoCmd.Close
  End If
End Function
4

3 回答 3

1

当用户单击“OKAY”时，您的代码不会关闭表单，因为如果您声明：

If Test = vbOK

这意味着 if 将执行 OpenForm。要关闭表单，我假设您的意思是要执行 DoCmd.Close，然后您想要

If Test <> vbOK

查看这个问题的标签，这与 VB.NET 有关。如果这是正确的，那么有更好的方法来打开/关闭表单，并且还有一个专用的 MessageBox 类。建议您使用这些代码，因为您的代码看起来很像 VBScript/Office/Access 代码。

编辑 1：不要使用 vbOK，而是使用 OK 或 1. http://msdn.microsoft.com/en-us/library/139z2azd(v=VS.80).aspx。

于 2013-06-08T05:16:17.110 回答
0

改成这样。。

Function Tokenincrease()

  Dim Test As MsgBoxResult
  Test = MsgBox(" One Day One Token", MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, "Sorry")
  If Test = MsgBoxResult.OK Then

       DoCmd.Close         

  End If
End Function
于 2013-06-08T08:13:17.597 回答
0

我认为您正在尝试获得vbOKOnly并且您将其作为 vbokayonly

它应该看起来像这样：

 Function Tokenincrease()

  If MsgBox("One Day One Token", vbExclamation & vbokonly, "Sorry") = vbOK Then
    DoCmd.OpenForm "Token Isuance Form LH"
  Else
      DoCmd.Close
  End If
End Function
于 2013-06-08T05:11:27.967 回答