VBA訪問消息框出現問題

Question

我遵循了一些關於如何在執行腳本之前彈出確認框的簡單評論，但可悲的是，如果按“是”，腳本將無法運行。

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等於Quantity_Input ，雖然它作品，未經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.

---

更多信息：

• MSDN： MsgBox功能 （Office / VBA）