Hinzufügen Datensatz, wenn es nicht existiert

Question

Ich versuche eine Bedingungsprüfung zu schreiben, die überprüft, ob der Datensatz existiert: Wenn es das tut, dann öffnet es ein Formular, während es zuerst einen Datensatz hinzufügt und dann öffnet bilden.

Ich habe die Bedingungsprüfung funktioniert, aber ich kann nicht herausfinden, wie Sie einen Datensatz zur Tabelle hinzufügen.

Die Tabelle hat nur zwei Spalten (ID, ID zu Link). ID ist eine automatische Nummer und ist der Primärschlüssel. ID zu Link dient nur dazu, Budgetdaten mit dem entsprechenden Konto zu verknüpfen.

Der Code führt zu einem Laufzeitfehler (3134, Syntaxfehler in INSERT INTO-Anweisung).

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

Sie sollten TEST_Budget Information in eckige Klammern umbrechen und es fehlen ein paar Leerzeichen. Versuchen Sie folgendes:

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

Ich würde das in der Zukunft empfehlen vermeiden Sie Leerzeichen in Tabellen- und Spaltennamen aufweisen, da sie Probleme verursachen können.