time combo box update

U

ukinusa

Hi, I have a field of type time that I want to update by 30min
everytime a user submits the form and goes to the next recors. THat is
it displays 9:00 when the form opens, the user fills all information
and clicks submit, then it should display 9:30. I have the followin
code to do that but it's not working. What am I doing wrong? Thanks!
Private Sub Timer_AfterUpdate()
Dim Test As Date
Test = DateAdd("n", 30, Timer)
Timer.DefaultValue = "'" & Test & "'"
End Su
 
Top