Skip to main content

AccessTr.neT


Arama Kodu

Fikri güler
Fikri güler
3
1231

Arama Kodu

Çözüldü #1
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]
Cevapla
#2
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
Cevapla
#3
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
Cevapla
#4
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da