Today's date if no date

C

Carlos

Can any one check what is wrong here? It's not working.
After updating the first name, I want the computer to
check if EntryDate has a date already, if not put today's
date.

Private Sub FirstName_AfterUpdate()
If Me.EntryDate = Null Then
Me.EntryDate = Date
Else
End If
End Sub

I can't use the Default value, because it will create a
record even I cancel it. (I don't have a save button in
this form)

Thanks

Carlos
 
Top