SQL插入表问题

我有一个access数据库的用户日志；但是，如果系统崩溃，它不会正确记录用户注销。因此，我试图创建一个代码来检查用户在创建记录之前是否已登录

这是我的密码：

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语句，则不会收到错误消息

谢谢你的帮助。

---

Sorin

FROM

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

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

---

FROM

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

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

---

从表中选择*。查询中没有表名。缺少来自clause@Sorin . . . 打印出

sSQL

，答案可能很明显。这难道不是显而易见的下一步吗？比写关于堆栈溢出的问题更容易。

From

子句缺少

&From

？？那是什么？从表中选择*。查询中没有表名。缺少来自clause@Sorin . . . 打印出

sSQL

，答案可能很明显。这难道不是显而易见的下一步吗？比写关于堆栈溢出的问题更容易。

From

子句缺少

&From

？？那是什么？