提示用戶作出選擇的VBA代碼

Question

我有一些VBA代碼詢問用戶他們是否希望在MS Access中關閉表單之前保存記錄。這是代碼的樣子：「記錄複製到分析&支持表」

Private Sub Form_BeforeUpdate(Cancel As Integer) 


    Dim ctl As Control 

    On Error GoTo Err_BeforeUpdate 


    If Me.Dirty Then 

     If MsgBox("Do you want to save?", vbYesNo + vbQuestion, _ 
       "Save Record") = vbNo Then 
     Me.Undo 
     End If 
    End If 

Exit_BeforeUpdate: 
    Exit Sub 

Err_BeforeUpdate: 
    MsgBox Err.Number & " " & Err.Description 
    Resume Exit_BeforeUpdate 
End Sub 

我也想補充另一個消息框右後上方，詢問用戶是否要。如果是的話，比我想讓代碼運行名爲「Insert_Query」的已保存查詢。如果不是，則轉到新記錄。

我在編寫VBA時很少有經驗，因此需要幫助。

任何人都可以幫忙嗎？

Answer 1

如果你想，只有當他們說是保存記錄，然後

If MsgBox("Do you want to save?", vbYesNo + vbQuestion, "Save Record") = vbNo Then 
    Me.Undo 
Else 
    If MsgBox("Copy the record to the Analysis & Support Table?", vbYesNo + vbQuestion, "Copy Record") = vbYes Then 
     CurrentDb.Execute("Insert_Query") 
    Else 
     'go to new record 
    end if 
End If 

如果你想消息，無論出現在第一個消息框的選擇，然後

If MsgBox("Do you want to save?", vbYesNo + vbQuestion, "Save Record") = vbNo Then 
    Me.Undo 
End If 
If MsgBox("Copy the record to the Analysis & Support Table?", vbYesNo + vbQuestion, "Copy Record") = vbYes Then 
    CurrentDb.Execute("Insert_Query") 
Else 
    'go to new record 
end if 

顯示的消息