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

[serviceman]

Νίκο thank U!

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

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

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


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

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

[nisgia]

Αρχική Δημοσίευση από serviceman

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

Φίλε Σταύρο, καλησπέρα!

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

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

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

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

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

Ελπίζω να σε βοηθήσει.
Γιάννης

[Tasos]

Καλησπέρα!
Γιάννη μου, στην εγγραφή: Ταμείο …λαμόγιων! το ποσό αν και παραδειγματικό μου φάνηκε πολύ μικρό!

Κατά τ άλλα, συγχαρητήρια για την όμορφη και καθαρή δουλειά! (δεν περίμενα και κάτι άλλο από σένα...)!!

Σε υπολογιστές με μορφοποίηση (Separators) διαφορετική από ".../.../...." , η γραμμή:

strWhere = strWhere & "PaymentDate= #" & Format(dtmDate, "mm/dd/yyyy") & "#"
θα δημιουργήσει πρόβλημα.

Μπορούμε να χρησιμοποιήσουμε: "mm\/dd\/yyyy" ή "mm-dd-yyyy" για να καλύψουμε κι αυτή την περίπτωση.

Τα λέμε...

Τάσος

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

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

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