[Tasos]

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

Μάρω, τι είδους στρογγυλοποίηση είναι αυτή που ζητάς;
Αν ζητάς αυτή της Excel τότε

• Πάτησε ALT+F11 για να εμφανιστεί ο VBE.
• Δημιούργησε μια νέα λειτουργική μονάδα (Menu: Insert > Module) ή χρησιμοποιοίησε τυχόν υπάρχουσα.
• Πρόσθεσε (τσέκαρε) την αναφορά: Microsoft Excel XX.0 Object Library (Menu: Tools>References)
  όπου XX.0 = η έκδοση Excel που υπάρχει στον υπολογιστή.

Κατόπιν πέρασε τον παρακάτω κώδικα:

Private Sub Τεμαχια_AfterUpdate()
   If Not IsNull(Me.Τεμαχια) And Not IsNull(Me.Τιμη) Then Me.Ποσο = Excel.WorksheetFunction.RoundUp(Me.Τεμαχια * Me.Τιμη, 2)
End Sub

Private Sub Τιμη_AfterUpdate()
   If Not IsNull(Me.Τεμαχια) And Not IsNull(Me.Τιμη) Then Me.Ποσο = Excel.WorksheetFunction.RoundUp(Me.Τεμαχια * Me.Τιμη, 2)
End Sub

Διαφορετικά χρησιμοποιείς την Round() της VBA.

.... If Not IsNull(Me.Τεμαχια) And Not IsNull(Me.Τιμη) Then Me.Ποσο = Round(Me.Τεμαχια * Me.Τιμη, 2)

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

Τάσος