|
Hallo zusammen,
Ich Versuche gerade aus einer Union-Abfrage "03_ProdukteFürPakete_Final" Zahlen auszulesen, um mit diesen dann später weiterzuarbeiten. Leider funktioniert es nicht, wie erhofft.
Hier der Code:
Dim rs As Recordset, Response As String, xProdukt As String, xVerbrauch As Integer
Set rs = CurrentDb().OpenRecordset("SELECT * FROM 03_ProdukteFürPakete_Final ")
rs.MoveFirst
Do While Not rs.EOF
Response = MsgBox("Produkte: " & rs!Produkt & vbNewLine & "Verbrauch: " & rs!Anzahl, vbOKOnly, "Check")
rs.MoveNext
Loop
Problem 1:
Er lässt einige Zeilen aus beim durchlaufen (wie ich an der Messagebox sehen kann). Es sind die Zeilen, bei denen in der Abfrage in der Spalte "Produkt" ein _ genutzt wird. Habe natürlich gleich getestet, ob es besser wird, wenn man den _ rausnimmt. Kein Unterschied.
Problem 2:
Obwohl in der Abfrage im Feld "Anzahl" Werte drinstehen, gibt er mir hier immer 0 zurück.
Ich habe leider keine Idee mehr - wäre sehr dankbar für jede Hilfe.
LG
Laura
|