bahsettiğiniz kodları public ....sub ile yazıp bahsettiğiniz çıkış veya kapat düğmelerinin kapat olay yordamından öncesine ekleyebilirsiniz yada,
'----------------------------kodlar buradan başlasın------------------------------------
On Error GoTo Err_Etiket1__Click
Dim msg As String
msg = MsgBox("Programdan Çıkmadan Önce," & Chr(10) & "
Yedek Almak İstiyormusunuz?", vbQuestion + vbYesNoCancel, "Mutlaka
Yedek Almalısınız")
If (msg = vbYes) Then
DoCmd.OpenForm ("frmCopy"), acNormal
ElseIf (msg = vbNo) Then
DoCmd.Quit
If (msg = vbCancel) Then
Cancel = True
End If
End If
Exit_Etiket1__Click:
Exit Sub
Err_Etiket1__Click:
MsgBox Err.Description
Resume Exit_Etiket1__Click
'-----------------------------------kodlar burada bitecek---------------------------------------------
şeklinde yapabilirsiniz..
kolay gelsin..