وعليكم السلام ..
استخدم هذا السبروتين
Sub MyFilter()
Dim strSQL As String
strSQL = ""
If Len("" & Me!t1) > 0 Then
strSQL = "[items]='" & Me!t1 & "'"
End If
If Len("" & Me!t2) > 0 Then
If Len(strSQL) > 0 Then
strSQL = strSQL & " And "
End If
strSQL = strSQL & "year(dates)='" & Me!t2 & "'"
End If
If Len(strSQL) = 0 Then
Me.FilterOn = False
Else
Me.Filter = strSQL
Me.FilterOn = True
End If
End Sub
وفي حدث بعد تحديث t1 استدعي الروتين
Private Sub t1_AfterUpdate()
MyFilter
End Sub
ونفس الحالة ل t2