Ekteki formda üç adet metin kutusuna filitreleme yapmak istiyorum. Kutulara yazdığım veriyi alt formda süzerek gelmesini istiyorum. Örneklerden epey uğraşmama rağmen yapamadım. Yardımlarınızı bekliyorum teşekkür ederim.

Sn 53rize; Tek metin kutusu ile uc alanda arama yapilmasini ANA for uzerinde orneklendirilmistir.
  deneme_3.3.15.rar (Boyut: 55,18 KB / İndirilme: 147)

sayın dsezgin83260 eline sağlık filitreleme olmuş ama üç ayrı metin kutusunda ayrı ayrı olmasını istiyorum. çünkü sizin yaptığınızda isimi hepsini girdikten sonra diğer filitreleride isimlerini bütün harfleri yazmamız gerekiyor .
yani misal ben önce bölgeyi süzüp. sonra ismi sonrada peşine referansı süzmeliyim. teşekkür ederim.

Sn 53rize; Sorgu kriteri girilecek iliskisiz metin kutu adlarini Sr_.... olarak degistirin ve asagidaki kodlari form VBA sina tasiyin.
Private Sub Sr_adı_soyadı_AfterUpdate()
Call Bul
End Sub
Private Sub Sr_bölgesi_AfterUpdate()
Call Bul
End Sub
Private Sub Sr_referansı_AfterUpdate()
Call Bul
End Sub
Sub Bul()
Dim Ctrl As Control, Suz As String, FilSec As Long
Me.Filter = ""
For Each Ctrl In Me.Controls
If Ctrl.Properties("ControlType") = 109 And Ctrl.Tag = "Flt" Then
If Ctrl.Value <> "" Then Suz = Suz & "[" & Mid(Ctrl.Name, 4, Len(Ctrl.Name)) & "] like '*" & Ctrl & "*' And "
FilSec = 1
End If
Next Ctrl
Me.Filter = IIf(FilSec > 0, Mid(Suz, 1, Len(Suz) - 4), "")
Me.FilterOn = True
End Sub

Me.Filter = IIf(FilSec > 0, Mid(Suz, 1, Len(Suz) - 4), "")

Bu satırda hata veriyor.

(04-03-2015, 12:09)53rize demiş ki: Me.Filter = IIf(FilSec > 0, Mid(Suz, 1, Len(Suz) - 4), "")

Bu satırda hata veriyor.

Sorgulama yapilacak metin kutulari ozellikler bolumunde Tag kismina "Flt" yazmaniz gerekiyor.