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

şu şekilde çözüldü

tşkler