Office: Formulardaten >>> Tabelle

Hallo!

Folgendes Problem:

Ich habe ein Formular, in dem Daten in verschiedene Felder eingefügt werden, diese sind dann wie üblich als Variablen zwischengespeichert.

Nun möchte ich mit einem Klick auf einen Button erreichen, dass die Inhalte der Variablen (also die eingaben in den Formlarfeldern) als eine Zeile in eine Tabelle angefügt werden.

Danach sollen die Formularfelder für eine erneute Eingabe zur verfügung stehen, welche wiederum per klick auf den Button an die Tabelle angehängt werden sollen.


Wie muss der Quelltext für den Button lauten, wenn beispielsweise zwei Formularfelder "FeldA" und "FeldB" als Zeile in die Tabelle mit den Spalten "SpalteA" und "SpalteB" eingefügt werden sollen?


Danke im Vorraus!

 

Das Zwischenspeichern der Feldinhalte in Variablen verbraucht nur unnötig Arbeitsspeicher. Das kann man sich sparen, wenn man direkt auf die Formularfelder zugreift und die aktuellen Werte zum Speichern direkt ausliest.

ohne Fehlerbehandlung kann das z.B. so aussehen:

(via Recordset)
dim rs as DAO.Recordset
set rs = CurrentDB.OpenRecordset("DeineTabelle")
rs.AddNew 'neuen DS anhängen
rs.FeldA = Me!FeldA 'Feldwert setzen
rs.FeldB = Me!FeldB 'Feldwert setzen
rs.Update 'Werte in Tab. schreiben
rs.close 'Recordset schliessen
set rs = Nothing
Me.Undo ' Änderungen im Form zurücksetzen

weitaus kürzer geht das aber mit
CurrentDB.Execute("SQL-Statement"),dbFailOnError
wenn als SQL-Statement eine INSERT INTO-Anweisung erfolgt. Die genaue Syntax hab ich leider nicht im Kopf, sollte aber etwa so aussehen:

dim strSQL
strSQL="INSERT INTO DeineTabelle ( FeldA , FeldB ) VALUES ( '" & Me!FeldA & "', '" & Me!FeldB & "' )
CurrentDB.Execute(strSQL),dbFailOnError
Me!Undo