Как исправить синтаксическую ошибку в обновлении UPDATE в Access VBA

Question

Я пытаюсь создать базу данных и столкнулся с проблемой синтаксиса в инструкции UPDATE.Кто-нибудь знает, что не так с этим утверждением?

Я пытался настроить использование одинарных и двойных кавычек, но он все еще не работает.

    CurrentDb.Execute "INSERT INTO tbl_SponsorContacts (ContactName, ContactEmail, ContactPhone, SponsorID )" _
    & " VALUES ('" & Me.txtContactName & "','" & Me.txtContactEmail & "', '" & Me.txtContactPhone & "' , '" & Me.txtSpnID & "')"
    Else
    CurrentDb.Execute "UPDATE tbl_SponsorContacts SET ContactName = " _
    & " '" & Me.txtContactName & "', ContactEmail = '" & Me.txtContactEmail & "', " _
    & " ContactPhone = '" & Me.txtContactPhone & "', SponsorID = '" & Me.txtSpnID & "', WHERE ContactID = '" & Me.txtContactID & "'"
    End If
    Exit Sub

Я получаю синтаксическую ошибку 3144, которая не дает никаких подсказок относительно причины.Любая помощь приветствуется.

ОБНОВЛЕНИЕ: Спасибо Джерри М. и Форпасу за предложение удалить запятую перед тем, как.Это помогло, но я не получаю ошибку 3061 «Слишком мало параметров. Ожидается 1».Я отправлю новый вопрос.

Answer 1

Как уже упоминалось в комментариях @forpas, похоже, у вас есть дополнительные ,

Попробуйте ниже:

CurrentDb.Execute "INSERT INTO tbl_SponsorContacts (ContactName, ContactEmail, ContactPhone, SponsorID )" _
& " VALUES ('" & Me.txtContactName & "','" & Me.txtContactEmail & "', '" & Me.txtContactPhone & "' , '" & Me.txtSpnID & "')"
Else
CurrentDb.Execute "UPDATE tbl_SponsorContacts SET ContactName = " _
& " '" & Me.txtContactName & "', ContactEmail = '" & Me.txtContactEmail & "', " _
& " ContactPhone = '" & Me.txtContactPhone & "', SponsorID = '" & Me.txtSpnID & "'WHERE ContactID = '" & Me.txtContactID & "'"
End If
Exit Sub ```