Private Sub Form_Unload(Cancel As Integer)
End Sub
Private Sub Komut38_Click()
On Error GoTo Err_Komut38_Click
 
If Metin186 = 1 Then
DoCmd.Quit
Else
MsgBox ("KAYDETMEDEN CIKAMAZSINIZ")
 
Exit_Komut38_Click:
     Exit Sub
 
DoCmd.Close
 
Err_Komut38_Click:
    MsgBox Err.Description
    Resume Exit_Komut38_Click
 
 
End If
 
End Sub
[code=vba]

Private Sub Komut38_Click()
On Error GoTo Err_Komut38_Click
 
If Metin186 = 1 Then ' Metin186 =1 ise
DoCmd.Quit ' Uygulamayı kapat
Else ' Değilse
MsgBox ("KAYDETMEDEN CIKAMAZSINIZ") ' sadece mesaj ver
 
Exit_Komut38_Click:
     Exit Sub 
 
DoCmd.Close ' Yukarıda zaten Exit Sub ile çıkılmış, burada bulunmasının anlamı yok!!!
 
Err_Komut38_Click:
 
    MsgBox Err.Description
    Resume Exit_Komut38_Click
 
 
End If
 
End Sub

Private Sub Komut38_Click()
On Error GoTo Err_Komut38_Click
 
If Metin186 = 1 Then ' Metin186 = 1 ise
 
    DoCmd.RunCommand acCmdSaveRecord ' Kaydı Kaydet
MsgBox ("KAYDETME İŞLEMİ TAMAMLANDI ŞİMDİ KAPATILIYOR") 
 
DoCmd.Quit ' Uygulamadan Çık
 
Else ' Değilse
 
MsgBox ("KAYDETMEDEN ÇIKAMAZSINIZ") ' Uyarı ver
 
Exit_Komut38_Click: ' Hata çıkarsa 
     Exit Sub ' Click olayından çık
 
 
Err_Komut38_Click:
    MsgBox Err.Description ' Hata Açıklamasını mesaj olarak ver
    Resume Exit_Komut38_Click
 
 
End If
 
End Sub