Обновить значение таблицы hardt vba access

Question

У меня есть следующий код vba для доступа к Microsoft, который я хочу использовать для обновления таблицы tb_users. Таблица имеет 4 столбца (Id, имя пользователя, пароль, 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 = Обновление tblusers установлено firstlogindate = дата(), где имя пользователя =»& CHR (34) & cbousername & CHR (34) выделены красным цветом.

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

Answer 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 

Answer 2

Попробуйте это:

Mysql = "Update tblusers set firstlogindate = date() where username ='" & cbousername & "'" 
db.Execute Mysql, dbFailOnError