Обновить табличное значение tought VBA access

У меня есть следующий код vba microsoft access, который я хочу использовать для обновления таблицы под названием tb_users.
Таблица имеет 4 столбца (Id, username,password,firstlogindate).

Dim db as database
Dim MySQL as string
Set db= currentdb

If isnull(firstlogindate) =true then
    Mysql = Update tblusers set firstlogindate = date() where username =" & chr(34) & cbousername & chr(34)
    Execute db.mysql
Endif

Но я получаю следующую ошибку: [ожидая конца инструкции] с этой строкой. Mysql = Update tblusers set firstlogindate = date (), Где username =» & chr(34) & cbousername & chr (34) выделено красным цветом.

Что не так с кодом?
Есть ли лучший способ достичь вышеуказанного?

2 ответа

  1. Вы пропустите некоторые цитаты — или использовать одинарные цитаты:

    Dim db as DAO.Database
    Dim MySQL As String
    Set db= CurrentDb
    
    If IsNull(firstlogindate) = True Then
        MySQL = "update tblusers set firstlogindate = date() where username = '" & cbousername & "'"
        db.Execute MySQL
    End If