Εμφάνιση ενός μόνο μηνύματος
  #8  
Παλιά 10-03-11, 19:23
Το avatar του χρήστη Meteora
Meteora Ο χρήστης Meteora δεν είναι συνδεδεμένος
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού 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.
Απάντηση με παράθεση