+- 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ığı: birden fazla filitreleme (/konu-birden-fazla-filitreleme.html)
Cvp: birden fazla filitreleme - derelli18 - 30/01/2013
nsahin hocam örnek için teşekkür ederim benim istediğim işlem bunu tekbir arama metin kutusunda yaptırmak aralarına % işareti koyarak
Cvp: birden fazla filitreleme - derelli18 - 30/01/2013
lütfen yardımlarınızı bekliyorum
Cvp: birden fazla filitreleme - POWER - 30/01/2013
İncelermisiniz...
Lütfen olumlu veya olumsuz geri dönüş yapınız...
Cvp: birden fazla filitreleme - derelli18 - 30/01/2013
sn POWER hocam ellerinize sağlık istediğim gibi olmuş gördüğüm kadarı ile sadece iki kriter girilebiliyor bunu artırabilirmiyiz yani form üzerinde adı soyadı nufusa kayıtlı olduğu il ilçe vs gibi 20 ye yakın değişik bilgi var ben bunların hepsini liste kutusuna sorgu ile getirsem bunların hepsi için bu mnatığı kullanabilirmiyim. kod kısmını inceledim fakat bi fikir edinemedim. yardımcı olabilirmisiniz
Cvp: birden fazla filitreleme - POWER - 30/01/2013
2 adet % kullanıp 3 alanı filtre eder.Devamı için kodlara bakmanız ve form üzerinde açmış olduğum G1,G2,G3 alanlarını inceleyin.
Bunları görünür yapıp olayı izleyin daha sonra görünmez yaparsınız.
Sonuç alamazsanız bizler burdayız. Accesstr.net
Cvp: birden fazla filitreleme - derelli18 - 30/01/2013
hocam kusura bakmayın ama sizin yaptığınız mantıkla G4 adında bir metin kutusu ekledim devamını getirmek adına ama cıkamadım ısın ıcınden
Dim ARA As String
ARA = Me.arama.Text
''''''''''''''''''''''''''''''''''
A1 = InStr(ARA, "%")
If A1 = 0 Then Me.G1 = ARA: GoTo 120
Me.G1 = Left(ARA, A1 - 1)
If Len(G1) + 1 = Len(ARA) Then GoTo 120
ARA = Right(ARA, Len(ARA) - Len(G1) - 1)
''''''''''''''''''''''''''''''''
A1 = InStr(ARA, "%")
If A1 = 0 Then Me.G2 = ARA: GoTo 120
Me.G2 = Left(ARA, A1 - 1)
If Len(G1) + 1 = Len(ARA) Then GoTo 120
'''''''''''''''''
A1 = InStr(ARA, "%")
If A1 = 0 Then Me.G3 = ARA: GoTo 120
Me.G3 = Left(ARA, A1 - 1)
If Len(G1) + 1 = Len(ARA) Then GoTo 120
''''''''''''''''''''''''''''''''
A1 = InStr(ARA, "%")
If A1 = 0 Then Me.G4 = ARA: GoTo 120
Me.G3 = Left(ARA, A1 - 1)
120
Me.Liste29.Requery
bu kodun neresinde hata yapmısım yardımcı olmanız mumkun mu acaba