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

[mdragon]

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

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

[editolis]

Αγαπητη Φιλη Μαρω,

Το προβλημα σου νομιζω οτι εχει ευκολη λυση.

Υποθετω οτι το recordsource της φορμα σου ειναι ο πινακας σου
και οχι καποιο πολυπλοκο ερωτημα. Σε αυτην την περιπτωση
η παρακατω φορμουλα ισως σου ειναι αρκετη για την λυση.

Στο OnCurrent της φορμας βαλε τον τυπο:

txtPoso.value = me.[txtTemaxia] * me.[txtTimi]

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

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

[mdragon]

Ευχαριστώ Τόλη μου για την προσπάθεια αλλά μου βγάζει error
Η φόρμα μου προέχεται από έναν απλό πίνακα.
Φαντάζομαι ότι ο τύπος στο πεδίο θα παραμείνει ... έτσι δεν είναι???
Δεν ξέρω που κάνω λάθος

Όπως και να 'χει, ευχαριστώ

Μάρω

[Dangel82]

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

Ευχαριστώ Τόλη μου για την προσπάθεια αλλά μου βγάζει error
Η φόρμα μου προέχεται από έναν απλό πίνακα.
Φαντάζομαι ότι ο τύπος στο πεδίο θα παραμείνει ... έτσι δεν είναι???
Δεν ξέρω που κάνω λάθος

Όπως και να 'χει, ευχαριστώ

Μάρω

Τον τύπο στο πεδίο θα τον αντικαταστήσεις με το πεδίο θέλεις να ενημερώνεις. Τον τύπο που σου γράφει ο editolis θα τον βάλεις στο συμβάν Oncurrent.


Ανέβασε και ένα δείγμα όπως σου είπε ο Τόλης...

[Tasos]

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

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

Θα πρέπει να αφαιρέσεις τον τύπο αυτό από το υπολογισμένο πεδίο (που σου προκαλεί το σφάλμα στον κώδικα)
και να συνδέσεις με το ανάλογο πεδίο του πίνακα.

Κατόπιν, στο AfterUpdate() του πεδίου [txtTemaxia] ή/και του πεδίου [txtTimi]
μπορείς να υπολογίσεις την τιμή που θέλεις να περάσεις στο [txtPoso].

Πχ.: Me.txtPoso = me.txtTemaxia * me.txtTimi

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

Τάσος

[Σπύρος]

Ένας τρόπος που είχα δοκιμάσει εγώ σε παλιό πρόγραμμά μου και δουλεύει ακόμα είναι να βάλεις στο πεδίο txtTimh και στις ιδιότητες "μετα την απώλεια της εστίασης" τον παρακάτω κώδικα:

Private Sub txtTimh_LostFocus()
Me.txtPoso.Value = Me.txtTemaxia.Value * Me.txtTimh.Value
End Sub

Δουλεύει 100%
Ελπίζω να βοήθησα...
Φιλικά Σπύρος

[mdragon]

Καλημέρα σε όλους,
επισυννάπτω ένα αρχείο γιατι τελικά δεν κατάφερα να το διορθώσω.
έχω βάλει στο on current της φόρμας τον εξής τύπο
txtΠοσο.value = me.[txtΤεμαχια] * me.[txtΤιμη]
όπως μου είπατε αλλά πάλι τίποτα.


Σας ευχαριστώ,
Μάρω

[Tasos]

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

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

Για ποιο λόγο να γίνεται υπολογισμός κάθε φορά που επιλέγεται μια εγγραφή;

Απεναντίας, με το AfterUpdate(), θα υπολογιστούν οι τιμές σου μόνο όταν προκύψει κάποια
ενημέρωση από το χρήστη στα πεδία Τεμάχια και Τιμή (στην πράξη μια και μοναδική φορά).

'Έτσι λοιπόν θα σου πρότεινα στο AfterUpdate() των 2 αυτών πεδίων να χρησιμοποιήσεις:

Private Sub Τεμαχια_AfterUpdate()
      If Not IsNull(Me.Τεμαχια) And Not IsNull(Me.Τιμη) Then Me.Ποσο = Me.Τεμαχια * Me.Τιμη
Εnd Sub
   
Private Sub Τιμη_AfterUpdate()
      If Not IsNull(Me.Τεμαχια) And Not IsNull(Me.Τιμη) Then Me.Ποσο = Me.Τεμαχια * Me.Τιμη
End Sub

Φιλικά

Τάσος

[mdragon]

Ευχαριστώ Τάσο μου, δουλεύει μια χαρά.
Να ΄στε καλά και εσείς παιδιά για το χρόνο σας



Ευχαριστώ,

Μάρω

[editolis]

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

Επισης να πω για αλλη μια φορα το ποσο σημαντικο ειναι να χρησιμοποιουμε greklish
στην ACCESS. Εαν δεν το κανετε καποια στιγμη θα σπατε το κεφαλι σας να βρειτε γιατι
ενα ερωτημα πχ δεν "τρεχει" διοτι μπορει να λειπει ενας τονος απο καποια ονομασια ενος πινακα...κλπ...