
10-03-11, 19:23
|
 | Συντονιστής Όνομα: Νίκος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 28-12-2008 Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.033
| |
Χρήστο,
Την μακροεντολή με την οποία ανοίγεις την φόρμα φυσικά και πρέπει να την διώξεις, ως εξής:
Έλα σε περιβάλλον σχεδίασης της φόρμας. Επέλεξε το κουμπί που ανοίγει το report. Με επιλεγμένο το κουμπί, πήγαινε ιδιότητες -καρτέλα Συμβάν - επέλεξε το συμβάν με το κλικ - πάτα στις τρεις (...) τελείες ή στο βελάκι για να βρεις την επιλογή [Διαδικασία Συμβάντος].
Θα μεταφερθείς πλέον σε περιβάλλον όπου γράφεται η VBA !
Ο κέρσορας θα αναβοσβήνει ανάμεσα σε : Κώδικας:
Private Sub Command1_Click()
|
End Sub
Εκεί ανάμεσα γράψε (καλύτερα copyPaste) την γραμμή : Κώδικας:
DoCmd.OpenReport "Reportena", acViewPreview, , "[timi]*[posotita] >= 10 and [SECTIONID]=" & [SECTIONID]
Κάνε την προσαρμογή που επιβάλλεται, ώστε να εμφανίσεις τα πεδία που θες.
Τελευταία επεξεργασία από το χρήστη Meteora : 11-03-11 στις 06:36.
|