Πολλαπλή εκτύπωση

Συζητήσεις για την τοπική βάση δεδομένων Access της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
ABLADE
Δημοσιεύσεις: 110
Εγγραφή: 18 Ιούλ 2007 18:55
Τοποθεσία: Θεσσαλονίκη
Επικοινωνία:

Πολλαπλή εκτύπωση

Δημοσίευση από ABLADE » 28 Αύγ 2007 15:13

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

Άβαταρ μέλους
georiege
Δημοσιεύσεις: 79
Εγγραφή: 09 Ιούλ 2007 11:29
Επικοινωνία:

Πολλαπλή εκτύπωση

Δημοσίευση από georiege » 04 Οκτ 2007 19:55

Καλησπέρα !

Πρέπει να γράψεις λίγο κώδικα σε VBA.

Αυτό γίνετε με τα παρακάτω βήματα :
Ας υποθέσουμε ότι το Textbox που θα δηλώνεις πόσες φορές θα
εκτυπωθεί η φόρμα σου ονομάζετε pnumber και το κουμπί που θα
πατάς για να γίνει η εκτύπωση ονομάζετε bprint.

Πατώντας δεξί κλικ επάνω στο κουμπί επιλεγείς ιδιότητες.
Επέλεξε την κατηγόρια (Συμβάν)
Πήγαινε στο συμβάν (Με το κλικ) και πάτα δεξιά ένα κουμπί με 3 τελείες που σου εμφανίζει.
Επέλεξε το (Λειτουργία δόμησης κώδικα)

Στο παράθυρο που θα σου ανοίξει για να γράψεις τον κώδικα σε (Visual Basic πλέων),
πρέπει να σου έχει έτοιμο γραμμένο το παρακάτω sub

Private Sub bprint_Click()

End Sub


Πήγαινε και πρόσθεσε την εντολή, έτσι ώστε ο κώδικας να είναι όπως παρακάτω.

Private Sub bprint_Click()

DoCmd.PrintOut ,,,,pnumber.Value

End Sub

Κλίσε το παράθυρο με την Visual Basic , κάνε Save και είσαι έτοιμος.

Εάν θέλεις μπορείς να βάλεις και έναν έλεγχο για να μην σου πετάει error εάν στο textbox δεν έχεις γράψει τίποτα ή εάν δεν έχεις γράψει αριθμό.
Οπότε ο κώδικας θα γίνει κάπως έτσι :

Private Sub bprint_Click()

If Not (pnumber.Value = "") Then
Else
Exit Sub
End If

If Not IsNumeric(pnumber.Value) Then
Exit Sub
End If


DoCmd.PrintOut ,,,,pnumber.Value

End Sub
Καλή επιτυχία :)
I do this for Aiur

http://www.aspx.gr

ABLADE
Δημοσιεύσεις: 110
Εγγραφή: 18 Ιούλ 2007 18:55
Τοποθεσία: Θεσσαλονίκη
Επικοινωνία:

Πολλαπλή εκτύπωση

Δημοσίευση από ABLADE » 15 Οκτ 2007 21:37

Ευχαριστώ πολύ, είχα απογοητευθεί (σχεδόν είχα ξεχάσει αυτό το post). Θα το δοκιμάσω αύριο και θα σου πω αποτελέσματα.
Thanx anyway!!!!!
Εικόνα

ABLADE
Δημοσιεύσεις: 110
Εγγραφή: 18 Ιούλ 2007 18:55
Τοποθεσία: Θεσσαλονίκη
Επικοινωνία:

Πολλαπλή εκτύπωση

Δημοσίευση από ABLADE » 17 Οκτ 2007 16:33

Τελικά δούλεψε αλλά δεν βολεύει γιαυτό που θέλω να κάνω. Πρέπει να βρω άλλο τρόπο. Βασικά θέλω απο μία δευτερεύουσα φόρμα η οποία έχει τα πεδια "τύπος" και "τεμάχια" να τυπώνω με ένα κλικ τόσα φυλλάδια απο τον κάθε τύπο όσα τα τεμάχια αυτού. Σκέφτηκα μήπως να έκανα ένα ερώτημα το οποίο θαδημιουργεί τόσες εγγραφές απο κάθε τύπο όσα και τεμάχια. Γίνεται?
Εικόνα

Programmer
Δημοσιεύσεις: 67
Εγγραφή: 22 Σεπ 2007 06:55

Πολλαπλή εκτύπωση

Δημοσίευση από Programmer » 18 Οκτ 2007 00:53

ABLADE έγραψε:Τελικά δούλεψε αλλά δεν βολεύει γιαυτό που θέλω να κάνω. Πρέπει να βρω άλλο τρόπο. Βασικά θέλω απο μία δευτερεύουσα φόρμα η οποία έχει τα πεδια "τύπος" και "τεμάχια" να τυπώνω με ένα κλικ τόσα φυλλάδια απο τον κάθε τύπο όσα τα τεμάχια αυτού. Σκέφτηκα μήπως να έκανα ένα ερώτημα το οποίο θαδημιουργεί τόσες εγγραφές απο κάθε τύπο όσα και τεμάχια. Γίνεται?
Όχι μην το κάνεις έτσι...
Αν βρω την όρεξη θα σου γράψω κώδικα σε visual basic να σου κάνει την δουλειά σου...
Δώσε όμως περισσότερες λεπτομέρειες πρώτα...

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

Απάντηση

Επιστροφή στο “MS Access”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 1 επισκέπτης