Φίλτρο με ComboBox

[Meteora]

Καλησπέρα

Έχω άσχημη εμπειρία με τη γραμμή me.Filter="". Δεν έχει δουλέψει ορισμένες φορές κυρίως σε εφαρμογές που μετέτρεψα το αρχείο σε *.accde και τρέχαν σε περιβάλλον AccessRuntime. Τελικά κατέληξα σε μια άλλη διαχείριση που σας παρουσιάζω.

Private Sub combo1_AfterUpdate()
    If Not  IsNull(Me.combo1) Then
        Me.Filter =  "Katigoriaid = " & Me.combo1
        Me.FilterOn = True
    Else    
       Me.FilterOn = False
    End If
End Sub

Καλό μας βράδυ

Νίκος Δ.