SQL插入表问题

Question

我有一个访问数据库的用户日志; 但是，如果系统崩溃，则无法正确记录用户注销。 所以我正在尝试创建一个代码来检查用户是否在创建记录之前列为已登录。

这是我的代码：

Function LogOn()
   Dim sUser As String
   Dim sSQL As String

   DoCmd.SetWarnings False
   sUser = Environ("username")
   sSQL = "INSERT INTO tblUserLog ( UserID )" _
    & "SELECT '" & sUser & "' AS [User] & WHERE tblUserLog.UserID='" & sUser & "' AND tblUserLog.LogOn Is Null & From tblUserLog;"
   DoCmd.RunSQL sSQL
   DoCmd.SetWarnings True
End Function

我收到的错误信息是

“必须至少有一个目的地表”。

如果我删除WHERE语句，我不会收到错误消息。

谢谢你的帮助。 索林

Answer 1

FROM子句放在错误的位置。 尝试更新查询

sSQL = "INSERT INTO tblUserLog ( UserID )" _
& "SELECT '" & sUser & "' AS [User] From tblUserLog WHERE tblUserLog.UserID='" & sUser & "' AND tblUserLog.LogOn Is Null ;"
                     -----------------^