[ Φόρμες ] Επιλογή αναφοράς ανάλογα τιμής πεδίου

[serviceman]

Νίκο thank U!

Η τελευταία λύση που έδωσες είναι perfect!!

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

Θα μελετήσω τον κώδικα VBA.


Είμαι σε ένα ταμείο ΝΠΔΔ του υπουργείου εργασίας εδώ και 2 χρόνια και προσπαθώ να αυτοματοποιήσω κάποια χαρτούρα. Ενα λιθαράκι κάθε μέρα.

Ευχαριστώ για την βοήθεια.

[Dangel82]

Καλησπέρα και απο εμένα...

Θα συμφωνήσω με τον Τάσο κι εγώ... 20 μόνο??? βάλε κάτι ακόμαααααααα!!!!
Να συμπληρώσω σχετικά με τις ημερομηνίες.

Μου είχε παρουσιαστεί (Access 2003) η περίπτωση να μην μπορώ να κάνω σωστή αναζήτηση βάση ημερομηνίας λόγω άλλου format ημερομηνίας. Έλυσα το πρόβλημά μου εισάγοντας την παρακάτω

Function SQLDate(vDate As Variant) As String
        If IsDate(vDate) Then
            SQLDate = Format$(vDate, "mm\/dd\/yyyy")
        End If
    End Function

Σημείωση: είναι mm\ /dd\ / yyy όχι mmVddVyyy απλά με φαίνεται μέσα ως V και όχι ως / ή \...

Μου είχε λύσει τεράστιο πρόβλημα στο παρελθόν!

Φιλικά Άγγελος

[serviceman]

Καλημέρα σε όλους,

ευχαριστώ για την βοήθεια όλους τους φίλους του φόρουμ η ανταπόκριση είναι πολύ άμεση. Γιάννη θα μελετήσω το υλικό σου μετά την Δευτέρα γιατί βρίσκομαι στην Θεσσαλονίκη για το Σαββατοκύριακο και ο χρόνος θα αφιερωθεί σε φίλους και οικογένεια.

Καλό Σαββατοκύριακο

Με εκτίμηση

Σταύρος

[nisgia]

Καλησπέρα φίλοι μου!

Τάσο, ένα μεγάλο ευχαριστώ για τα καλά σου λόγια και τις παρατηρήσεις!

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

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

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

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δις φίλοι μου, αυτό που φαίνεται είναι πάντα η μισή αλήθεια.
Η άλλη μισή είναι πως αυτό το ποσό αντιστοιχεί μόνο ...στη δόση του Μαΐου!!!

Φίλε Σταύρο, κοίτα να περάσεις εσύ καλά και όλα τα άλλα γίνονται!
Άλλωστε, όπως λέει και ο σοφός λαός: Πρώτα η διασκέδαση και μετά όλα τα άλλα!

Φιλικά,
...Γιαννήκας!