[Meteora]

Καλημέρα...

Αφού σε έγραψα να τον 'θωρακίσεις' τον κώδικα! Έδωσα μόνο δυο γραμμές κώδικα που κάνει αυτό που θες και αφαίρεσα γραμμές άχρηστες.

Να μια απλή λύση όταν τα πλαίσια- όρια είναι κενά!

Private Sub cmdFilter_Click()
if isnull(me.text_apo) or isnull(me.text_eos) then exit sub
Me.Filter = "ΚΩΔΙΚΟΣ > " & Me.text_apo & " and ΚΩΔΙΚΟΣ <" & Me.text_eos
Me.FilterOn = True
End Sub

Όταν πάλι εργάζεσαι με αλφαριθμητικό τότε δώσε κάτι σαν αυτό :
Me.Filter = "ΚΩΔΙΚΟΣ > ' " & Me.text_apo & " ' and ΚΩΔΙΚΟΣ < ' " & Me.text_eos & " ' "

Αν χρειαστείς βοήθεια ζήτησε την από όλα τα μέλη. Δεν είναι πρέπον σε μια συζήτηση να έχει κάποιο μέλος την αίσθηση του "αποκλεισμού"...

Με εκτίμηση/Νίκος