本质上,我试图在使用 TimeIn 创建新行之前查找用户当前是否已登录,但是使用编写的代码,用户可以多次签入而不签出(TLog_TImeOut 字段为空)。我的代码在下面列出。
If Not IsNull(DLookup("[TLog_TimeIn]", "TIMELOG", "IsNull(TLog_TImeOut)= True And NetID = '[TempVars]![CurrentID]'")) Then
MsgBox ("Please Check out!")
DoCmd.Close acForm, "CHECKIN", acSaveNo
Exit Sub
Else
NetID = [TempVars]![CurrentID]
TLog_TimeIn = Now()
MsgBox ("Thanks for checking in!")
DoCmd.Close acForm, "CHECKIN", acSaveYes
Exit Sub
End If