Does anyone know if there is any reason why this code would work just fine in Access XP but not in Access 2000?
Private Sub Form_Current()
Dim myTime
Dim SDate
myTime = Time
SDate = Date
Me![Worked Date].Value = SDate
Me![WhenCalled].Value = myTime
Me![User].Value = Environ("username")
Me![Grabbed].Value = -1
End Sub
Private Sub Form_Current()
Dim myTime
Dim SDate
myTime = Time
SDate = Date
Me![Worked Date].Value = SDate
Me![WhenCalled].Value = myTime
Me![User].Value = Environ("username")
Me![Grabbed].Value = -1
End Sub