Il Campo [ETA] non si deve chiamare con l'Accento, solo la Descrizione deve avere l'accento...
Puoi mettere un Pulsante e su Evento Click Applichi il Criterio ricostruendolo.
Esempio
Dim strWHR As String
If Len(Me.txtAnni & vbNullstring)>0 Then '<--- Questo controlla se la TextBox per l'inseriemnto ANNI è valorizzata
If IsNumeric(Me.TxtAnni) Then '<--- Questo controlla se la TextBox per l'inseriemnto ANNI è valorizzata con colo un numero
strWHR="Anni = " & me.txtAnni ' in questo caso deve mettere "=" come confronto
Else
strWHR="Anni " & me.txtAnni ' Se non era un numero significa che hai scritto anche il metodo di confronto "<50"
End if
End if
Me.Filter=strWHR
Me.FilterOn=True
Ovviamente manca la validazione del DataEntry, potresti scrivere anche Pizza50...
Personalmente trovo questo metodo tecnicamente errato, facile d manomettere e bisognoso di molti controlli.
Fossi in te avrei usato 2 Controlli, una TextBox ed una ComboBox precaricata con "=;<=;>=,<;>" per i campi Numerici.
Io feci un sistema che sfruttava 3 Controlli:
1° Combo(Elenco Campi oggetto di Filtro/Ricerca)
2° Criterio di Confronto( "=;<;<=;>;>=;<>;NULL;NOT NULL" ecc...)
3° Valore di Ricerca
A quel punto a seconda del tipo di campo selezionato dalla 1° Combo, vado a popolare la 2° combo...:
Private Function FillCritCBO(fldType As dao.DatabaseTypeEnum) As String
Dim sRowSource As String
Select Case fldType
Case dbText: sRowSource = "=;<>;BEGIN WITH;NOT BEGIN WITH;CONTAINS;NOT CONTAINS;END WITH;NOT END WITH;NULL;NOT NULL"
Case dbChar: sRowSource = "=;<>;BEGIN WITH;NOT BEGIN WITH;CONTAINS;NOT CONTAINS;END WITH;NOT END WITH;NULL;NOT NULL"
Case dbMemo: sRowSource = "BEGIN WITH;NOT BEGIN WITH;CONTAINS;NOT CONTAINS;END WITH;NOT END WITH;NULL;NOT NULL"
Case dbDate: sRowSource = "=;<;<=;>;>=;<>;NULL;NOT NULL"
Case dbCurrency, _
dbLong, _
dbInteger, _
dbByte, _
dbDecimal, _
dbDouble, _
dbSingle, _
dbNumeric
sRowSource = "=;<;<=;>;>=;<>;NULL;NOT NULL"
Case Else: sRowSource = "=" ' BOOLEAN ....
End Select
FillCritCBO = sRowSource
End Function
Ovviamente poi devi gestire tutto... e serve solo un poco di visione della funzione.
Tutto quello che ti ho detto lo trovi in questo DEMO:
forum.masterdrive.it/access-79/msaccess-gestione-filtri-ordinamento-101267/
Ci sono le funzioni di ricostruzione dei criteri, per popolare le combo ecc...