variable Anzahl von Einträgen in ein Datenfile (Access)

KnoSoft, Montag, 03.06.2019, 11:08 (vor 16 Tagen)

Guten Tag!
Ich bin neu hier, wenn ich Fehler mache, bitte ich um Nachsicht.
Meine Access-Kenntnisse sind eher durchschnittlich.
Ich bitte um Hilfe jeder Art bei der Lösung nachstehenden Problems.
In einer Tabelle habe ich 2 Spalten:
1. ID (eindeutige Nummer- 3-stellig, selbst vergeben
2. Anzahl (variabel je nach Bedarf)

Nun möchte ich abhängig von der Anzahl ID's in einem Datenfile speichern.

Auszug aus der Tabelle:

ID=111, Anzahl=1
ID=112, Anzahl=4
ID=113, Anzahl=2 usw.

Im File sollte stehen:
111
112
112
112
112
113
113

Meine bisherigen Versuche:
Öffnen der Tabelle in ein Recordset
j = 1
Do While Not rs.EOF
iNotenkennung = rs!ID
i = i + 1
For j = 1 To rs!Anzahl
variable = rs!ID
Call InDateiSchreiben(Verzeichnis\AIWork.txt", variable)
j = j + 1
Next
rs.MoveNext
Loop
rs.Close

Ich erhalte wohl ein Ergebnis, das ist aber unbrauchbar.
Ich hoffe, dass mir jemand das Bret vorm Kopf entfernen kann-DANKE

variable Anzahl von Einträgen in ein Datenfile

Martin Asal @, Montag, 03.06.2019, 22:05 (vor 16 Tagen) @ KnoSoft

Hallo KnoSoft,

du hast ja auch kein Problem mit Access, sondern VBA. Um dir das Brett vorm Kopf runterzunehmen, solltest du im VBA-Tutorial mindestens mal den Abschnitt zu Schleifen lesen, dann verstehst du, dass du deine Prozedur mit all deinem Addieren ganz durcheinander bringst ;-)

Ich gehe davon aus, dass deine Prozedur "InDateiSchreiben" funktioniert und du davor auch schon ordentlich den Recordset greifen kannst. Für Recordsets verweise ich auch hier wieder auf das VBA-Tutorial.

rs.MoveFirst
Do While Not rs.EOF
    For j = 1 To rs!Anzahl
        InDateiSchreiben "Verzeichnis\AIWork.txt", rs!ID
    Next
    rs.MoveNext
Loop
rs.Close

Martin

variable Anzahl von Einträgen in ein Datenfile

Knobloch Harald @, Trofaiach, Dienstag, 04.06.2019, 07:56 (vor 15 Tagen) @ Martin Asal

Vielen Dank, es funktioniert wie gewünscht!
Und ja, Du hast recht: In VBA ist auch noch "viel Luft nach oben"

PS.: Hat euch schon jemand gesagt, dass euer Catcha furchtbar ist?

RSS-Feed dieser Diskussion
powered by my little forum