Αριθμητικές πράξεις σε φόρμα & +

[iliast]

Χαίρετε

Η βάση δεδομενων, ειναι αυτη που εκανα upload στο Mega cloud και ονομάζεται "Εργασίες". Παραθετω το link:
https://mega.nz/file/4FtQGKRJ#Hi55pJ...L8VUZoSZitngN0

Προσπαθω να:

1. Στη φόρμα "Εργασίες", όταν γραφω την "Ποσότητα" ενος υλικού στο ανάλογο πεδίο, να προσδιορίζεται αυτόματα για ποιο υλικο προκειται από τον πίνακα "Υλικά", ωστε:

α. να πληκτρολογώ μόνον την Ποσότητα και να γίνεται αυτόματος πολλαπλασιασμος Ποσοτητα*ΚόστοςΥλικού ωστε να φαίνεται το γινόμενο στα πεδία "Κόστος Υλικού 1,2,3..." κ.ο.κ. της φόρμας

β. Το άθροισμα των επι μερους αυτων γινομένων, να υπολογίζεται αυτόματα στο πεδίο της φόρμας "Συνολικό Κόστος με ΦΠΑ". (ΦΠΑ 24%)

γ. Να ενημερώνεται και να εμφανίζεται το ιδιο αποτέλεσμα στο πεδίο "ΣυνολικόΚόστος" του πίνακα "Εργασίες".

2. Να εμφανίζεται η "Ημέρα" του συγκεκριμένου έτους στο ανάλογο πεδίο της φόρμας, όταν πληκτρολογώ την "Ημερομηνία" στο ανάλογο επίσης πεδίο.

ΣΗΜ: Το πεδίο "Ποσότητα" βρίσκεται στον πίνακα "Εργασίες".
Το πεδίο "ΚόστοςΥλικού", βρίσκεται στον πίνακα "Υλικά".

Ευχαριστώ

[nasos23]

Καλημέρα σε όλους.
Φίλε Ηλία δες μια προσέγγιση του ζητούμενου στο
συνημμένο αρχείο.

Υ.Γ. Θα πρότεινα να μελετήσεις τον παρακάτω σύνδεσμο:
https://support.microsoft.com/el-gr/...bmrefinedesign

για την καλύτερη κατανόηση στον σχεδιασμό μίας βάσης δεδομένων

[iliast]

Αγαπητε Νασο καλημερα και καλο μηνα για αυριο.
Οι υποφορμες θα ηταν μια πολυ καλη προσεγγιση, αν γινοταν απο την αρχη, πριν χρονια που αρχισα αυτη τη βαση.
Δυστυχως εγινε οπως εγινε και οι υπαλληλοι που την συμπληρωνουν,την ξερουν χρονια με την μορφη που εχει τωρα και την οποια γνωστοποιησα. Οποτε οτι προσπαθηθει απο δω και περα τωρα που αποφασισαμε να κανουμε μια "ανανεωση" και 1-2 προσθηκες σε ζητουμενα, θα προσπαθηθει στην ηδη υπαρχουσα μορφη.
Επίσης εχει περασει πολυς καιρος απο τοτε που τη δημιουργησα, με διαβασμα, αναζητηση διαδικτυακη, μικρες βοηθειες και πολυ ενασχόληση. Τωρα εχω σχεδον ξεχασει τα περισσοτερα απο αυτα που εχω κανει ή εχω διαβασει, αλλα να που χρειαστηκε αυτο το "φρεσκαρισμα" σε μια βαση ηλικιας αρκετων ετων μεν, ακομη απαραιτητης στην εργασια μου δε.
Σ' ευχαριστω παρα πολυ για τον κόπο σου παρ' ολα αυτα, που προσπαθησες να με διευκολυνεις με αλλο τροπο.
Στο δια ταυτα τωρα, εχω καταφερει να κανω την αθροιση τουλαχιστον μετα το post μου, στα Δεδομενα, στην Προελευση στοιχειου ελεγχου, ως εξης:

=([ΚόστοςΥλικού1]+[ΚόστοςΥλικού2]+[ΚόστοςΥλικού3]+[ΚόστοςΥλικού4]+[ΚόστοςΥλικού5]+[ΚόστοςΥλικού6]+[ΚόστοςΥλικού7]+[ΚόστοςΥλικού8]+[ΚόστοςΥλικού9]+[ΚόστοςΥλικού10])/100*24+([ΚόστοςΥλικού1]+[ΚόστοςΥλικού2]+[ΚόστοςΥλικού3]+[ΚόστοςΥλικού4]+[ΚόστοςΥλικού5]+[ΚόστοςΥλικού6]+[ΚόστοςΥλικού7]+[ΚόστοςΥλικού8]+[ΚόστοςΥλικού9]+[ΚόστοςΥλικού10])

