birden fazla filitreleme

Konu Sahibihocam 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) --------- Hata burada olması gereken altta
Me.G4 = Left(ARA, A1 - 1)
120
Me.Liste29.Requery

---

Veya şöyle yapalım...

Lütfen siz veriyi biraz çoğaltın bende alan sayısını 5 e çıkarayım...

Gerisi zaten gelir...

hocam örnek 2 olarak verileri artırıp ekledim.cok sey mi istemiş olurum bilmiyorum ama rica etsem kabaca yamız olduğunuz kodların da mantığını acıklayabilirmisiniz lütfen

1.adet kayıt ekleyip yollamanız doğru değil. Birşeyleri isterken gereken alt yapıyı hazırlamanız lazım. Siz sorununuzu çözmemiz için hazır değilseniz yardımcı olmamız mümkün değil.Bizler sorunlarınızı çözmeye çalışıyor ve yardımcı olmaya çalışıyoruz.
Ama verileri girmek ve sorununuzu 5 kalem için çözmek için tabloyu ve verileri bizden girmemizi beklemek sizce doğrumu.

hocam kusura bakmayın özür dilerim ben siz veriyi çoğaltın diyince bu şekilde anladım o yüzden örnek 2 olarak gönderdim. şimdi biraz uğraştım bişeyler yapmaya çalıştım rica etsem sizde bir kontrol edermisiniz herhangi bir aksaklık var mı diye. birde G1, G2 vs metin kutularını görünür yapmıstım orda bir sey dikkatimi çekti arama metin kutusuna aramak istediğim kelimeyi girip süzme işlemini yapıyorum silerken G1 hariç diğer metin kutularında(G1, G2, G3, G4 vs) 1 harf bırakıyor. bu bir hata m yoksa olması gereken mi anlayamadım hocam .yardımlarınız için teşekkür ederim şimdiden

Sanırım anlatamadım.
4-5 alanda aynı anda süzme yapmak için 20-25 kalem veri olması ve test için bazı alanların aynı olması lazım.
Gelelim sizin eklerinize.

1.örneğiniz 3 kalem.
2.örneğiniz 4 kalem.
3.örneğiniz 5 kalem.

Kusura bakmayın yapacak birşey yok...

kusura bakmayın hocam mesajınıza cevap yazma fırsatını yeni bulabildim. yardımlarınız için teşekkür ederim hocam