Вставить инструкцию в доступе дает ошибку

Question

Я работаю над созданием чрезвычайно простой базы данных с 4 таблицами и всего несколькими частями информации за столбец. Одна из моих таблиц называется «Клиент», а внутри этой таблицы есть или четыре столбца для информации.

У меня есть кнопка на моем «AddCustomerForm», которая выполняет следующую команду

Private Sub cmdadd_Click() 
CurrentDb.Execute "INSERT INTO Customer(Customer ID, Email, Identifier) " & _ 
= VALUES(Customer ID, Email, Identifier) 
End Sub 

Моя Добавить анкету клиента выглядит следующим образом:

Может кто-то пожалуйста, указать на то, что я Мессинг ? Ошибка, которую я получаю:

Ошибка синтаксиса.

Answer 1

Private Sub cmdadd_Click() 
CurrentDb.Execute "INSERT INTO Customer ([Customer ID], Email, Identifier) VALUES([Forms]![MyFormName]![CustomerIDTextboxName], [Forms]![MyFormName]![EmailtextboxName], [Forms]![MyFormName]![IdentifierTextboxName]);" 
End Sub 

Для доступа требуется скобки вокруг любого имени поля с пробелом. Я также удалил = до VALUES и изменил значения, чтобы ссылаться на элементы управления формы, которые вам нужно будет назвать соответствующим образом. Для завершения заявления вам также понадобится полу-двоеточие, и вам нужно закрыть двойные кавычки.

This страница может помочь с синтаксисом.

Answer 2

Есть несколько проблем, которые я вижу - это [Идентификатор клиента] поле автонабора? Если так, не включайте его.

Кроме того - если вы используете ручную вставку, я предполагаю, что ваша форма НЕ привязана к вашей таблице, хотя я начинаю удивляться, почему идентификатор клиента отображается в форме как редактируемая?

Наконец, похоже, Место это числовой идентификатор, принадлежащий ID поля Location выпадающего списка, который заполняет в поле Business ID

Это поможет вам отладки SQL и показать нам, что случилось

Добавьте его на кнопку и показать нам значение, отображаемое в окне Immediate, когда код останавливает

Dim strSQL as string 
    strSQL = "INSERT INTO Customer ([Customer ID], Email, Identifier) VALUES (" _ 
    & me.[Customer ID] & ",""" & Me.[Email] & """,""" & Me.[Identifier] & """)" 
    Debug.print strSQL 

    CurrentDb.Execute strSQL 

Если идентификатор клиента AutoNumber попробовать это вместо того, чтобы (при условии, форма несвязанная) и расположением является ID значения первого столбца выпадающего списка

Dim strSQL as string 
    strSQL = "INSERT INTO Customer (Email, Identifier) VALUES (" _ 
    & me.[Customer ID] & ",""" & Me.[Email] & """, & Me.[Identifier] & ")" 
    Debug.print strSQL 

    CurrentDb.Execute strSQL