(14/01/2020, 00:02)berduş yazdı: accesste bir adı 2 defa kullanamazsınız diye biliyorum -yanılıyor olabilirim- kaldı ki burada "tarih" hem 2 defa kullanılmış hem de alan kendi üstüne döndüğü için kısır döngü oluşuyor
Evet ama yolladığınız dosyada
strSQL = "Select id,FORMAT(
Tarih, 'dd.mm.yyyy') as
Tarih,Ad,Soyad,Yas,format(
Telefon,'(###) ### ## ##')as
Telefon From Tablo1 where Not IsNull(id)"
şeklinde.
Berduş hocam şu olayı çözmemiz gerek % olayını
uygun bir zamanda inceleyemeye çalışacağım
Ama bende hata vermeyip sizde vermesi apayrı bir sorun
Gerçi benim dosyam da sorunlu ama hata uyarısı vermedi
Combolara veriler gelmiyor % olan kodları aktif edince dosyadaki.
Yoksa hata vermiyor kodlar.
(14/01/2020, 01:45)berduş yazdı: % kalkınca combolar düzgün mu?
Evet
% bunlar kalkınca içerik arama olmuyor onun yerine eşit olanlar listeleniyor.
% istememin sebebi içerisinde olarak kullanmak.
dilerim işinize yarar istediğiniz gibi sorgusuz yapmaya çalıştım
Değişenler:
1 - Aramada kullanılan 3 açılır kutunun otomatik genişlet özelliklerini hayır yaptım
2 - Aramada kullanılan 3 açılır kutunun içeriğini bir biriyle ilişkilendirmek için CmbDldr adlı yeni bir fonksiyon tanımladım. bende düzgün çalıştı ama yine de garantisi yok)
Sub CmbDldr() '<--Eklendi
x = ActiveControl.SelStart
ActiveControl.Value = ActiveControl.Text
ActiveControl.SelStart = x
strSQLCmb = " where Not IsNull(id)"
If Len(Nz(cmboAdArama.Value, "")) > 0 Then strSQLCmb = strSQLCmb & " and Ad like '*" & cmboAdArama.Value & "*'"
If Len(Nz(cmboSoyadArama.Value, "")) > 0 Then strSQLCmb = strSQLCmb & " and Soyad like '*" & cmboSoyadArama.Value & "*'"
If Len(Nz(cmboYasArama.Value, "")) > 0 Then strSQLCmb = strSQLCmb & " and Yas like '*" & cmboYasArama.Value & "*'"
cmboAdArama.RowSource = "select distinct ad from Tablo1 " & strSQLCmb
cmboSoyadArama.RowSource = "select distinct Soyad from Tablo1 " & strSQLCmb
cmboYasArama.RowSource = "select distinct Yas from Tablo1 " & strSQLCmb
End Sub
3 - sorguyu sildim
4 - % yerine * kullandım
[
attachment=31175]
Akşama deneyebilirim.
Akşam olmasını sabırsızlanıyorum
Sqlde * like olarak kullanıldığını bilmiyordum kullanıncada hata veriyordu.
Koddaki
NZ fonksiyonmudur.ilk defa görüyorum.
nz() eğer içerik boşsa varsayılan olarak değer atamakta kullanılır
Nz(AlanAd,"Burda değer yok")--> eğer AlanAd alanı boş ise "Burda değer yok" yazar Yalnız alan özellikleriyle uymlu olması gereken durumlar olabilir
mesela alan eğer sayısalsa ve gösterileceği metin kutusu da sayısalsa siz metin aktarmaya çalışırsanız sorun çıkabilir