Insert into
Hallo zusammen,
ich kann nirgendwo den Syntax zu "insert into" finden. Bei meinem Konstrukt erhalte ich immer wieder "Syntaxfehler.
Problem: aus einer vorhandenen Tabelle sollen 2 Felder in eine Kopie dieser Tabelle eingefügt werden. Diese Kopie enthält ein drittes Feld, dass mit den Daten eier IIF-Anweisung gefüllt werden soll
Dim Abfrage As QueryDef
Dim DB As Database
Set DB = CurrentDb
Set Abfrage = DB.CreateQueryDef("", "INSERT INTO [Kopie von Return] (Case_Original, [Case], Text) SELECT Return.Case_Original, Return.Case, wenn(Len(Return.[Case])<8,1,2) FROM Return;")
Abfrage.Execute
Ich hoffe, jemand von Euch kennt die Lösung
Vielen Dank im Voraus
Baby
Antwort schreiben
Antwort 1 von Teerbaby vom 31.07.2020, 09:42 Options
Die Syntax ist:
INSERT INTO Tabelle (Spalte1, Spalte2, ...) VALUES (Wert1, Wert2, ....)
Antwort 2 von babypet vom 31.07.2020, 10:24 Options
Hi Teerbaby,
das mit value ist schon klar, ich muss aber 10000 daten aus einer anderen Tabelle einfügen, wobei das Dritte Feld mit den Werten der Wenn_Anweisung gefüllt werden soll.
Gruß babypet
Antwort 3 von babypet vom 31.07.2020, 13:26 Options
gelöst
es muss heissen:
Set Abfrage = DB.CreateQueryDef("", "INSERT INTO [Kopie von Return] (Case_Original, [Case], [Text]) SELECT Return.Case_Original, Return.Case, IIF(Len(Return.[Case])<8,1,2)as text1 FROM Return;")