AccessTr.neT
Access Ado İle Bağlantılı Comboboxlar Yardım - 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ığı: Access Ado İle Bağlantılı Comboboxlar Yardım (/konu-access-ado-ile-baglantili-comboboxlar-yardim.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19


Cvp: Access Ado İle Bağlantılı Comboboxlar Yardım - feraz - 14/01/2020

(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ı Img-grin


Cvp: Access Ado İle Bağlantılı Comboboxlar Yardım - berduş - 14/01/2020

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


Cvp: Access Ado İle Bağlantılı Comboboxlar Yardım - feraz - 14/01/2020

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.


Cvp: Access Ado İle Bağlantılı Comboboxlar Yardım - berduş - 14/01/2020

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
.rar Ado Sql ComboboxAra_hy2.rar (Dosya Boyutu: 89,31 KB | İndirme Sayısı: 2)



Cvp: Access Ado İle Bağlantılı Comboboxlar Yardım - feraz - 14/01/2020

Akşama deneyebilirim.
Akşam olmasını sabırsızlanıyorum Img-grin

Sqlde * like olarak kullanıldığını bilmiyordum kullanıncada hata veriyordu.
Koddaki NZ fonksiyonmudur.ilk defa görüyorum.


Cvp: Access Ado İle Bağlantılı Comboboxlar Yardım - berduş - 14/01/2020

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