If IsNull(Me.CHBORC) And (Me.CHALACAK) Then MsgBox "Lütfen Cari Bilgilerini Yazınız", 48, "Kayıt İşlemi" Me.CHBORC.SetFocus Exit Sub
If Not IsNull(Me.txtAdAra.Value) Then If Not IsNull(Me.txtSoyadAra.Value) Then