使用vba更新表中的字段的问题

Question

我试图在用户第一次登录时更新我的​​表tblusers的一个字段。所以我使用的代码如下：

Dim db as DAO.Database
Dim MySQL As String
Set db= CurrentDb

If IsNull(firstlogindate) = True  Then
    MySQL = "update tblusers set firstlogindate = date() where empid = " & txtempid & ""
    db.Execute MySQL, dbfailOnError
End If

但是没有任何反应。但是，当我尝试使用以下代码时： If IsNull(firstlogindate) = True or firstlogindate = ""然后 它可以工作但随后它会随时将字段更新为当前日期。这意味着firstlogin日期随时更新到当前日期。 有什么问题？

Answer 1

在代码模块中使用：

String

我猜你在想这个：

Option Explicit