Με λιγα λογια πέτυχα το 1β απο τα ζητουμενα του μηνύματός μου. "Φλύαρα", αλλα κανει τη δουλεια του.
Δε χρειαζότανε να ασχοληθεις με τις αμοιβες του Προσωπικου και των Οχημάτων. Με ενδιαφερουν ΜΟΝΟ οι τιμες και τα κοστη των Υλικων. Στη βαση αυτη, ουδεποτε ασχοληθηκαμε με τη μισθοδοσια και σταματησαμε να υπολογιζουμε τις αμοιβες των ενοικιαζομενων οχηματων (απλά έμεινε ετσι η σχεδιαση και δε συμπληρωνουμε οικονομικα στοιχεια στα Οχηματα πια).
Ειδα οτι καταφερες να γραφεται η Ημερομηνια και να εμφανιζεται αυτοματα η Ημερα, οπως το ανεφερα στο post μου.
Θα ηθελα αυτο να το δουμε αναλυτικα πως το πετυχες, γιατι ηταν απορια ετων.
Αρα μαζι με αυτο, μενουν μονο τα αυτοματα γινομενα που εγραψα στο 1α και το 1γ.

[nasos23]

Καλημέρα Ηλία και καλό μήνα.
Δες τον κώδικα στο συνημμένο αρχείο
Όσον αφορά την εμφάνιση της ημέρας στο πεδίο Ημέρα
χρησιμοποιούμε τον εξής κώδικα:

Private Sub Ημερομηνία_AfterUpdate()
 Me!Ημέρα = Format(Ημερομηνία, "dddd")
End Sub

Μετά την ενημέρωση τού πεδίου ημερομηνία
το πεδίο Ημέρα ενημερώνεται με την τιμή του πεδίου
Ημερομηνία διαμορφωμένη ως όνομα ημέρας Format(Ημερομηνία, "dddd")

Υ.Γ. Στον πίνακα εργασίες πρόσθεσα ακόμη ένα πεδίο "ΣυνολικόΚόστοςΜεΦΠΑ"

[pakos]

καλησπερα,
α) πάνω στην ιδια φορμα θα πρεπει να προθεσεις και την ΤιμήΜονάδος ξεχωριστα στο combo Υλικό1
όπως παρακατω

SELECT Υλικά.ΚωδΥλικά, [Υλικό] & ", " & [Μονάδα] & ", " & [ΤιμήΜονάδος] & "€" AS Eκφρ1, Υλικά.ΤιμήΜονάδος FROM Υλικά ORDER BY Υλικά.Υλικό;

το κανεις αντιγραφη επικόλληση
3 στηλες
πλατη στηλων 0εκ.;14,318εκ.;0εκ.

σε ολα τα Υλικό1,2,3,4,5,6,.....


β) στο κουμπι ποσοτητα1
Private Sub Ποσότητα1_AfterUpdate()
Dim sum As String
sum = Nz(Me.Ποσότητα1) * Nz(Me.Υλικό1.Column(2)) + Nz(Me.Ποσότητα2) * Nz(Me.Υλικό2.Column(2)) + Nz(Me.Ποσότητα3) * Nz(Me.Υλικό3.Column(2)) + Nz(Me.Ποσότητα4) * Nz(Me.Υλικό4.Column(2)) + Nz(Me.Ποσότητα5) * Nz(Me.Υλικό5.Column(2)) + Nz(Me.Ποσότητα6) * Nz(Me.Υλικό6.Column(2)) + Nz(Me.Ποσότητα7) * Nz(Me.Υλικό7.Column(2))

Me.ΚόστοςΥλικού1 = Me.Ποσότητα1 * Me.Υλικό1.Column(2)
Me.ΓενικόΣυνολικό = Round(sum * 1.24, 2)
End Sub


γ) στο κουμπι ποσοτητα2
Private Sub Ποσότητα2_AfterUpdate()
Me.ΚόστοςΥλικού2 = Me.Ποσότητα2 * Me.Υλικό2.Column(2)
Me.ΓενικόΣυνολικό = Round(sum * 1.24, 2)
End Sub

κλπ

[iliast]

Καλησπερα σας

Στο παρακατω link ειναι η βαση στην τελικη της μορφή, μαζι με εγγραφες που εκανα copy-paste, γιατι ειχαν γινει πριν τις αλλαγες.

https://mega.nz/file/9NVR0agR#LXGcje...PlVYVgpLFKaWBs

Το προβλημα ειναι πως δε μπορω να περασω αλλες εγγραφες, χειροκινητα πια και οχι με copy-paste, επειτα απο αυτες που ηδη επικολλησα (μπορειτε να κανετε αποπειρα νεας εγγραφης στη φορμα και να δειτε ακριβως τι γινεται).

Επισης, οταν βαζω Υλικα που δεν εχουν τιμη, με πεταει στο debug της VB, πραγμα ακρως ενοχλητικο.

