Private Sub Metin13_AfterUpdate()
StrFiltre = ""
If Not IsNull(Me.Metin13) And Not IsNull(Me.Liste8) Then StrFiltre = "SİCİL=" & Me.Liste8 & " and MALZEME=" & Me.Metin13
If Not IsNull(Me.Liste8) And Len(Me.Metin13 & "") = 0 Then StrFiltre = "SİCİL=" & Me.Liste8
Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = StrFiltre
Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True
End Sub
https://resim.accesstr.net/do.php?img=10606