[Tasos]

Φίλε Μάριε, καλησπέρα!

Στο Form_AfterUpdate() της υποφόρμας πρόσθεσε τον παρακάτω κώδικα:

Option Compare Database
Option Explicit

Private Sub Form_AfterUpdate()
    If DSum("[ποσο_εκταμιευσης]", _
    "Table2", "αριθμος_λογαριασμου=" & Me.αριθμος_λογαριασμου) _
     > Me.Parent.ποσο_εγκρισης Then
     MsgBox "Υπέρβαση!", vbExclamation
    End If
End Sub

Όπου "Table1" = ή πηγή της κύριας φόρμας και
"Table2" = ή πηγή της υποφόρμας.
Τα λέμε...

Τάσος