Kod:
Public Function KptmYrdm()
If Form.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, Me.Name
DoCmd.OpenForm "FrmErisim"
Else
Me.Undo
DoCmd.Close
DoCmd.OpenForm "FrmErisim"
End If
Else
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "FrmErisim"
End If
End FunctionModule1.KptmYrdm
şeklinde çağırdığımda hata alıyorum: Variable not defined. Bu algoritmayı farklı formların kapatma butonlarında bu haliyle kullanamaz mıyız?
