VBA 사용자에게 선택을 묻는 코드

Question

MS Access에서 양식을 닫기 전에 레코드를 저장할지 묻는 VBA 코드가 있습니다. 이 같은 코드가 모습입니다 : "분석 & 지원 표에 기록을 복사"나는 또한 그들이하려면 사용자에게 요청 그 바로 위의 후 또 다른 메시지 상자를 추가 할

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 
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 

다음 첫 번째 메시지 상자의 선택에 관계없이 표시 할 메시지를 원하는 경우에 기록 후

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 

을 저장하려면 예 말할 경우에만 표시 할 경우