If (IsNull(AdiSoyadi) Then
MsgBox ("AdSoyad bölümünü boş geçtiniz Doğumyerini girmelisiniz")
DOGUMYERI.SetFocus
ElseIf IsNull(DOGUMYERI) Then
MsgBox ("Doğumyerini boş geçtiniz AdSoyad bölümünü giriniz")
AdSoyad.SetFocus
DoCmd.CancelEvent
Exit Sub
