21-08-13, 10:21
|
| Όνομα: Πάνος Έκδοση λογισμικού Office: Ms-Office 2000, Ms-Office 2002, Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 27-09-2010 Περιοχή: Thessaloniki
Μηνύματα: 16
| |
 Πρόβλημα σε άθροισμα
Καλημέρα ονομάζομαι Πάνος,
χρησιμοποιώ τη βάση παραγγελιών του Τάσου και έχω κάνει κάποιες τροποποιήσεις έτσι ώστε να την φέρω στις απαιτήσεις τις δικές μου. Όλα καλά, πολύ εύχρηστη αλλά κάνοντας τις αλλαγές αντιμετώπισα πρόβλημα σε κάποια αθροίσματα των κελιών. Το πρόβλημα είναι: όταν πάω να επιλέξω είδος που αυτόματα συμπληρώνει κάποια πεδία, όπως πχ τιμή κλπ χτύπάει σφάλμα "Runtime error -2147352567 (800200009) Δεν μπορείτε να εκχωρήσετε τιμή σε αυτό το αντικείμενο" Και βγάζει "end" & "debug". Αν πατήσω "end" προχωράει, παίρνει τιμές αλλά δεν κάνει τα συνολικά αθροίσματα" Παραθέτω τον κώδικα & την βάση. Κώδικας: Private Sub CalculateValues()
DoCmd.RunCommand acCmdSaveRecord
Me.ProductPrice = Me.productid.Column(2)
Me.TotalPrice = Nz(Me.productid.Column(2) * Me.Pieces, 0)
DoCmd.RunCommand acCmdSaveRecord
Me.Parent.OrderPrice = DSum("TotalPrice", "OrderDetails", "OrderID=" & Me.Parent.OrderId)
End Sub
Ευχαριστώ εκ των προτέρων.
|