Καλησπέρα φίλοι μου!
Τάσο, ένα μεγάλο ευχαριστώ για τα καλά σου λόγια και τις παρατηρήσεις!
Όντως, η τιμές ημερομηνίας μας δημιουργούν πολλά προβλήματα
και αυτό γιατί, προγραμματιστικά, κάνουμε το λάθος και τις αντιμετωπίζουμε
σαν κείμενα και όχι ως σειριακές τιμές που πραγματικά είναι.
Αν δύο ημερομηνίες που έχουν εισαχθεί στο ίδιο περιβάλλον χρήστη, δείχνουν ίδιες,
είναι σίγουρο ότι οι σειριακές τιμές τους θα είναι ίδιες.
Άλλωστε οι αριθμοί λένε πάντα την αλήθεια ενώ τα κείμενα όχι.
Οπότε ο πιο σίγουρος τρόπος σύγκρισης δυο ημερομηνιών, είναι να συγκρίνουμε τις τιμές τους.
Συνεπώς, το λάθος που έκανα στην παραπάνω έκφραση, θα πρέπει να διορθωθεί σε:
strWhere = strWhere & "
Clng(PaymentDate)= " &
CLng(dtmDate)
Νομίζω πως αυτός είναι ο πιο σίγουρος τρόπος σύγκρισης ημερομηνιών (χωρίς ώρα).
Το πιο κουφό όμως που ίσως εντοπίσατε αλλά προφανώς ντρέπεστε να μου πείτε είναι:
Για ποιον λόγο να ελέγχω την ορατότητα ενός άλλου χειριστηρίου
για να αποκρύψω το πεδίο Poso2 και όχι την ορατότητα του ίδιου του πεδίου Poso2;
(Ελάτε, πείτε την αλήθεια! Σας έλειψαν λίγο τα σφυροκοπήματά μου ε;
)
Οπότε φίλοι μου, η διαδικασία ελέγχου της ορατότητας του πεδίου Poso2 γίνεται:
Κώδικας:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
With Me.poso2
.Visible = Nz(.Value, 0) > 0
End With
End Sub
(Κάτι μου λέει πως μετά από αυτό, εκτός από τον Γιωρήκα και τον Κωστήκα,
τα ποντιακά ανέκδοτα θα μιλάνε και για το Γιαννήκα.
) Όσο για τα 20δις φίλοι μου, αυτό που φαίνεται είναι πάντα η μισή αλήθεια.
Η άλλη μισή είναι πως αυτό το ποσό αντιστοιχεί μόνο ...στη δόση του Μαΐου!!!
Φίλε Σταύρο, κοίτα να περάσεις εσύ καλά και όλα τα άλλα γίνονται!
Άλλωστε, όπως λέει και ο σοφός λαός: Πρώτα η διασκέδαση και μετά όλα τα άλλα!
Φιλικά,
...Γιαννήκας!