Auto save a record

A

arm

Hello! Could anyone please help me. I have this subform called
fsubWeeklyDate (in a continuous format) where the date field is
automatically filled when on new record. Is there a way (by code) to auto
save a new record other than pressing Shift+Enter key combination? Thank
you very much in advance.
 
M

Malcolm Cook

Private Sub form_current()
With Me
If .NewRecord Then
.Dirty = True
.Dirty = False
End If
End With
End Sub
 
Top