Access Dersleri 17.Bölümündeki Cari Listesinde Kayıt Arama İşlemini Çoklu Kriter ile Yapmak
Web de yukardaki başlıkla anlatılan konuyu uygularken arama türündeki kontrol düğmelerinden cari grubu arama ve şehir arama ( Şehir ismini listeye bir türlü getiremedim şehir ID'si geliyor, ) seçtiğimde arama yapılamıyor. Diğer unvan ve kişiler arama bölümü çalışıyor. Hatayı bir türlü tespit edemedim.
Cari grubları formundaki Cari No ve Cari Grupları etiketlerinin isimleri resimde görüldüğü gibi şeffafa yakın neden olduğu konusunda bir fikrim yok ( Formun aktif pasif özelliği orayı etkilemiş belki de ) , ne yaptımsa düzeltemedim.
Bu iki hatayı nasıl düzeltebilirim. Teşekkürler.
Merhaba,
Sanırım ekteki gibi bir çözüm arıyorsunuz.
(18/11/2018, 21:59)Oğuz Türkyılmaz yazdı: Web de yukardaki başlıkla anlatılan konuyu uygularken arama türündeki kontrol düğmelerinden cari grubu arama ve şehir arama ( Şehir ismini listeye bir türlü getiremedim şehir ID'si geliyor, ) seçtiğimde arama yapılamıyor. Diğer unvan ve kişiler arama bölümü çalışıyor. Hatayı bir türlü tespit edemedim.
- T_001_Cari isimli tablodaki Sehir alanının veri türünü sayı olarak değiştir.
- F_003_CariListesi isimli formdaki "lstCariListesi" isimli liste kutusunun satır kaynağındaki sorguya T_100_IL tablosunu ekle, T_100_IL tablosundaki İL KODU alanı ile T_001_Cari tablosundaki Sehir alanını ilişkilendir.
- Sorgudaki Sehir alanının tablosunu T_100_IL olarak değiştirip alan adını da İL ADI olarak seç. Sorgunun
Sql kaynağı aşağıdaki gibi olacak.
SELECT T_001_Cari.CariID, T_001_Cari.CariKodu, T_001_Cari.UNVAN, T_001_Cari.YetkiliKisi, T_001_Cari.GSM_1, T_100_IL.[İL ADI], T_001_Cari.CariGrubu, T_001_Cari.Durum
FROM T_100_IL INNER JOIN T_001_Cari ON T_100_IL.[İL KODU] = T_001_Cari.Sehir
WHERE (((T_001_Cari.UNVAN) Like "*" & [Forms]![F_003_CariListesi]![txtCariUnvanGecici] & "*") AND ((T_001_Cari.YetkiliKisi) Like "*" & [Forms]![F_003_CariListesi]![txtYetkiliKisiGecici] & "*") AND ((T_100_IL.[İL ADI]) Like "*" & [Forms]![F_003_CariListesi]![txtSehirGecici] & "*") AND ((T_001_Cari.CariGrubu) Like "*" & [Forms]![F_003_CariListesi]![txtCariGrubuGecici] & "*"))
ORDER BY T_001_Cari.UNVAN;
- txtCari_Ara metin kutusunun değiştiğinde olayındaki kodu
Dim Aranan As String
If cerArama = 1 Then
Aranan = Forms!F_003_CariListesi!txtCariAra.Text
Forms!F_003_CariListesi!txtCariUnvanGecici = Aranan
lstCariListesi.Requery
ElseIf cerArama = 2 Then
Aranan = Forms!F_003_CariListesi!txtCariAra.Text
Forms!F_003_CariListesi!txtYetkiliKisiGecici = Aranan
lstCariListesi.Requery
ElseIf cerArama = 3 Then
Aranan = Forms!F_003_CariListesi!txtCariAra.Text
Forms!F_003_CariListesi!txtCariGrubuGecici = Aranan
lstCariListesi.Requery
ElseIf cerArama = 4 Then
Aranan = Forms!F_003_CariListesi!txtCariAra.Text
Forms!F_003_CariListesi!txtSehirGecici = Aranan
lstCariListesi.Requery
End If
kodu ile değiştir.
(19/11/2018, 09:25)ozanakkaya yazdı: (18/11/2018, 21:59)Oğuz Türkyılmaz yazdı: Web de yukardaki başlıkla anlatılan konuyu uygularken arama türündeki kontrol düğmelerinden cari grubu arama ve şehir arama ( Şehir ismini listeye bir türlü getiremedim şehir ID'si geliyor, ) seçtiğimde arama yapılamıyor. Diğer unvan ve kişiler arama bölümü çalışıyor. Hatayı bir türlü tespit edemedim.
- T_001_Cari isimli tablodaki Sehir alanının veri türünü sayı olarak değiştir.
- F_003_CariListesi isimli formdaki "lstCariListesi" isimli liste kutusunun satır kaynağındaki sorguya T_100_IL tablosunu ekle, T_100_IL tablosundaki İL KODU alanı ile T_001_Cari tablosundaki Sehir alanını ilişkilendir.
- Sorgudaki Sehir alanının tablosunu T_100_IL olarak değiştirip alan adını da İL ADI olarak seç. Sorgunun Sql kaynağı aşağıdaki gibi olacak.
SELECT T_001_Cari.CariID, T_001_Cari.CariKodu, T_001_Cari.UNVAN, T_001_Cari.YetkiliKisi, T_001_Cari.GSM_1, T_100_IL.[İL ADI], T_001_Cari.CariGrubu, T_001_Cari.Durum
FROM T_100_IL INNER JOIN T_001_Cari ON T_100_IL.[İL KODU] = T_001_Cari.Sehir
WHERE (((T_001_Cari.UNVAN) Like "*" & [Forms]![F_003_CariListesi]![txtCariUnvanGecici] & "*") AND ((T_001_Cari.YetkiliKisi) Like "*" & [Forms]![F_003_CariListesi]![txtYetkiliKisiGecici] & "*") AND ((T_100_IL.[İL ADI]) Like "*" & [Forms]![F_003_CariListesi]![txtSehirGecici] & "*") AND ((T_001_Cari.CariGrubu) Like "*" & [Forms]![F_003_CariListesi]![txtCariGrubuGecici] & "*"))
ORDER BY T_001_Cari.UNVAN;
- txtCari_Ara metin kutusunun değiştiğinde olayındaki kodu
Dim Aranan As String
If cerArama = 1 Then
Aranan = Forms!F_003_CariListesi!txtCariAra.Text
Forms!F_003_CariListesi!txtCariUnvanGecici = Aranan
lstCariListesi.Requery
ElseIf cerArama = 2 Then
Aranan = Forms!F_003_CariListesi!txtCariAra.Text
Forms!F_003_CariListesi!txtYetkiliKisiGecici = Aranan
lstCariListesi.Requery
ElseIf cerArama = 3 Then
Aranan = Forms!F_003_CariListesi!txtCariAra.Text
Forms!F_003_CariListesi!txtCariGrubuGecici = Aranan
lstCariListesi.Requery
ElseIf cerArama = 4 Then
Aranan = Forms!F_003_CariListesi!txtCariAra.Text
Forms!F_003_CariListesi!txtSehirGecici = Aranan
lstCariListesi.Requery
End If
kodu ile değiştir.
Ozan bey teşekkür ederim şu an çalıştı. Dersdeki uygulamanın aynısını yaptım tablodaki şehir alanının özelliğinin girildiği bölümü tekrar izleyeceğim orayı sayı olarak belirmiş bende gözden kaçırmış olabilirim ama bu durum cari grubu düğmesinde arama fonksiyonunun dersteki uygulamada çalışıp, bende çalışmamasını açıklamıyor. Kodları defalarca karşılaştırdım kopyala yapıştır zaten yapmıyorum ama dersteki ile benim uygulamam arasında bir hata yada fark bulamadım. Cari gruplar formundaki etiket isimleri sanırım Formun aktif pasif olma durumuna göre butonlar gibi pasif durumda açılıyorlar. ( Diğer formlarımda da aktif Pasif özelliği var ama bu sorun ordaki etiketlerde oluşmadı) Bunu engellemenin bir yolu varmıdır. Desteğiniz için tekrar teşekkür ederim. Herşey gönlünüzce olsun.
(19/11/2018, 08:12)notrino yazdı: Merhaba,
Sanırım ekteki gibi bir çözüm arıyorsunuz.
Aslında çözüm aramıyorum neyi yanlış yaptığımı anlamaya çalışıyorum. Ozan bey sağolsun çözüm sundu ama Video derstekinden farklı yada yanlış ne yaptığımı anlamaya çalışıyorum. İlginiz için teşekkür ederim.
Merhaba, Konu başlığınızda belirttiğiniz sorun ile ilgili olarak;
"txtCari_Ara" isimli metin kutusunun güncelleştirme sonrasında olayına yazdığınız kod hatalı idi, cerArama isimli seçenek grubunda,
1=Ünvan, 2= yetkili kişi, 3=grubu, 4=Şehir.
sizin kodlarda cari grubu için 4 belirlenmişti. Önceki mesajda belirttiğim kodlama doğru halidir. Formun aktif pasif mevzusu ile ilgili yeni konu açınız. Bu sorunuzun konu başlığı ile ilgisi yok.