Hμερομηνία ελέγχου σε φόρμα

[alex]

Καλησπέρα σε όλα τα μέλη του φορούμ.

Εχω μια φόρμα που έχω τοποθετήσει ένα πλαίσιο κειμένου και έχω συνδέσει με ημερολόγιο που μας δίνει την τρέχουσα ημερομηνία .Η φόρμα έχει και μιά δευτερεύουσα φόρμα με 2 κουμπιά εναλλαγής που αντιστοιχούν σε 2 άλλες φόρμες.
Τώρα εγώ θέλω να ελέγχω εάν υπάρχουν εγγραφές στις υποφόρμες ανάλογα με την ημερομηνία που επιλέγω.
Δηλαδή στην ουσία θέλω να ταιριάζει το πεδίο CurrDate με το πεδίο Kalipsi_eos της μιας φόρμας(Σήμερα λήγουν τα εξής αυτοκίνητα) και της άλλης (Αυτό το μήνα λήγουν τα εξής αυτοκίνητα)Οπότε εάν ταιριάζουν θα εμφανίζουν και τις εγγραφές των.Ανεβάζω ένα δείγμα για καλύτερη κατανόηση του ζητούμενου.

Φιλικά/Αλέξανδρος.

[alex]

Καλημέρα σε όλη την παρέα του forum

Σε προσπάθειες για ανεύρεση του ζητούμενου είδα ότι αφαιρώντας τα κριτήρια από τα ερωτήματα επιλύεται το ζητούμενο.Να όμως που κάποιες φόρες στη βάση εμφανίζονται οι φόρμες μεμονωμένα(Σήμερα λήγουν τα εξής αυτοκίνητα)και (Αυτό το μήνα λήγουν τα εξής αυτοκίνητα) και δεν ελέγχονται από την τρέχουσα ημερομηνία,οπότε χωρίς κριτήριο εμφανίζονται όλες οι εγγραφές.
Ερώτηση;
1.Πρέπει να προσθέσω και σε κάθε φόρμα πλαίσιο με CurrDate να ελέγχει την τρέχουσα ημερομηνία;
2.Εάν βάλω πλαίσιο έτσι ώστε να μην το έχω Ορατό στη φόρμα να την ελέγχει και θα φιλτράρει την εγγραφή της τρέχουσας ημερομηνίας;
3.Eάν κάνω διπλές φόρμες με κριτήρια στα ερωτήματα νομίζω ότι επιλύεται και πάλι το πρόβλημα.
Εάν γνωρίζει κάποιο μέλος να μου κάνει κάποια πρόταση τι να κάνω ποίο είναι το σωστό από τις σκέψεις μου.Ή εάν υπάρχει κάτι άλλο προγραμματιστικά.
Ευχαριστώ εκ των προτέρων



Φιλικά/Αλέξανδρος

[alex]

Καλημέρα και πάλι!!

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

Φιλικά/Αλέξανδρος

[alex]

Καλησπέρα !!!

Επίσης για να λειτουργεί καλύτερα η βάση σε όσους ενδιαφέρει το θέμα :πρέπει να τοποθετηθεί συμπληρωματικός κώδικας στις βάσεις που περιέχουν τον παρακάτω κώδικα.

Private Sub Form_Open(Cancel As Integer)
    DoCmd.SetWarnings False
        DoCmd.RunSQL ("UPDATE tblParameters set CurrDate=#" & Format(date, "mm/dd/yyyy") & "#")
    DoCmd.SetWarnings True
Me.Form.Requery
End Sub

Η συμπλήρωση θα είναι η γραμμή κώδικα που είναι με κόκκινο.

Φιλικά/Αλέξανδρος