[ Εκθέσεις ] Ενεργοποίηση συμβάντος "Με τη φόρτωση"

[Meteora]

Καλησπέρα σε όλους !
Φίλτατε Γιάννη, χαίρομαι κάθε φορά που σε διαβάζω. Η τεχνική του Textbox που περιγράφεις δεν είναι σε μένα άγνωστη. Όμως στη συγκεκριμένη διαχείριση έπρεπε να διαβαστεί ο αριθμός μητρώο από το άτομο το οποίο στον πίνακα tblSxolio ορίστηκε ως Διευθυντής. Να πάει μετά σε άλλο πίνακα tblkatigites4 και να διαβαστεί το φύλο. Στη συνέχεια να έχουμε την απόφαση για να γραφεί ετικέτα "ΔΙΕΥΘΥΝΤΗΣ" ή "ΔΙΕΥΘΥΝΤΡΙΑ".

Private Sub Report_Open(Cancel As Integer)
Dim varz As Variant, varfilo As String
    varz = DLookup("[AmDieftidis]", "tblSxolio", "not isNull([Kodikos])")
    varfilo = Nz(DLookup("[Φυλο]", "tblkatigites4", "[ΑΜ]= '" & varz & "'"), "")
    Me.Label61.Caption = IIf(varfilo = "Γυναίκα", "Η ΔΙΕΥΘΥΝΤΡΙΑ", "Ο ΔΙΕΥΘΥΝΤΗΣ")
End Sub

Ερώτημα δεν μπορούσε να στηθεί με αυτή την πληροφορία στην έκθεση και έτσι έπρεπε να εμφανιστούν δυο πλαίσια (μη ορατά) με τις Dlookup και ένα τρίτο (ορατό) με το IIf(...)
Δοκιμαστικά λοιπόν προσπάθησα να φορτώσω τον κώδικα στο OnLoad της έκθεσης και με αφορμή το αποτέλεσμα, ανέβασα στο Forum την απορία μου ! Το περίεργο είναι ότι στο OnOpen η Aceess δεν παρουσιάζει το πρόβλημα.
Όμως δεν εμπιστεύομαι τα συμβάντα και θα αποσύρω τον κώδικα από αυτά. Η σκέψη μου είναι να εργαστώ με Public Function σε module και το αποτέλεσμα αυτής να το εμφανίζω κάθε φορά σε ένα Textbox στο τέλος της έκθεσης (Στη εφαρμογή εμφανίζονται 5-6 εκθέσεις...)
Να σε ευχαριστήσω για τη συμμετοχή σου σε αυτή την συζήτηση, μιας και τα γραφόμενά σου δώσανε σε μένα τη δυνατότητα να πάρω μια απόφαση.
Φίλε μου να είσαι καλά.
Νίκος Δ.

[kapetang]

Καλησπέρα

«Το περίεργο είναι ότι στο OnOpen η Aceess δεν παρουσιάζει το πρόβλημα.»
Φίλε Νίκο νομίζω ότι λύθηκε το μυστήριο. Για να εκτυπωθεί μία έκθεση χωρίς προεπισκόπηση, πρέπει να φορτωθεί στη μνήμη του υπολογιστή, οπότε πυροδοτείται το συμβάν OnOpen και ακολούθως χωρίς να εμφανιστεί στην οθόνη του υπολογιστή (χωρίς να ενεργοποιηθεί το συμβάν onLoad) να αποσταλεί στον εκτυπωτή.
Αν δεις τη σειρά και πότε ενεργοποιούνται τα συμβάντα Open, Load και Activate, τελικά όλα είναι φυσιολογικά.
Καλό βράδυ.

Γιώργος

[Meteora]

Γιώργο μου Καλησπέρα.
Δεν μπορώ να εμπιστευτώ τον κώδικα στο OnOpen, γιατί δεν έχω τον απαραίτητο χρόνο. Η εφαρμογή μου αυτή 'τρέχει' σε αρκετές σχολικές μονάδες ( 200 ), οπότε χρειάζομαι κάτι δοκιμασμένο.
Ο Γιάννης σε αυτή τη συζήτηση και ο Τάσος (μίλησα μαζί του) με συστήνουν να είμαι -ουσιαστικά-επιφυλακτικός.
Μόλις με δοθεί η ευκαιρία θα δοκιμάσω στο OnOpen, σε κάποια εφαρμογή που θα ελέγχω 'κατά βούληση' σε οποιαδήποτε στιγμή.
Φίλε μου θερμά σε ευχαριστώ για τη στήριξη που με προσφέρεις.
Καλό σου βράδυ
Νίκος Δ.

Υστερολόγιο: Θαυμάζω την άνεση με την οποία χειρίζεσαι ερωτήματα και γράφεις SQL... και όχι μόνο.

[nisgia]

Καλησπέρα σε όλους!

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

Φίλτατε Γιάννη, χαίρομαι κάθε φορά που σε διαβάζω.

Νίκο μου, και εγώ χαίρομαι πραγματικά κάθε φορά που σου γράφω!
Και υπογραμίζω το σου γράφω διότι δεν μου βγαίνει να στο πω στα θεσσαλονίτικα.

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

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

Χαίρομαι αν κατά κάποιο (έστω) τρόπο σε βοήθησα, όμως τον τελευταίο καιρό, έχω την εντύπωση πως
με την περίπτωσή σου, κάνω εντατική χρήση της ...μαιευτικής!

Να 'σαι και εσύ πάντα καλά φίλε μου!
Γιάννης