Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: datekk am September 17, 2015, 22:27:14

Titel: VBA Anfügeabfrage mit Parameter aus Formular
Beitrag von: datekk am September 17, 2015, 22:27:14
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:

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
Titel: Re: VBA Anfügeabfrage mit Parameter aus Formular
Beitrag von: ebs17 am September 18, 2015, 08:30:38
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.
Titel: Re: VBA Anfügeabfrage mit Parameter aus Formular
Beitrag von: datekk am September 18, 2015, 10:59:08
Besten Dank :)