Код 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