Μη εμφάνιση αποτελέσματος τύπων σε πίνακες

[mdragon]

Τόλη μου σε ευχαριστώ,
και εσύ και ο Τάσος με βοηθήσατε πολύ.
Το πρόβλημα μου έχει λυθεί απλά ο Γιάννης απορεί γιατί να ζητάω αυτή τη λύση, και απλά το συζητάμε.

Την καλημέρα μου,

Μάρω

[editolis]

Κανε compile και αποθηκευση της ΒΔ.

Μετα συμπυκνωση και επιδιορθωση.

Κλεισε την ΒΔ και ξαναπροσπαθησε...

[mdragon]

Ναι βρε συ αλλά δεν μου απάντησες ....
στο πεδίο ποσό αφήνω τον τύπο ή λείτουργεί μόνο με τον κώδικα?

[editolis]

Το ζητουμενο σου εαν καταλαβα καλα ειναι να αποθηκευεται η τιμη
σε πεδιο στον πινακα.

Αρα σιγουρα θα πρεπει να χρησιμοποιησεις τον κωδικα
και οχι τον απλο τυπο που σου δειχνει απλα το αποτελεσμα.

Εαν εχεις δυσκολιες επισυναψε ενα δειγμα της ΒΔ σου.

Καλη συνεχεια...

[mdragon]

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

Καλησπέρα σε όλους,
έχω μία φόρμα στην οποία τα πεδία μου είναι τα εξής
Τεμάχια - Τιμή - Ποσό
Στο πεδίο Ποσό υπάρχει ο τύπος =[Τεμάχια]*[Τιμή]
Στη φόρμα μου το αποτέλεσμα εμφανίζεται κανονικά
Στον πίνακα όμως δεν έρχεται το αποτέλεσμα
Το πρόβλημά μου είναι ότι όταν στη φόρμα ζητάω το Άθροισμα του Ποσού το αποτέλεσμα που έρχεται είναι 0
Τι να κάνω?

Ευχαριστώ,
Μάρω

Να το κουράσω λίγο παραπάνω???
Τί γίνεται αν το αποτέλεσμα που επιθυμώ θέλω να είναι στρογγυλοποιημένο???

Ευχαριστώ
Μάρω

[Tasos]

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

Μάρω, τι είδους στρογγυλοποίηση είναι αυτή που ζητάς;
Αν ζητάς αυτή της Excel τότε

• Πάτησε ALT+F11 για να εμφανιστεί ο VBE.
• Δημιούργησε μια νέα λειτουργική μονάδα (Menu: Insert > Module) ή χρησιμοποιοίησε τυχόν υπάρχουσα.
• Πρόσθεσε (τσέκαρε) την αναφορά: Microsoft Excel XX.0 Object Library (Menu: Tools>References)
  όπου XX.0 = η έκδοση Excel που υπάρχει στον υπολογιστή.

Κατόπιν πέρασε τον παρακάτω κώδικα:

Private Sub Τεμαχια_AfterUpdate()
   If Not IsNull(Me.Τεμαχια) And Not IsNull(Me.Τιμη) Then Me.Ποσο = Excel.WorksheetFunction.RoundUp(Me.Τεμαχια * Me.Τιμη, 2)
End Sub

Private Sub Τιμη_AfterUpdate()
   If Not IsNull(Me.Τεμαχια) And Not IsNull(Me.Τιμη) Then Me.Ποσο = Excel.WorksheetFunction.RoundUp(Me.Τεμαχια * Me.Τιμη, 2)
End Sub

Διαφορετικά χρησιμοποιείς την Round() της VBA.

.... If Not IsNull(Me.Τεμαχια) And Not IsNull(Me.Τιμη) Then Me.Ποσο = Round(Me.Τεμαχια * Me.Τιμη, 2)

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

Τάσος

[mdragon]

Να ΄σαι καλά βρε Τάσο μου,
Δεν μπορείς να φανταστείς πόσα μου έχεις διδάξει


Σε ευχαριστώ,

Μάρω

[nisgia]

Μάρω, καλησπέρα και από έμενα!

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

Αν επιτρέπεται, γιατί προχωρείς σε κάτι τέτοιο
αφού έχεις την τιμή μονάδος και την ποσότητα ήδη διαθέσιμες;

Φιλικά, Γιάννης.

[mdragon]

Γιάννη καλησπέρα,
ο λόγος που το ζητάω αυτό, είναι γιατί δεν εμφανίζονται στις εκθέσεις διαφορέτικά.
Η επόμενη λύση θα ήταν να ξαναδημιουργήσω ερωτήματα στην έκθεση αλλά αυτό θα ήταν χρονοβόρο αφού έχω πολλές εκθέσεις που αντιστοιχούν σε μία φόρμα.



Μάρω

[nisgia]

Μάρω, είναι εύκολο για μια έκθεση να κάνει κάποιους βασικούς υπολογισμούς.

Φυσικά απ' ότι μου λες, στην περίπτωσή σου θα πρέπει να εισάγεις κάποια
επιπλέον χειριστήρια στις εκθέσεις και αυτό ίσως είναι επίπονο.

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

Γενικά είναι λίγο επισφαλείς αυτή η μέθοδο.

Σίγουρα θα γνωρίζεις για τα υπολογιζόμενα πεδία σε εκθέσεις αλλά αν θέλεις
δες ένα μικρό παράδειγμα μερικών και γενικών συνόλων στο συνημμένο.

Φιλικά, Γιάννης.