[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

κλπ