AccessTr.neT
Arama Kodu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Arama Kodu (/konu-arama-kodu.html)

Arama Kodu - Fikri güler - 07/01/2018

Arkadaşlar selam

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]

Cvp: Arama Kodu - C*e*l*o*y*c*e - 07/01/2018

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

Cvp: Arama Kodu - ozanakkaya - 07/01/2018

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 HatalarURL'ye Git

Cvp: Arama Kodu - Fikri güler - 09/04/2018 

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