18-07-2019, 22:10
(18-07-2019, 12:50)halil.tefci demiş ki: Hocam merhaba, bir tablodan form üzerinden çoklu filtreleme yapmak istiyorum ancak verdiğiniz örneğe göre yapıyorum ama filtreleme düzgün çalışmıyor.2 kritere kadar olursa program düzgün çalışıyor sql alanına 8 tane kod yazdığımda filtrelemeyi düzgün yapmıyor. Yardımcı olursanız memnun olurum. İyi çalışmalar
Call SuzgecUygula ile proseduru calistirabilirsiniz.
Kod:
Sub SuzgecUygula()
Dim Nesne As Control, Hn As Long, Flt As String
Me.[muhasebekodu alt formu2].Form.Filter = ""
For Each Nesne In Me.Controls
If Me.Controls(Nesne.Name).ControlType = acTextBox Then
If Me.Controls(Nesne.Name) <> "" Then
Hn = CLng(Nz(Replace(Nesne.Name, "k", vbNullString), 99))
Flt = Flt & IIf(Hn = 9, "[aciklama", IIf(Hn = 0, "[HESKOD", "[YARDIMCI" & Hn)) & "]" & IIf(Hn = 9, " Like " & Chr(39) & "*", " =" & vbNullString) & Nesne.Value & IIf(Hn = 9, "*" & Chr(39), vbNullString) & " And "
End If
End If
Next Nesne
If Flt <> "" Then Flt = Nz(Mid(Flt, 1, Len(Flt) - 5), "") Else Flt = ""
Me.[muhasebekodu alt formu2].Form.Filter = Flt
Me.[muhasebekodu alt formu2].Form.FilterOn = True
End Sub
muhasebekodları.rar (Boyut: 473,74 KB / İndirilme: 37)