This is my function:
Function PunchInOrOut(sMyCallingForm As String, MyPunchInOrOut As String, MyUserCodeAs String, MyUsername As String, MyPunchDate As Date, MyPunchTime As Date, ForFutureUse1$, ForFutureUse2$, ForFutureUse3$)
On Error GoTo MyErrorControl
Dim DB As DAO.Database, MyPunchID...