Formulardaten >>> Tabelle :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Formulardaten >>> Tabelle

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Access Hilfe

Autor

Nachricht

spacebug
Newbie
Newbie

Anmeldedatum: 15.10.2005
Beiträge: 4
Wohnort: Hamburg

Verfasst am: 29.11.2005, 23:17

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!

_________________
Meine Einarbeitung in "Access" - siehe Website.
Hilfe erwünscht! :o)

racoon0506
Office-Spezialist

Anmeldedatum: 20.01.2006
Beiträge: 85
Wohnort: Rümmelsheim

Verfasst am: 20.01.2006, 15:56

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

_________________
Ein kluger Mann widerspricht nie seiner Frau .... Er wartet, bis sie es selbst tut.
Feedback ist wichtig.
Bei Access-Fragen die verwendete Version angeben! Es gibt gravierende Unterschiede!!!!

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Access Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	fehlende Werte in Tabelle automatisch...	mm211	Microsoft Excel Hilfe	4	30.06.2008, 13:34
	PIVOT Tabelle	saschathede	Microsoft Excel Hilfe	6	26.06.2008, 08:52
	[Word 2003] Textfeld oder Tabelle mit...	-s!Gm4-	Microsoft Word Hilfe	0	24.06.2008, 13:39
	"Sum Pivot Tabelle" aus meh...	Lude	Microsoft Excel Hilfe	1	11.06.2008, 09:26
	Tabelle drehen???	Sally	Microsoft Word Hilfe	1	20.05.2008, 18:42

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de