fotos weergeven in rapport (Acces 2007)

[wilcovisser]

Hallo,

ik heb diverse fora afgestruind naar een oplossing voor mijn probleem.
Ik kan alleen nergens een oplossing vinden die ik werkend krijg.
Dit is de eerste keer dat ik iets met acces probeer, dus het is voor mij zoiezo redelijk lastig.

het volgende is wat ik heb:

Ik heb een tabel: tblOverzicht
hierin staan een aantal gegevens waaronder 'nummer' dit nummer is bij een ieder uniek.

ik heb een rapprt: rptOverzicht
De layout heb ik inmiddels ongeveer zoals ik hem wil hebben.
Er staat een foto van de persoon die bij het nummer hoort.
daaronder staan wat gegevens als voornaam, achternaam, team.
de indeling is zo gemaakt dat er 4 foto`s naast elkaar passen en 4 onder elkaar.
(het is eigenlijk een soort foto-overzicht zoals de leerkracht op school op bureau had liggen.

ik heb een map: U:\fotos\ waarin de fotos staan.
De naam van de foto correspondeert met het 'nummer' en

Ik heb een module: weergave foto

Private Sub Details_Format(Cancel As Integer, FormatCount As Integer)
' Als foutmelding
On Error GoTo nofoto
' Maak fotonaam
bestand = [Report_rptOverzicht].[nummer]

' Plak directory ervoor
bestand = "U:\foto\" + bestand + ".jpg"

' Ken foto toe aan rapport
Report_rptOverzicht.foto.Picture = bestand

GoTo eind
nofoto:
Report_rptOverzichtfoto.Picture = "U:\foto\geenfoto.jpg"
On Error GoTo 0
eind:
End Sub


Private Sub Report_Activate()

End Sub

Private Sub Report_Open(Cancel As Integer)

End Sub

Dit is wat ik wil:
ik wil dat voor ieder persoon de foto weergegeven wordt in het rapport obv een link tussen de foto in de map u:\foto\ en het uniek nummer dat is ingevoerd in de tabel.

Kunnen jullie mij hierbij helpen?

 

[OctaFish]

En wat is het probleem? Ik zou de code wel kunnen verbeteren (i.e. inkorten) maar dat verandert niks aan de functionaliteit.

Private Sub Details_Format(Cancel As Integer, FormatCount As Integer)
Dim Bestand As String
' Als foutmelding
    On Error GoTo NoFoto
    ' Maak fotonaam
    Bestand = "U:\foto\" & Me.nummer & ".jpg"
    ' Ken foto toe aan rapport
    Me.foto.Picture = Bestand
    Exit Sub

NoFoto:
    Me.Picture = "U:\foto\geenfoto.jpg"

End Sub

 

[wilcovisser]

Hallo,

ten eerste bedankt voor het inkorten.
Het ziet er zo simpel uit... alleen is toch voor mijn gevoel zo ingewikkeld...

Wat het probleem is, is dat het niet werkt.
Ter info, de code heb ik elders op internet gevonden en proberen aan te passen naar mijn situatie.

De foto wordt namelijk niet weergegeven in het rapport.
hier een voorbeeldje:


mvg
Wilco

 

[OctaFish]

Zonder db wordt het lastig om de oorzaak te vinden, maar wellicht heet het foto object bij jou anders, of heb je de verkeerde control gebruikt.

 

[wilcovisser]

Ik ben momenteel op het werk, ik kan geen database uploaden en een zip-file maken kan hier ook niet :s
Daarbij is er komende week de nucleaire top waardoor ik deze week nauwelijks thuis ben.

zodra ik tijd heb zal ik een zip uploaden met de DB.

 

[OctaFish]

Je kan de db eventueel op een fileshare zetten, dan hoef je verder weinig te doen. www.mijnbestand.nl bijvoorbeeld. Scheelt je weer wat tijd

 

[wilcovisser]

Dat is in ieder geval gelukt.
http://www.mijnbestand.nl/Bestand-AHQ8LOVADFLU.accdb

 

[OctaFish]

Ik heb 'm zonder veel problemen werkend gekregen. Wel moest ik de door jou gemaakte oplossing aanpassen. Stap 1: object Foto vervangen door een geselecteerde afbeelding en die de naam Foto geven. Jij had dat object gekoppeld aan de foto, maar dat mag sowieso nooit. Stap 2: (volgt logisch uit stap 1) het veld [Nummer] toevoegen aan het rapport. Hoef je niet te zien, dus mag je onzichtbaar maken. Stap 3: code aanpassen. Ik heb wat foto's in de map van de db gezet om te testen, maar dat mag je uiteraard aanpassen. De code voor de objecten zou ik wel laten zoals ik hieronder heb gedaan.

    pad = CurrentProject.Path
    Bestand = pad & "\" & Me.nummer & ".jpg"
    Me.foto.Picture = Bestand

En meer is het niet.