resimde görünen hatayı çözemedim.
Göremediğim yada yazdığım kodda sıkıntı mı var
rica ederim..
![[Resim: do.php?imgf=151534896911991.jpg]](https://accesstr.net/resim/do.php?imgf=151534896911991.jpg)
Private Sub Komut2_Click()
If IsNull(Me.MüşteriAdıSoyadı) Or Me.MüşteriAdıSoyadı = "" Then
If MsgBox("BOŞ BIRAKTINIZ..." & vbCrLf & vbCrLf & "Lütfen Müşteri Adı Soyadı Giriniz", vbExclamation + vbYesNo, "Dikkat") = vbNo Then
DoCmd.Close
DoCmd.OpenForm "Ana Menü"
DoCmd.OpenForm "frmSplash"
Else
Me.MüşteriAdıSoyadı.SetFocus
End If
Else
If Me.MüşteriAdıSoyadı > "" Then
DoCmd.OpenForm "Müşteri Sorgu", , , "[Adı Soyadı]='" & Me.MüşteriAdıSoyadı & "'"
DoCmd.Close acForm, "Müşteri Ara Formu"
DoCmd.OpenForm "frmSplash"
Else
If IsNull(Forms![Müşteri Sorgu]!Adı_Soyadı) Then
MsgBox ("Aradığınız Kişi Bulunamadı")
DoCmd.OpenForm "Ana Menü"
DoCmd.Close acForm, "Müşteri Ara Formu"
DoCmd.OpenForm "frmSplash"
End If
End If
End If
End Sub