title image


Smiley Re: Ja, wie soll denn das auch gehen...
danke Reinhard aus dem Norden...



Du bestätigst, was sich in meinem code tut und was ich ja auch weiss.

Ich hab nun Wochen verbracht, um Bilder auf der Festplatte ohne Tabellenbenutzung

in Access darzustellen.

Das beschleunigt aus Dir vielen bekannten Gründen heraus.

Die damit verbundene Speicherverwaltung bis hin zu registry Eingriffen hab ich abgearbeitet dabei.

Ich hab in meinem Formular Forms![frmBildanzeige]!die ungebundene Liste

DateiListe, welche ich über FileSearch und Me.DateiListe.RowSourceType = "Value List"

und Me!DateiListe.RowSource = Mid(filename, 2) fülle.

Daraus starte ich den Report.

Im Report möchte ich OHNE TABELLE

das auslesen und in einen Print Vorschau Bericht bringen.



Es ist wahrscheinlich sehr einfach, aber als Anfänger sitze ich Stunden darüber und

wende mich danach dann mal gerne auch an Spezialisten, die sich hier ja anbieten.

zugegebener weise bin ich sehr schlecht in logischen Schleifen



mein jetziger Code nochmal

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

Dim Laufwerksordner As String

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

Dim i As Integer

Dim filename As String

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

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

Debug.Print filename

'On Error Resume Next

Me!Bild6.Picture = filename

Next i

'es wird nur das letzte Bild im Bericht angezeigt. Es sollten alle itemdata(i)

'in der Printvorschau angezeigt werden.

'wie bekomme ich alle Bilder automatisch in einen Bericht?

End Sub



Verwende ich eine Tabelle, dann funktioniert es



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

On Error Resume Next

Me!TabName = Chr(34) & Me.RecordSource & Chr(34)

Me!Bild6.Picture = Me!Ordner & Me!Dateiname

End Sub



Private Sub Report_Open(Cancel As Integer)

On Error Resume Next

Me.RecordSource = Forms!frmBilderMenüTabelle!lstTables

'lstTables ist eine existierende Tabelle

'Me!Ordner und Me!Dateiname sind Felder der Tabelle

End Sub



letzte Frage: ich hab gestern nacht explicit schon mal geantwortet....werden Antworten ohne Begründung auch gelöscht?





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: