Φίλτρα σε Φόρμα

[Χρήστος]

Καλησπέρα
Στη φόρμα της ΒΔ, θέλω να μπορώ να φιλτράρω τις εγγραφές, επιλέγοντας απ' τα πεδία-φίλτρα.
Η βάση αυτή στηρίζεται σε εφαρμογή του Forum, όμως έχει τροποποιηθεί και έχω κάνει και μια προεργασία που θα καθοδηγήσει αυτόν που θα ασχοληθεί, για να με βοηθήσει. Ευχαριστώ.

[Meteora]

Χρήστο,

Στο κατηγορία δοκίμασε αυτό:

 
Private Sub cboKatigoria_AfterUpdate()
    Me.Filter = "[Katigoria]='" & cboKatigoria & "'"
    Me.FilterOn = True
End Sub

Στη ημερομηνία δες αυτό:

 
Private Sub cboDate_AfterUpdate()
    If Nz(Me.cboDate) <> 0 Then
        Me.cboMonth = Null
        Me.cboQrt = Null
        Me.cboWeek = Null
    End If
    Me.Filter = "[ImerominiaPliromis]=#" & Format(cboDate, "mm\/dd\/yyyy") & "#"
    Me.FilterOn = True
End Sub

Η εβδομάδα με κάνει κάτι ...παραξενιές. Με μια Format( flddate,"ww") το ψάχνω.

Διόρθωσε τη βάση σου , γιατί δεν δέχεται νέα εγγραφή...ψάχνει για τη [Σχέση].

Καλή συνέχεια / Νίκος Δ.

[Χρήστος]

Σου ξαναδίνω τη βάση διορθωμένη
...Αρχίζω να το δουλεύω...σ' ευχαριστώ για τη βοήθεια...

[Χρήστος]

σ' ένα κουμπί αντιστοίχισα μια μακροεντολή που ανοίγει μια έκθεση και για φίλτρο πέρασα τη φράση
="[Evdomada#]=" & [Evdomada#]
η οποία δουλεύει.
Σ' έαν άλλο κουμπί πέρασα τη φράση
[Katigoria]="Επιταγή"
η οποία δουλεύει

ΠΩΣ θα τα ένωνα αυτά σε ΜΙΑ φράση?

[Meteora]

Καλημέρα...

Το φίλτρο για την εβδομάδα :

 Me.Filter = "DatePart('ww',[ImerominiaPliromis])=" & cboWeek
   Me.FilterOn = True

(Χρησιμοποίησα την συνάρτηση που χρησιμοποιείς στα 'Δεδομένα' του combobox με το όνομα cboWeek και φτιάχνεις την πρώτη στήλη του ! ).
....

Όπως τα έχεις γραμμένα : " [Katigoria]='Επιταγή' and [Evdomada#]=" & [Evdomada#]

κάτι όμως δεν με αρέσει (δυο φορές το ίδιο πεδίο και με το σύμβολο # μέσα στο πεδίο), γιαυτό δες μήπως ταιριάζει αυτό:

" [Katigoria]='Επιταγή' and [Evdomada]= #" & EvdomadaX & "#"
(προσοχή στα μονά και διπλά εισαγωγικά.)

Με την συνθήκη αυτή λέμε: Θέλω τις εγγραφές που έχουν στο πεδίο [Katigoria] την λέξη 'Επιταγή' και στο πεδίο ημερομηνίας [Evdomada], ημερομηνία ίδια με αυτή που υπάρχει στη μεταβλητή (τύπου Date) με το όνομα EvdomadaX. (μπορεί να χρειαστει Format...)
Αυτή τη πρόταση θες να υποποιήσεις;

Από μακροεντολές είμαι σχεδόν αρχάριος. Για να εμφανίσω στην οθόνη μια έκθεση θα έγραφα:

 
 
Dim str As String
str = "[Katigoria]='Επιταγή' and [Evdomada]= #" & EvdomadaX & "#"
DoCmd.OpenReport "MyReport", acViewReport, , str

Αυτά αγαπητέ μου.

Νίκος Δ.

Υστερολόγιο: Αυτά τα Format στις ημερομηνίες και τα DatePart στις εβδομάδες, ας τα δει και κάποιος που έχει γνώσεις και εμπειρία, στοιχεία που σε μένα έχουν ...νηπιακή ηλικία.( Η αλήθεια είναι οτι πρέπει να διαβάσω, να κρατήσω σημειώσεις και να τελειώνω με την διαχείριση ημερομηνιών. Αν κάποιο μέλος έχει υλικό στο αρχείο του, παρακαλώ θερμά να το μοιραστεί και μαζί μου...)

[Χρήστος]

Σ' ευχαριστώ για τις οδηγίες...πιάνω δουλειά :))