Recordset - Werte einem Textfeld in ungebundenen Bericht zuweisen

13/06/2008 - 18:30 von Stefan Paesch | Report spam
Moin zusammen!

Ich möchte Werte aus einem Recordset ungebundenen Textfeldern in einem
Bericht zuweisen.

Private Sub Report_Open(Cancel As Integer)

Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT tblTempSalden.TempKdNr,
tblTempSalden.TempSaldo, tblAktuelleSalden.AktuellSaldo FROM
tblTempSalden INNER JOIN tblAktuelleSalden ON tblTempSalden.TempKdNr tblAktuelleSalden.AktuellKdNr;")

rs.MoveFirst

Do Until rs.EOF = True

Me.TempKdNr = rs!TempKdNr' Beispielhaft - funktioniert nicht
[Fehler: diesem Object kann

kein Wert zugewiesen werden]
rs.MoveNext

Loop
End Sub

Was mache ich falsch, wie sollte der Code richtig aussehen.

Vielen Dank für Eure Hilfe. Stefan.
 

Lesen sie die antworten

#1 Karl Donaubauer
13/06/2008 - 18:43 | Warnen spam
Stefan Paesch wrote:
Ich möchte Werte aus einem Recordset ungebundenen Textfeldern in einem
Bericht zuweisen.

Private Sub Report_Open(Cancel As Integer)

Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT tblTempSalden.TempKdNr,
tblTempSalden.TempSaldo, tblAktuelleSalden.AktuellSaldo FROM
tblTempSalden INNER JOIN tblAktuelleSalden ON tblTempSalden.TempKdNr > tblAktuelleSalden.AktuellKdNr;")

rs.MoveFirst

Do Until rs.EOF = True

Me.TempKdNr = rs!TempKdNr' Beispielhaft - funktioniert nicht
[Fehler: diesem Object kann kein Wert zugewiesen werden]
rs.MoveNext

Loop
End Sub

Was mache ich falsch, wie sollte der Code richtig aussehen.



Du bist zu früh dran. Beim Öffnen-Ereignis eines Berichtes kannst
du (anders als im Formular) noch keine Werte an Steuerelemente
zuweisen. Verwende "Beim Formatieren" des Bereiches.

HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
+ Entwickler-Konferenzen für Access (AEK) und SQL Server (SEK)

Ähnliche fragen