AccessTr.neT

Arkadaşlar selam

resimde görünen hatayı çözemedim.
Göremediğim yada yazdığım kodda sıkıntı mı var
rica ederim..

isim ve adlarda boşluk kullanmayın
misal:
' Adı_Soyadı'   veya 'AdıSoyadı" şeklinde boşluksuz yazın ,
aynı şeyleri tablo ve sorgu adlarında da yapın

Merhaba. 
"Adı Soyadı" yerine "[Adı Soyadı]" kodunu kullanınız. 

Ayrıca tablo veya sorgu isminde ve tabloda alan adında boşluk karakteri yazmanız. 
Alan isimlerinde boşluk veya Türkçe karakter kullanılmamalıdır.

Yapılmaması Gereken Ölümcül Hatalar

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