Το κυριο βεβαια ειναι οτι δε μπορω να προχωρησω παραπερα χειροκινηταμ, ενω φαινοταν ολα να πηγαινουν τοσο καλα....

[nasos23]

Καλησπέρα Ηλία.
Κατέβασα την βάση και φαίνεται να δουλεύει μια χαρά (ήδη έχω δημιουργήσει τρεις εγγραφές 101,102,103 χωρίς κανένα πρόβλημα).
Όσον αφορά το μήνυμα λάθους π.χ. για το πεδίο Ποσότητα1 μπορεί να διορθωθεί ως εξής:

Private Sub Ποσότητα1_AfterUpdate()
If IsNull(Υλικό1.Column(2)) Or Υλικό1.Column(2) = "" Then
Exit Sub
Else
Me.ΚόστοςΥλικού1 = Υλικό1.Column(2) * Ποσότητα1
End If
synolikoKostos
End Sub

Αντίστοιχες διορθώσεις και στα υπόλοιπα πεδία Ποσότητα.
Δες το συνημμένο αρχείο

[iliast]

Καλησπερα σας και παλι

Σιγουρα συμβαινει κατι παραξενο. Οταν εγω πατω κάτω στη φορμα το εικονιδιο νεας εγγραφης, στην επομενη εγγραφη, εχω την εικονα της συννημενης εικονας (screenshot).

1. Το πεδιο αυτοματης αριθμησης (ID) ειναι γεματο με διέσεις και οχι απο το επομενο νουμερο εγγραφης
2. Παραλείπεται το πεδιο του Αριθ. Δελτιου και αναβοσβυνει ο κερσορας στο επομενο πεδιο της Ημερομηνιας, ενω το εχω No 1 tab (το ID ειναι το Νο 0)..
3. Επιπλεον το πεδιο του Αριθ. Δελτιου ΚΑΙ αλλαζει μορφη (γινεται ασπρο flat και οχι γκρι υπερυψωμενο οπως πρεπει) ΚΑΙ ειναι ανενεργο και δε μπορεις να γραψεις κατι μεσα.

Δε ξερω.... Ειναι θεμα εκδοσης του Office λετε; Σας γραφω απο το λαπτοπ του σπιτιου τωρα. Το μεσημερι σας εγραψα απο το PC της δουλειας. Και στα δυο μηχανηματα, εχω την ιδια εκδοση Office, με ολα τα τελευταια updates. Και στα δυο, εχω την ιδια συμπεριφορα...

[nasos23]

Αγαπητέ Ηλία.

1. Το πεδιο αυτοματης αριθμησης (ID) ειναι γεματο με διέσεις και οχι απο το επομενο νουμερο εγγραφης

Είναι θέμα πλάτους του πεδίου.Εάν σε προβολή σχεδίασης μεγαλώσεις το πλάτος του πεδίου της αυτόματης αρίθμησης θα δείς ότι πρίν την ενημέρωση γράφει "(Νέο)"

2. Παραλείπεται το πεδιο του Αριθ. Δελτιου και αναβοσβυνει ...

Το πεδίο Αριθ. Δελτιου είναι "κλειδωμένο" με μορφοποίηση υπό όρους πριν την ενημέρωση της ημερομηνίας.¨Οταν ενημερωθεί το πεδίο Ημερομηνία τότε η τιμή του Αριθ. Δελτιου μέσω κώδικα αυξάνεται κατά +1 από τον τελευταίο αριθμό (δηλ. έχει χαρακτηριστικά αυτόματης αρίθμησης).

3. Επιπλεον το πεδιο του Αριθ. Δελτιου ΚΑΙ αλλαζει μορφη...

Ότι ισχύει για το 2.

Ερώτηση: Το πεδίο Αριθ. Δελτιου έχει τα χαρακτηριστικά της αυτόματης αρίθμησης. Θέλεις να αλλάξεις τη δομή και να ενημερώνεις χειροκίνητα το πεδίο;

[iliast]

1. Οσο αναφορα το ID, ειναι αδυνατο εσεις να κανατε μια δοκιμαστικη εγγραφη με αυξοντα 103 και να φαινεται επανω στο πεδιο του ID και η επομενη εγγραφη (η 104), να μη φαινεται και να δειχνει διέσεις.

2. & 3. Μα παντα το πεδιο Αριθ. Δελτιου, δεν ειχε χαρακτηριστικα αυτοματης αριθμησης... Τουλαχιστον αυτη ειναι η συμπεριφορα του πεδίου, τουλαχιστον μεχρι την τελευταια εγγραφη που εκανα copy-paste οπως ειπα. Οι αριθμοι δελτιων ειναι τυχαιοι, απο διάφορα μπλοκς και γραφονται χειροκινητα.

ΥΓ. Σας εχω στειλει μηνυμα ηλεκτρονικου ταχυδρομειου, μεσω της ιστοσελιδας. Διαβαστε το.