birden fazla filitreleme

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

lütfen yardımlarınızı bekliyorum

İncelermisiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...

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

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

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