Projelerimde çok kullandığım aşağıdaki ögneği kendi ihtiyacına göre uyarlarsın.
İstediğin kadar kriter kullanabilirsin. Burada dikkat edilmesi gereken nokta filtreyi uygulamak istediğin tablodaki alan ile filtreyi belirttin tip ayni olmalı, yani tablodaki alan metin ise belirttiğin tip de metin olmalı. Benim aşağıdaki örnekte veriler hep metin. Eğer sendeki veri sayı ise çift tırnağın önündeki ve arkasındaki tek tırnakları kaldır.
Private Sub filtre_uygula()
On Error Resume Next
Dim kriter As String
If Nz(Me.cmbYon, "") <> "" Then
kriter = kriter & "[YoneticiID] = '" & Me.cmbYon & "' AND "
End If
If Nz(Me.cmbProje, "") <> "" Then
kriter = kriter & "[ProjeID] = '" & Me.cmbProje & "' AND "
End If
If Nz(Me.cmbProjeTipi, "") <> "" Then
kriter = kriter & "[Proje Tipi] = '" & Me.cmbProjeTipi & "' AND "
End If
If Nz(Me.cmbProjeAdi, "") <> "" Then
kriter = kriter & "[Proje Isim] = '" & Me.cmbProjeAdi & "' AND "
End If
If kriter <> "" Then
kriter = Left(kriter, Len(kriter) - 5) 'en sağadaki fazladan AND alma
Me.Filter = kriter
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = False
End If
End Sub
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.