[Tasos]

Δημήτρη καλημέρα!

Στο συμβάν AfterUpdate() της υποφόρμας Ofiles, βάλε το παρακάτω:

Private Sub Form_AfterUpdate()
    Me.Parent.Ofili = DSum("[Poso]", "Ofiles", "[Exoflisi]<>-1")
    Me.Parent.Refresh
End Sub

και στο συμβάν Click() του πλαισίου ελέγχου Exoflisi το παρακάτω:

Private Sub Exoflisi_Click()
    Form_AfterUpdate
End Sub

Φιλικά

Τάσος