PDA

Vollständige Version anzeigen : ? Werte in Tabelle schreiben ?


DanTro
07.11.2001, 08:12
Guten Tag

Ich habe mir 6 Werte in einer VBA - Routine errechnen lassen. Diese Werte würde ich gerne in eine leere Tabelle namens "Test" übertragen.

Und zwar soll:
zahl1 in A1 stehen
zahl2 in A2 stehen
zahl3 in A3 stehen
zahl4 in A4 stehen
zahl5 in A5 stehen
zahl6 in A6 stehen

Ich würde dann gerne die Werte in einer Schleife errechnen lassen und die nächsten 6 Werte eine Zeile unter der A1:A6 schreiben.

Wie kann man das machen und wer könnte mir den VBA-Code sagen.

Mfg
DanTro

Mattes
07.11.2001, 08:16
Hallo DanTro,

Werte kannst Du per VBA in Deine Tabelle schreiben:

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


Set db = CurrentDb()
Set rs = db.OpenRecordset("NamederTabelle", dbOpenDynaset)
rs.AddNew
rs("NamedererstenSpalte") = Zahl1
rs("NamederzweitenSpalte") = Zahl2
rs.Update
rs.Close
Set rs = Nothing
Set db = Nothing

müsste gehen.