Start Time calculation

[psamu]

I am trying to add start time in a access form when UpdateStart checked, it adds time in StartTime field, but only one problem I have user uncheck and checked back again StartTime also updated with the a new time.

Private Sub UpdateStart_AfterUpdate()
If Me.UpdateStart1 = -1 Then
Me.Name.Visible = True
Me.ValidationDate = Date

Me.StartTime = Now()

Else
Me.Name.Visible = False


End If
End Sub

 

[alansidman]

Try amending this line of code

[COLOR=#333333]If Me.UpdateStart1 = -1 Then

to

If Me.UpdateStart1 = -1 and IsNull(Me.StartTime) then[/COLOR]

 

[psamu]

I want when user clicked on UpdateStart1, then immediately Name visible, then only check the StartTime, if empty then fill in with the now (), time. If already a value in the box, then don't fill in the time.

Right now, when user click UpdateStart1, Name become available (That is what I want), but StartTime is populating with a current time instead of keeping the exiting time. Thanks.