title image


Smiley aus ungebundener Listbox Bilder im Bericht auflisten
hallo,

ich lese in eine ungebundene Listbox Dateinamen von Bildern.

Diese Bilder möchte ich nun in einen Bericht ausgeben.

Leider bekomme ich immer nur das letzte Bild.

Muss ich da mit einer Tabelle arbeiten und diese als recordSource angeben oder geht das auch ohne?...

Was mache ich falsch in folgendem Code?

danke für ein Ergebnis schon im Voraus.

derArb

Code:

Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)

Dim Laufwerksordner As String

Dim i As Variant



Laufwerksordner = "c:\arb\" & Forms![frmBildanzeige]!OrdnerKombofeld & "\"

filename As String

For i = 0 To Forms![frmBildanzeige]!DateiListe.ListCount - 1

filename = filename & Forms![frmBildanzeige]!DateiListe.ItemData(i)

'aus ungebundenem Listenfeld die Bildernamen auslesen

Debug.Print filename

'die einzelnen Bilder werden im Direktfenster richtig ausgeprintet

'(z.B. derArb.jpg)

Me!Bild6.Picture = Laufwerksordner & filename

'Access rödelt eine Zeitlang und es wird nur das letzte Bild im

'Bericht angezeigt. Es sollten alle itemdata(i)angezeigt werden.

filename = ""

Next i

End Sub



Private Sub Report_Open(Cancel As Integer)

On Error Resume Next

'Me.RecordSource = [frmBildanzeige]!DateiListe.RowSource

End Sub



_________________

behind every bush there is a terrorist

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: