Question

我在执行脚本之前对如何弹出确认框进行了一些简单的评论，但遗憾的是，如果我按是，则脚本不会运行。

var reqlib = require('app-root-path').require;
var myModule = reqlib('/lib/my-module.js');

我试图设置Private Sub Overwrite_Btn_Click() If MsgBox("Yes?", vbOKCancel) = ok Then Me.Product_Quantity = Me.Quantity_Input Else Exit Sub End If End Sub等于Product_Quantity，虽然它没有使用MsgBox命令，但它没有。

我做错了什么？

Answer 1

而不是If MsgBox("Yes?", vbOKCancel) = ok Then尝试：If MsgBox("Yes?", vbOKCancel) = vbOK Then

通常，与表单的交互将从一组几个常量中返回一个常量。这些目录在枚举中。在这种情况下，VbMsgBoxResult类中有几个常量，vbOK是值为1的常量，单击确定按钮返回。

实际上，If MsgBox("Yes?", vbOKCancel) = 1 Then也可以正常工作，但是很难记住单击Ok返回1然后只是声明一个名为vbOK的常量

在对象资源管理器（VBE上的F2）中，搜索VbMsgBoxResult将提供与消息框交互所产生的所有可能结果。

Answer 2

https://www.techonthenet.com/access/constants/msgbox_ret.php

1）将变量调暗为整数。

2）检查整数值是否等于6，或检查vbYess

3）?????

4）利润

借用链接

 Dim LResponse As Integer

 LResponse = MsgBox("Do you wish to continue?", vbYesNo, "Continue")

 If LResponse = vbYes Then
    {...statements...}
 Else
    {...statements...}
 End If

Answer 3

单行：

If MsgBox("Yes?", vbOKCancel) <> vbOk then Exit Sub

'continue code here.

VBA访问消息框困境

3 个答案:

更多信息：