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

Ludger Honnacker

unread,

Mar 7, 2007, 7:53:32 PM3/7/07

to

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]

unread,

Mar 7, 2007, 9:02:02 PM3/7/07

to

Hallo Ludger

quoting 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

--
Keine E-Mails auf Postings in NGs senden!
KB: http://support.microsoft.com/default.aspx
FAQ: http://www.donkarl.com (neu mit Suchfunktion!)
OH: Online Hilfe von Microsoft Access (Taste F1)
Downloads: http://www.dbdev.org

Karl Donaubauer

unread,

Mar 8, 2007, 3:48:19 AM3/8/07

to

Ludger Honnacker wrote:
> 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.

--
HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
SQL Server-Entwickler-Konferenz (SEK1), 21./22.4.2007, Nürnberg

Ludger Honnacker

unread,

Mar 8, 2007, 4:20:35 AM3/8/07

to

> 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
>

Prima,

Danke für die schnelle Antwort !!!

MfG