[dimitrisp]

Καλημέρα.

Γιώργο (Kapetang),

Τελικά, κατάργησα εντελώς την παράμετρο και πρόσθεσα στη συγκεκριμένη Φόρμα μου τον Κώδικα:

Private Sub optFormSource_Click()
Me.Filter = Choose(optFormSource.Value, "", "[energosp]= -1", "[energosp]=0")
Me.FilterOn = True
End Sub

τον οποίο βρήκα σε δική σου παλιότερη αναρτηση στο Forum και, βεβαίως, λειτουργεί άψογα.

Πάντως, ας μου επιτραπεί (με την άδεια του Forum που μας φιλοξενεί), με την ευκαιρία αυτή, να ομολογήσω δημοσίως ότι, από τη συνεκτίμηση, στάθμιση και αξιολόγηση των απαντήσεων σου στο Forum ( με όσες τουλάχιστον έχω μελετήσει ή έχω εφαρμόσει, με τις λίγες γνώσεις, βεβαίως, που διαθέτω σχετικά με το αντικείμενο), διαπιστώνεται καταφανώς ότι, αυτές (οι απαντήσεις) είναι εμπεριστατωμένες, διακρίνονται από το στοιχείο της απλότητας και, πρωτίστως, παρατίθενται στον αναγνώστη με εξαιρετικά σαφή, παραστατικό και αναλυτικό τρόπο έτσι ώστε και ένας αρχάριος χρήσης (όπως προφανώς εγώ) να μπορεί να τις εφαρμόσει.

Καλή συνέχεια...