PDA

Vollständige Version anzeigen : Aus Formular div. Quellen in Tabelle schreiben


OliverGerds
26.04.2011, 15:33
Moin,

ich schreibe über folgenden Code aus einem Formular die Daten eines DS (Quelle ist eine Abfrage) in eine Tabelle.
Dim strSQL As String
strSQL = "INSERT INTO [tbl_archiv] SELECT qry_tbl_1011.* FROM [qry_tbl_1011] WHERE KTR =" & Me!KTR
CurrentDb.Execute strSQL
Nun möchte ich dem neu entstehenden DS noch einen Wert aus einem ungebundenen Feld aus dem Formular hinzufügen.
Dies Feld hat den Namen "Horst"
In der Tabelle [tbl_archiv] gibt es auch eine spalte "Horst"

Habe nun schon einiges versucht. Komme aber da nicht weiter.

Hat hier jemand eine Idee?

Grüße
Oliver

maikek
26.04.2011, 16:29
Hallo,
versuch's mal so:
INSERT INTO tbl_archiv ( Horst )
SELECT qry_tbl_1011.*, '" & Me!Horst & "' AS Horst
FROM qry_tbl_1011 WHERE KTR = " & Me!KTR

maike

wb_3001
26.04.2011, 16:40
Hallo Oliver!
Ich schlage eine Aktualisierungsabfrage für die Tabelle tbl_archiv vor:

UPDATE tbl_archiv SET tblMuster.ErgWert = forms!frmMuster![Horst].Value;

Wolfgang

OliverGerds
27.04.2011, 09:11
Hallo Maike,

funktioniert prima.

Danke!
Oliver

OliverGerds
27.04.2011, 09:13
Hallo Wolfgang,

vielen Dank für den Tipp.

Gruß
Oliver