Как обновить столбцы, содержащие значения NULL, в VBA Access с использованием SQL?

Question

Я пытаюсь обновить столбцы, которые содержат нулевые значения. Я думал, что приведенный ниже код будет работать, но я получаю синтаксическую ошибку для пропущенного оператора в выражении запроса. Я не могу понять это. Любая помощь?

Private sub dataUpdate_Click()
Dim SQL As String
On Error GoTo cancelledClicked

SQL = "UPDATE table1 " & _
"SET [Column1] = 1 WHERE [Column1] IS NULL " & _
"SET [Column2] = 0 WHERE [Column2] IS NULL; "

DoCmd.RunSQL SQL

exitDataUpdate:
Exit Sub

ignoreError:
MsgBox Err.Description
Exit Sub

cancelledClicked:
If Err.Number = 2501 Then GoTo exitDataUpdate
If Err.Number <> 2501 Then GoTo ignoreError

Resume Next

End sub

Answer 1

Это логика, которую вы хотите?

UPDATE table1 
    SET [Column1] = NZ([Column1], 1),
        [Column2] = NZ([Column2], 0)
    WHERE [Column1] IS NULL OR [Column2] IS NULL

В вашем коде есть синтаксическая ошибка.