저장을위한 VBA 코드 수정 - MS Access

Question

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

언제든지 보고서를 PDF로 인쇄하려고 할 때마다 저장 여부를 묻는 메시지가 항상 표시됩니다. 나는 위의 코드를 작성하여 누군가가 인쇄하기를 원하는 경우를 제외하고는 항상 레코드를 저장할지 여부를 묻는 방식으로 작성하고자합니다.

누군가이 코드를 수정하는 데 도움을 줄 수 있습니까?

미리 감사드립니다.

Answer 1

"더티"인 바운드 폼을 인쇄하려고하면 --- 저장하지 않은 변경 내용을 포함합니다 --- 인쇄하기 전에 자동으로 저장 작업을 수행합니다.

당신이 직면하고있는 문제는 양식이 저장되지 않은 변경 사항을 저장 또는 폐기 여부를 사용자에게 묻는 Form_BeforeUpdate 절차를 포함하고, 액세스 각 저장 작업 직전에 그 Form_BeforeUpdate 절차를 처리합니다.

먼저 인쇄 한 후, 자체 저장 수행 할 수있는 양식을 인쇄 할 수 귀하의 VBA 코드 ...

If Me.Dirty = True Then 
    Me.Dirty = False ' saves changes to current record 
End If 
' insert your print statement here 

이 접근 가능한 문제는이 사용자의 확인없이 당신이 원하는 모든 시간을 절약 강제입니다 인쇄가 ... 받아 들여지지 않을 수도 있습니다.

사용자가 저장하지 않은 데이터가 포함 된 양식을 인쇄하도록 허용하는 경우 운이 좋지 않을 수도 있습니다 ... 이라고 묶어 양식으로 가정합니다.