PDA

Vollständige Version anzeigen : Zeilen gezielt wiederholen


m8nix
09.10.2011, 14:37
Hi,

ich möchte einzelne Bilder von Artikeln zu einer Artikelgruppe zusammenstellen und daraus ein Gesamtbild erzeugen:

Artikelgruppe Artikel Menge Bild
1 A001 3 A
1 A002 1 B
1 A003 2 C


Eine Abfrage soll mir die einzelnen Bilder für einen Bericht zusammenstellen.
Wie schaffe ich es jetzt, das mir die Abfrage für jedes einzelne Bild, je nach Menge, eine neue Zeile erzeugt? Also quasi eine "Ungroup" - Funktion.
Das Ergebnis soll so aussehen:

Artikel Bild
A001 A
A001 A
A001 A
A002 B
A003 C
A003 C


Gruß
Chris

hcscherzer
09.10.2011, 15:06
Mit einer kleinen Prozedur ...dim rs as dao.recordset
dim i as integer
dim sqlc as string

set rs = currentdb.openrecordset("select artikel, menge, bild from tabelle"
do while not rs.eof
for i = 1 to rs!menge
sqlc = "insert into tabelle_neu (artikel, bild)"
sqlc = sqlc & " values ('" & rs!artikel & "', '" & rs!bild & "')"
currentdb.execute sqlc
next
rs.movenext
loop

rs.close
set rs = nothing

m8nix
09.10.2011, 15:48
Danke,

hab Deine Prozedur angepasst:

Private Sub Report_Load()
Dim rs As dao.Recordset
Dim i As Integer
Dim sqlc As String
Set rs = CurrentDb.OpenRecordset("select [Artikel], [Stückzahl], [Bild] from [A_Artikelbilder]")
Do While Not rs.EOF
For i = 1 To rs![Stückzahl]
sqlc = "insert into [Artikelbilder] ([Artikel], [Bild])"
sqlc = sqlc & " values ('" & rs![Artikel] & "', '" & rs![Bild] & "')"
CurrentDb.Execute sqlc
Next
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub


Die Tabelle Artikelbilder hab ich auch erstellt.
Jetzt erhalte ich bei Ausführen einen Laufzeitfehler 3035 - "Nicht genügend Systemrecourcen" in der Zeile: CurrentDb.Execute sqlc

In der Abfrage A_Artikelbilder sind zum Testen 8 Artikel mit einer Gesamtstückzahl von 15. An der Menge kanns also nicht liegen.

m8nix
09.10.2011, 16:27
Jetzt funktionierts. :)

Die Bilder als OLE-Objekte ließen sich nicht mit "insert into" einfügen.
Die hab ich weggelassen, der Bezug über den Artikel ist ja da.

Vielen Dank nochmal
Chris