SELECT / INSERT Probleme

[Ben.Wisch]

Hallo da draussen vor den Rechner

ich habe ein Problem, was auch sonst, ich würde ja sonst nicht Fragen ;-))
Ich möchte aus einer Tabelle (Allgemein) ein eine weitere Tabelle (DVD_Bewertung_d)
je Nummer eine vielzahl von Sätzen einfügen die ich noch später benennen möchte.
Hier mein Auszug aus dem Coding -

     Dim stLinkCriteria1 As String
     Dim stLinkCriteria2 As String
     stLinkCriteria1 = "1"
     stLinkCriteria2 = "Action"
     
     srtSQL4l = "SELECT Alg_Nummer FROM Allgemein;"

     Debug.Print strSQL4l

     DoCmd.RunSQL strSQL4l
     
     Set rs = CurrentDb.OpenRecordset("DVD_Bewertung_d")
     rs.AddNew
     rs![filmummer] = Allgemein.Alg_Nummer
     rs![Nummer] = stLinkCriteria1
     rs![Bezeichnung] = stLinkCriteria2
     rs.Update
     rs.Close
     Set rs = Nothing


Kann mir jemand helfen..........

DANKE

B E N    W I S C H
     

[oma]

Hallo,

und was ist nun eigentlich deine Frage??

anbei zum code:

srtSQL4l = "SELECT Alg_Nummer FROM Allgemein;"
Debug.Print strSQL4l
DoCmd.RunSQL strSQL4l

geht gar nicht, RunSQL kann nur mit einer Aktionsabfrage (INSERT, UPDATE) durchgeführt werden

nach dem DoCmd.RunSQL  dann aber neue Daten mit einem Rececordset; Wie denn nun?


Gruß Oma