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

[Meteora]

Καλημέρα...
Πρόσθεσε στην εντολή σου το τμήμα που εμφανίζεται έντονα 'μαυρισμένο', για να καλύψεις την περίπτωση του μηδέν...

 
If IsNull(Me.poso2) or me.poso2 = 0 Then

Φιλικά / Νίκος Δ.

[serviceman]

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

Καλημέρα...
Πρόσθεσε στην εντολή σου το τμήμα που εμφανίζεται έντονα 'μαυρισμένο', για να καλύψεις την περίπτωση του μηδέν...

 
If IsNull(Me.poso2) or me.poso2 = 0 Then

Φιλικά / Νίκος Δ.

Τώρα δείχνει άψογο.

Υπάρχει δυνατότητα να εκτυπώνω στην κεφαλίδα της φόρμας τα στοιχεία (επωνυμία,διευθυνση τηλέφωνο ) από πίνακα, μια εγγραφή από ένα πίνακα στοιχεία υπηρεσίας, έτσι ώστε όταν αλλάξουν τα στοιχεία να αλλάζεις την εγγραφή και οχι την έκθεση;

Με εκτίμηση

Σταύρος

[Meteora]

Καλημέρα στην κοινότητα !
Αγαπητέ Σταύρο παρουσίασε με παράδειγμα τι θες να συμβεί, ώστε να γίνει σαφέστατο ο,τι επιδιώκεις να πετύχεις. Ήδη έχεις ανεβάσει δυο πίνακες που περιέχουν 2-3 record, αλλά δεν καταλαβαίνω τι εκφράζουν. Γράψε λοιπόν μια μικρή "ιστορία" του τι θες, πως σκέφτεσαι να επιλυθεί και έτσι τα μέλη του Forum να μπορέσουν να σε βοηθήσουν. Γράφεις για παράδειγμα

Υπάρχει δυνατότητα να εκτυπώνω στην κεφαλίδα...

αυτό παραπέμπει σε σκέψεις 'εκτύπωση φόρμας' αλλά και 'παρουσίασης επικεφαλίδας σε φόρμα'...
Διαβάζοντας παρακάτω, πάλι δεν ειναι - σε μένα - κατανοητό τι θες και δεν μπορώ να απαντήσω...
Φιλικά / Νίκος Δ.

[serviceman]

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

έχω 2 πίνακες pinakas1, pinakas2 και 2 αναφορές V1, V2.
Αν έχω ποσό2 διαφορετικό από 0 εκτυπώνει έκθεση2 αλλιώς έκθεση1.
Ολα καλά μέχρι εδώ με την βοήθεια του Νίκου (Meteora).

Το νέο στοιχείο είναι ότι στον πίνακα2 έχω τα δεδομένα (όνομα ταμείου, διευθυνση, τηλέφωνο) του ταμείου. Θέλω στις αναφορές V1 και V2 να εμφανίζονται τα δεδομένα της μοναδικής εγγραφής του πίνακα2 στην επικεφαλίδα, έτσι ώστε όταν αλλάζουν τα στοιχεία να αλλάζω την εγγραφή και αυτή να εμφανίζετε αλλαγμένη στις εκθέσεις.

Ανεβάζω υλικό.

Με εκτίμηση
Σταύρος

Υ.Γ
Ευχαριστώ εκ των προτέρων

[Meteora]

Καλησπέρα και απο εδώ ...
Σταύρο, ρίξε μια ματιά στο επισυναπτόμενο αρχείο και τα ...ξαναλέμε !

Αξίζει τον κόπο να δείτε την διαδικασία με την οποία περνάς παραμέτρους σε έκθεση :

ΒΗΜΑ 1ο
Φτιάχνουμε μια module και γράφουμε τα παρακάτω

 
Option Compare Database
Option Explicit 
Public Titlos As String           

ΒΗΜΑ 2ο
Στην ίδια module,

Public Function FTitlos()
With CurrentDb.OpenRecordset("pinakas2", 4)       'το 4 αφορά κατάσταση ΜΟΝΟ για διάβασμα
         .MoveFirst
        FTitlos = !onomatameiou & "  " & !dieftinsi &"  "& !tilephono
End With
End Function

Αυτή η συνάρτηση βρίσκει το 1ο Record ενός πίνακα και διαβάζει τα περιεχόμενα τριών πεδίων, τα οποία και ενώνει. Θα μπορούσαμε σε αυτό το στάδιο να γράψουμε FTitlos= "Καλαμπάκα" ή ότι άλλο και να περαστεί έτσι όποια παράμετρος θέλουμε στην έκθεση.

ΒΗΜΑ 3ο Σε ένα πλαίσιο κειμένου κάπου στο Report, υπάρχει ως ‘Προέλευση στοιχείου ελέγχου’ το:

=FTitlos()

Αυτό ήταν !

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

[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" για να καλύψουμε κι αυτή την περίπτωση.

Τα λέμε...

Τάσος