Arkadaşlar selam
resimde görünen hatayı çözemedim.
Göremediğim yada yazdığım kodda sıkıntı mı var
rica ederim..
Arama Kodu
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
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
"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
Konuyu Okuyanlar: 1 Ziyaretçi