Private Sub btn_kaydet_Click()
Dim ctrl As Control, strMsg As String, kayitsayisi As Integer
 
For Each ctrl In Me.Controls
     If ctrl.Tag = "Zorunlu" And IsNull(ctrl) Then strMsg = strMsg & "- " & ctrl.Name & vbCrLf
Next ctrl
 
If strMsg <> "" Then
    If vbOK = MsgBox("Aşağıdaki alanları boş bırakamazsınız!" & vbCrLf & vbCrLf & strMsg & vbCrLf & vbCrLf, vbOKOnly) Then
       Me.TCKimlikNo.SetFocus
       Exit Sub
   End If
End If
 
kayitsayisi = DCount("*", "tblGerçekKiþiler", "TCKimlikNo='" & Me.TCKimlikNo & "'")
If Me.Dirty = True Then
   If Not IsNull(Me.OpenArgs) Then
      If kayitsayisi > 0 Then
         MsgBox "Bu TC Kimlik NO ya sahip başka bir kayıt var. Lütfen TC Kimlik NO yu kontrol ediniz. Aynı ise lütfen önceki kaydı kullanınız!", vbCritical, "Dikkat"
          Me.Undo
      Else
           If MsgBox("Kaydetmek istiyor musunuz?", vbYesNo, "Dikkat") = vbYes Then
              MsgBox "Bilgiler başarıyla kaydedildi.", vbInformation + vbOKOnly, "Kayıt Başarılı"
           Else
              Me.Undo
           End If
       End If
ElseIf IsNull(Me.OpenArgs) Then
  If MsgBox("Değişiklikleri kaydetmek istiyor musunuz", vbQuestion + vbYesNo, "Dikkat") = vbYes Then
     MsgBox "Kayıt bilgileri başarıyla güncellendi.", vbInformation + vbOKOnly, "Güncelleme Başarılı"
  Else
      Me.Undo
  End If
End If
 
Else
    MsgBox "Kayıt edilecek veri girişi gerçekleştirmediniz.", vbOKOnly, "DİKKAT"
End If
End Sub