Private Sub btnKaydet_Click()
Dim kayitsayisi As Integer
 
If IsNull(alan1) Or alan1= "" Then
    MsgBox "Lütfen alanını boş bırakmayınız", vbCritical, "Uyarý"
    Exit Sub
  End If
  
  
  If IsNull(alan2 Or alan2= "" Then
    MsgBox "Lütfen alan2 alanını boş bırakmayınız", vbCritical, "Uyarý"
    Exit Sub
  End If
  
 
 
 
If Me.Dirty Then
 
 
 
kayitsayisi = DCount("*", "tbl_Tablo", "Kimlik='" & Kimlik & "'")
 
If kayitsayisi > 0 Then
MsgBox " Bu Numara daha önce kayıt edilmiş. işlem iptal edilecek...", vbCritical, "Uyarý"
DoCmd.CancelEvent
Else
  DoCmd.RunCommand acCmdSaveRecord
  MsgBox "Bilgiler kayıt Edildi", vbInformation
  End If
  
  Else
  
  MsgBox " Bilgilerde bir değişiklik yapılmadığından Kaydetme işlemi yapılmadı.", vbInformation, "Bilgi"
  End If
    
End Sub