Добавить запись, если она не существует

Question

Я пытаюсь написать проверку состояния, которая проверяет существование записи: если она делает это, она открывает форму, тогда как если она не добавляет запись сначала, а затем открывает форма.

У меня проверка условий работы, но я не могу понять, как добавить запись в таблицу.

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

В результате кода возникает ошибка Runtime (3134, синтаксическая ошибка в инструкции INSERT INTO).

Private Sub Test_Budget_Click() 

    If IsNull(DLookup("[ID to Link]", "TEST_Budget Information", "[ID to Link] = " & _ 
    [Forms]![Award Information]![Internal ID to Link] & "")) Then 

     DoCmd.RunSQL "INSERT INTO TEST_Budget Information([ID to Link])" & _ 
     "VALUES ('" & [Internal ID to Link] & "')" 
     MsgBox "Record does not exist" 
    Else 
     MsgBox "Record Exists" 
    End If 

End Sub 

Answer 1

Вы должны обернуть TEST_Budget Information в квадратных скобках, и вам не хватает пару пространств. Попробуйте это:

DoCmd.RunSQL "INSERT INTO [TEST_Budget Information] ([ID to Link])" & _ 
       " VALUES ('" & [Internal ID to Link] & "')" 

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