??? Wie kann man mit VBA Daten in eine bestehende Tabelle schreiben?

[Ludger Honnacker]

Hallo,

Jetzt quäle ich ich mit VBA unter Access 8.0 bzw. Office 97 rum.

Ich habe eine leer Datenbank mit 163 Feldern erzeugt. Die Datenbank
(Tabelle) will ich mit einer VBA-Rotinen füllen, mithilfe eines Formulars
und oder eines Moduls.

Das Lesen meiner Textdatei geht ganz gut, aber ich weiss die Befehle nicht,
um die Zeichenketten bzw. die Werte in die entsprechenden Felder zu füllen.



Vielleicht weiss jemand ... Danke!



Mfg Ludger Honnacker

[Henry Habermacher [MVP Access]]

Hallo Ludger

Post by Ludger Honnacker
Jetzt quäle ich ich mit VBA unter Access 8.0 bzw. Office 97 rum.
Ich habe eine leer Datenbank mit 163 Feldern erzeugt. Die Datenbank
(Tabelle) will ich mit einer VBA-Rotinen füllen, mithilfe eines
Formulars und oder eines Moduls.
Das Lesen meiner Textdatei geht ganz gut, aber ich weiss die Befehle
nicht, um die Zeichenketten bzw. die Werte in die entsprechenden
Felder zu füllen.

Ich verstehe nur Bahnhof.
Wieso hat die Tabelle 163 Felder. Schau' Dir mal das Thema Normalisierung in
der FAQ an.
Wie willst Du die Tabelle füllen? Händisch eingeben?
Wieso liest Du jetzt eine Textdatei, was hat das mit dem vorherigen zu tun.

Ist es evt. so, dass Du eine Textdatei in eine bestehende Tabelle
importieren müsstest, das heisst die Datensätze anfügen?

Falls ja, verwende dazu den Import/Export Assistenten.

Gruss
Henry

[Karl Donaubauer]

Post by Ludger Honnacker
Jetzt quäle ich ich mit VBA unter Access 8.0 bzw. Office 97 rum.
Ich habe eine leer Datenbank mit 163 Feldern erzeugt. Die Datenbank
(Tabelle) will ich mit einer VBA-Rotinen füllen, mithilfe eines Formulars
und oder eines Moduls.
Das Lesen meiner Textdatei geht ganz gut, aber ich weiss die Befehle
nicht, um die Zeichenketten bzw. die Werte in die entsprechenden Felder
zu füllen. ...

Wie Henry schon schrieb, ist deine Rede dunkel.
Wenn du neue Datensätze per VBA in eine Tabelle schreiben willst,
kannst du z.B. DAO verwenden. Das könnte ungefähr so aussehen:

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = Currentdb
Set rs = db.Openrecordset("DeineZielTabelle", dbopendynaset)

rs.Addnew
rs!DeinTabellenFeld1 = "foo"
rs!DeinTabellenFeld2 = "bar"
rs.Update

Mit <F1> und den hier verwendeten Befehlen findest du weitere Info.

[Ludger Honnacker]

Post by Karl Donaubauer
Wenn du neue Datensätze per VBA in eine Tabelle schreiben willst,
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = Currentdb
Set rs = db.Openrecordset("DeineZielTabelle", dbopendynaset)
rs.Addnew
rs!DeinTabellenFeld1 = "foo"
rs!DeinTabellenFeld2 = "bar"
rs.Update

Prima,

Danke für die schnelle Antwort !!!


MfG