Kod:
Private Sub cmdFiltre_Click()
On Error GoTo Err_cmdFiltre_Click
Dim TaliID As String
Dim TeklifVeren As Long
TaliID = Me.TaliIDSecim
TeklifVeren = Me.TeklifVerenSecim
Me.Filter = "TaliID = '" & TaliID & "'" And "TeklifVeren = " & TeklifVeren & ""
'Üst satırda veri türü uyuşmazlığı nerede? Acaba ayraçlarda mı bi hata yapıyorum. Ölçütler tek tek çalışıyor. Fakat ikisi birlikte veri türü uyuşmazlığına sebep oluyor.
Me.FilterOn = True
Exit_cmdFiltre_Click:
Exit Sub
Err_cmdFiltre_Click:
MsgBox Err.Description
Resume Exit_cmdFiltre_Click
End Sub