[nasos23]

Καλημέρα σε όλους.
Δημήτρη μπορείς να δοκιμάσεις το εξής
πχ για τη φόρμα "frmA"

Option Compare Database
Option Explicit

Private Sub cboKatastimaA_AfterUpdate()
DoCmd.SetWarnings False
 Dim CRITERIA As String
   CRITERIA = DSum("POSO", "tblX", "KATASTIMA='" & Me.cboKatastimaA & "'") + Me.POSOA
     If Me.POSOA <> 0 And CRITERIA >= 0 Then
        DoCmd.RunSQL "INSERT INTO tblX (POSO,KATASTIMA ) VALUES (POSOB,cboKatastimaA )"
 Else
 MsgBox "Το άθροισμα των ποσών για το κατάστημα είναι αρνητικό!!", vbCritical, "Προσοχή!!"
 Me.POSOA.SetFocus
Exit Sub
End If
DoCmd.SetWarnings True

End Sub

Ομοίως και για τις άλλες φόρμες με τα ανάλογα πεδία.