VBA Anfügeabfrage mit Parameter aus Formular

[datekk]

Hi,

in einem Formular gibt es eine Schaltfläche. Wird diese gedrückt so sollen Inhalte der Quelltabelle tbl_AngebotAuftrag_Inhalt an die Tabelle tbl_DU_Verknüpfung angefügt werden. Es betrifft alle Datensätze, bei denen Checkboxen angehakt sind.

Soweit so gut, es klappt bei mir mit diesem Code:

Code [Auswählen] Erweitern

sSql = "Insert into tbl_DU_Verknüpfung (AngebotAuftragInhalte_ID) Select ID_Inhalte from AngebotAuftrag_Inhalte Where ckbx_Druckunterlagen = True"

DoCmd.RunSQL sSql



In der Zieltabelle tbl_DU_Verknüpfungen gibt es aber eine weitere Spalte und die möchte ich ebenfalls füllen. Diese nennt sich DU_Container_ID. Diese Spalte soll aber nicht mit einem Wert aus der Quelltabelle gefüllt werden sondern mit dem Wert des Feldes me.ID_DU_Container aus dem aktuellen Formular. Der Wert wäre also für alle eingefügten Elemente gleich.

Wie baue ich das oben in den SQL Teil ein?

Besten Dank für Eure Hilfe.

LG

[ebs17]

Code [Auswählen] Erweitern

sSql = "Insert into tbl_DU_Verknüpfung (AngebotAuftragInhalte_ID, DU_Container_ID)" & _
          " Select ID_Inhalte, " & Me.ID_DU_Container & " from AngebotAuftrag_Inhalte" & _
          " Where ckbx_Druckunterlagen = True"

' Debug.Print sSQL      ' Kontrollausgabe
CurrentDb.Execute sSql, dbFailOnError

Bei der Einfügung wären dann noch datentypgerechte Formatierungen für SQL zu beachten.

[datekk]

Besten Dank