[tsgiannis]

Οταν δουλεύεις με πολλές γλώσσες αυτά παθαίνεις...ήθελε 2πλα quotes "
Αυτό που χρειάζεσαι είναι :

Private Sub Form_Current()
If Me.NewRecord Then
    Me.dateshift = DateAdd("d", 1, DMax("imerom", "ergasia")) + 1
End If

End Sub

Μπερδεύεις λίγο τα ονόματα με τα Aliases .... καλυτερα να κρατάς το όνομα του πεδίου για να μην ψάχνεις..δλδ ή Imerom ή DateShift (ή μάλλον καλύτερα ShiftDate) ...το οποίο θα είναι το όνομα του πεδίου στον πίνακα και θα διατηρηθεί παντού...απο εκεί και πέρα έχουμε τα labels για να βάζουμε βολικές ονομασίες

Καλη Μεγάλη Βδομάδα.