Public olan kodu modüle ekleyin.Çağırmak için ise private içindeki kod ile çağırınız.Gördüğüm kadarıyla form kapatma kodları hep aynı.
Dosya indirme için kota konduğu için dosyayı ekleyemedim.
Kod:
Private Sub PmfKptA1_Click()
Call KapatForm(Me, "FrmErisim")
End SubKod:
Public Sub KapatForm(ByVal AnaForm As Access.Form, ByVal AcilacakForm As String)
If AnaForm.Dirty Then
If MsgBox("Forma veri girdiniz ve Kaydet butonuna basmadan formu kapatmak istiyorsunuz. Deðiþiklikler kaydedilsin mi?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI") = vbYes Then
DoCmd.GoToRecord , , acNewRec
DoCmd.Close acForm, AnaForm.Name
DoCmd.OpenForm AcilacakForm
Else
AnaForm.Undo
DoCmd.Close
DoCmd.OpenForm "AcilacakForm"
End If
Else
DoCmd.Close acForm, AnaForm.Name
DoCmd.OpenForm AcilacakForm
End If
End Sub