编码错误

Question

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

编码： -

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

Answer 1

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

If Test = vbOK

这意味着如果将执行OpenForm。要关闭表单，我认为你的意思是你想要执行DoCmd.Close，那么你想要

If Test <> vbOK

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

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

Answer 2

我认为你正试图获得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

Answer 3

像这样改变..

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