[kapetang]

Καλησπέρα

Αν υποθέσουμε ότι τα πεδία ανήκουν στον πίνακα Table1, δοκίμασε τους κώδικες:

Private Sub Form_Current()
    If Me.NewRecord Then
        Me.[Λογιστικό υπόλοιπο] = DLookup("[Λογιστικό υπόλοιπο]", "Table1", "[Ημερομηνία]=Date()-1")
    End If
End Sub

Private Sub Form_Current()
    If Me.NewRecord Then
        Me.[Λογιστικό υπόλοιπο] = DLast("[Λογιστικό υπόλοιπο]", "Table1")
    End If
End Sub

Ο πρώτος επιστρέφει το λογιστικό υπόλοιπο της προηγούμενης (από την τρέχουσα ημερομηνία καταχώρησης) μέρας.

Ο δεύτερος το λογιστικό υπόλοιπο της τελευταίας καταχώρησης.

Ο κώδικας θα πρέπει να μπει στο συμβάν On Current της φόρμας.

Φιλικά/Γιώργος