
03-07-12, 21:14
|
| Όνομα: Σαράντος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 12-04-2012
Μηνύματα: 7
| |
Τάσο κατάρχήν σε ευχαριστώ πάρα πολύ για την απαντησή σου έχω όμως κάποιες επιπλεον απορίες στον κώδικα που μου έγραψες .
Πρώτα απ όλα έχω κωλίσει με την γραμμή που μου έγραψες και δεν μπορώ να την δουλέψω στο μιαλό μου για να γράψω την σωστή εντολή η γραμμή σου είναι αυτή 'Εύρεση της συγκεκριμένης εγγραφής και αύξηση του πεδίου ποσότητας κατά 1 μονάδα
εγώ στον κωδικά που έχω τοποθετήσει στο AfterUpdate του πεδίου Barcode λέω το εξείς :
If DLookup("Barcode", "Invoice Details", "Barcode = '" & Barcode & "'") Then 'Ψάξε άν υπάρχει το barcode καταχωριμένω ξανά
Me.Quantity.Value = Me.Quantity.Value + 1 ' πρόσθεσε στα τεμάχια άλλο ένα
Me.Σύνολο_Γραμμής = Me.Quantity * Me.PricePerUnit ' Υπολόγισε το σύνολο γραμμής
DoCmd.RunCommand acCmdSave
DoCmd.GoToRecord , , acNewRec
Me.Barcode.SetFocus
Else
Σε ευχαριστώ και πάλι και αναμένω νέα σου
|