Skip to main content

AccessTr.neT


Kayıt Arama İşlemini 4 Ayrı Kriter İle Yapıyorum İki Kriter Çalışıyor 2 Si Çalışmıyor

Oğuz Türkyılmaz
Oğuz Türkyılmaz
6
2066

Kayıt Arama İşlemini 4 Ayrı Kriter İle Yapıyorum İki Kriter Çalışıyor 2 Si Çalışmıyor

Çözüldü #1
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.
[Resim: do.php?imgf=154256733891511.jpg]
[Resim: do.php?imgf=154256733907882.jpg]
.rar Access Dersleri_141.rar (Dosya Boyutu: 111,71 KB | İndirme Sayısı: 9)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
Merhaba,

Sanırım ekteki gibi bir çözüm arıyorsunuz.
.zip Access Dersleri_141_notrino.zip (Dosya Boyutu: 115,49 KB | İndirme Sayısı: 12)
Cevapla
#3
(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.
Cevapla
#4
(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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#5
(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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#6
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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task