Καλημέρα...
Το φίλτρο για την εβδομάδα :
Κώδικας:
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 στις εβδομάδες,
ας τα δει και κάποιος που έχει γνώσεις και εμπειρία, στοιχεία που σε μένα έχουν ...νηπιακή ηλικία.( Η αλήθεια είναι οτι πρέπει να διαβάσω, να κρατήσω σημειώσεις και να τελειώνω με την διαχείριση ημερομηνιών. Αν κάποιο μέλος έχει υλικό στο αρχείο του, παρακαλώ θερμά να το μοιραστεί και μαζί μου...)