Εμφάνιση ενός μόνο μηνύματος
  #7  
Παλιά 26-09-10, 11:24
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

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

Δέσποινα καλωσόρισες κι από μένα!
Διόρθωσα το συνημμένο σου για να εμφανίζεται σωστά.
Αν ακολουθήσεις τις οδηγίες του Νίκου, δεν νομίζω να αντιμετωπίσεις πρόβλημα σε σχέση με την επισύναψη αρχείων στο φόρουμ.
Αν το αρχείο προς επισύναψη είναι μεγάλο, συμπίεσε το με Zip.
Με το τρόπο ο όγκος των αρχείων του Office (εκτός τα *.xls(x,m,b) θα μικρύνει έως και 10 φορές.

Τώρα στην ερώτηση σου.
Με τη λογική του ότι η τιμή του πεδίου [Μ3] εξαρτάται από την τιμή του πεδίου [ΜΗΚΟΣ ΠΩΛΗΣΗΣ], μπορείς να κάνεις τα παρακάτω:

Εκτέλεση ερωτήματος από μακροεντολή?-image0.png

Εκτέλεση ερωτήματος από μακροεντολή?-image1.png

Σύνδεσε το πεδίο της φόρμας [Μ3] με το πεδίο του πίνακα [ΠΑΡΑΓΩΓΗ].[Μ3] (Δε χρειάζεται πια να υπολογίζει).

Στο φύλλο ιδιοτήτων του πεδίου [Μ3], στην καρτέλα "Συμβάν" κάνε κλικ στο συμβάν "Μετά την ενημέρωση" και στο διάλογο επιλογής Δόμησης που θα εμφανιστεί, επίλεξε "Δόμηση κώδικα" (βλ. εικόνες παρακάτω).

Θα σου ανοίξει το παράθυρο του VBE όπου θα δεις το παρακάτω:

Κώδικας:
Private Sub ΜΗΚΟΣ ΠΩΛΗΣΗΣ_AfterUpdate()
  
End Sub
Άντικατέστησε το με το παρακάτω:

Κώδικας:
Private Sub ΜΗΚΟΣ ΠΩΛΗΣΗΣ_AfterUpdate()
     Me![M3] = IIf(Nz(Me![ ΜΗΚΟΣ ΠΩΛΗΣΗΣ], 0) * 2 = 0, Null, Me![ ΜΗΚΟΣ ΠΩΛΗΣΗΣ] * 2)
  End Sub
Με τον τρόπο αυτό δε χρειάζεσαι ερωτήματα ανανέωσης κτλ. αφού η υπολογιζόμενη τιμή περνιέται κατευθείαν στη φόρμα σου και φυσικά στον πίνακα (το πεδίο της φόρμας [Μ3] είναι πια συνδεμένο με το πεδίο του πίνακα [ΠΑΡΑΓΩΓΗ].[Μ3] )

Καλή συνέχεια!

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών

Τελευταία επεξεργασία από το χρήστη Tasos : 26-09-10 στις 12:32.
Απάντηση με παράθεση