Ανανέωση ιστοσελίδας

[Χρήστος]

Καλησπέρα στην παρέα του Forum.
Αφού επεξεργάστηκα ένα Θέμα που αφορούσε σε φίλτρο φόρμας με τη βοήθεια ComboBox, προσπάθησα να το αναπαραγάγω αλλά δεν τα καταφέρνω!
Πείτε μου σας παρακαλώ που έχω πρόβλημα;

[kapetang]

Καλησπέρα

Χρήστο, στο κώδικα: αντί Me.Filter=True γράψε Me.FilterOn=True.

Καλό είναι, επίσης στη σχεδίαση να δώσεις για το σύνθετο πλαίσιο προεπιλεγμένη τιμή (Default Value) "ALL".

Φιλικά/Γιώργος

[Χρήστος]

Σ' ευχαριστώ....Δουλεύει!

[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

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

Νίκος Δ.