[Access] Problemen met Report & wisselende image

[Verwijderd]

Ik heb voor mijn database de volgende code gebruik om in een form afhankelijk van
de waarde schoolpasnummer een foto te plaatsen die dus gelijk is aan het nummer.

code:

Private Sub Form_Current()
On Error GoTo GeenFoto
Me.Foto.Picture = "C:\sis\afbeeldingen\pasfotos\" & Schoolpasnummer & ".jpg"

Exit Sub
GeenFoto: Me.Foto.Picture = "C:\sis\afbeeldingen\pasfotos\GeenFoto.jpg"



End Sub

Nu wil ik hetzelfde doen voor een Report, om hier dus ook nagelang het schoolpasnummer ook een foto te plaatsen die hier bij hoort.

Ik heb al wat rond gezocht op google,yahoo,mircosoft en hier en een boek ingezien van Access 2002 Visual Basic for Applications maar ik kan de oplossing niet vinden.
Ik zelf dacht aan:

code:

Private Sub Report_Open(Cancel As Integer)


On Error GoTo GeenFoto
Me.Foto.Picture = "C:\sis\afbeeldingen\pasfotos\" & Schoolpasnummer & ".jpg"

Exit Sub
GeenFoto: Me.Foto.Picture = "C:\sis\afbeeldingen\pasfotos\GeenFoto.jpg"
End Sub

maar deze geeft geen fout maar ook geen foto. Wat doe ik fout?

[OZ-Gump]

Bij mijn weten is bij de onOpen nog geen enkel schoolpasnummer bekend (je hebt nog geen active record in je recordset), en dus krijg je inderdaad geen foto. Hij kan het bestand *niks*.jpg niet laden.
Probeer dezelfde code eens onder de OnPrint event van het detail-gedeelte van het rapport...?

[ Voor 11% gewijzigd door OZ-Gump op 04-04-2003 14:09 . Reden: verduidelijking ]

[Verwijderd]

Maar volgens mij is wel alles bekend want zet ik bv schoolpasnummer in een onafhankelijk veld dan print ie het schoolpas nummer wel uit.

Onprint heb ik geprobeerd maar wil niet.

Ik gebruik de onderstaande query:

code:

SELECT partypas.id, partypas.schoolpasnummer, partypas.naam, partypas.adres, 
partypas.Geboortedatum, partypas.Klas, partypas.Bijzonderheden, partypas.[pc/pw],
 partypas.telefoon, partypas.activiteit, partypas.geldigopdatum, 
partypas.redenvanaanvraag
FROM partypas
WHERE (((partypas.id)=[Geef partypas id]));

[OZ-Gump]

En als je er een keiharde repaint tussen zet voor je gaat afdrukken? Geeft hij het op het scherm wel weer, of ook niet?

[Verwijderd]

Nee wacht ik wil niet afdrukken, ik wil eerst het report op het scherm zetten en op scherm(het report) zie ik het plaatje al niet.

(hoe doe ik een repaint?)

[OZ-Gump]

Wacht ff.... heb je wel een image op je report gezet, of probeer je de 'standaard' me.picture toe te wijzen?

[Verwijderd]

Ik heb al een image op her report gezet en dan probeer ik dmv van die Me.Foto.Picture de foto te wijzigen

[OZ-Gump]

OK, heb het hier net ff geprobeerd:

plaats een image op je rapport in het detail-vak. (image0)
Wijs het lege fotootje toe aan de image.
Bij de OnPrint van Detail geef je op:

Visual Basic:

  me.image0.picture = "bestandsnaam.jpg"

Als je geen bestandsnaam opgeeft pakt 'ie standaard de lege image, anders de image die hij nodig heeft. Voorbeeldje opscherm: je krijgt de juiste image te zien!

Good luck

[ Voor 5% gewijzigd door OZ-Gump op 04-04-2003 14:42 ]

[Verwijderd]

Maar hoe deel ik dan die Onprint toe?

code:

Private Sub Report_Open(Cancel As Integer)


On Error GoTo GeenFoto
Me.Foto.Picture = "C:\sis\afbeeldingen\pasfotos\" & Schoolpasnummer & ".jpg"
Exit Sub
GeenFoto: Me.Foto.Picture = "C:\sis\afbeeldingen\pasfotos\GeenFoto.jpg"
End Sub

Gewoon deze? Maar dan ipv Private Sub Report_Open(Cancel As Integer)
Private Sub Report_Onprint(Cancel As Integer) ofzo?

Ik wil het wel eerst nog aanschouwen op het scherm alvorens te printen als het kan.

offtopic:
mijn topic met die barcode font is verplaatst
ik weet alleen niet waar heen. Je mag hem mailen naar [e-mail]

[OZ-Gump]

Trevi: je topic over het barcode-font is gesloten. Kijk maar eens onderaan de topiclijst. Daar staat de jouwe met een slotje. Je kunt hem nog wel lezen... Enne... een beetje eigen initiatief kan geen kwaad... Google is je vriend.

Als je je rapport open hebt, klik je op het detail-gedeelte en open je daar de eigenshappen van. Vervolgens ga je naar de gebeurtenis (event) OnPrint. Redelijk basis...

[Verwijderd]

Eigen initiatief had ik al gedaan als je de font downloadt van die eerste link dan krijg je dus wel een gratis font maar er staat dan constant 'DEMO' door heen, niet echt bevorderlijk voor de barcode!
(2de link is ook betalen en degene die daarna komen ook, de gesponsorde links zijn ook betalen!! )

en dat onprint, ik ben nu alle gebeurtenissen afgegaan in Access maar ik kan dus nergens een onprint vinden in dat lijstje. Ik heb MS Office 2000 NL, zou het dan toch in moeten staan ofniet?

[OZ-Gump]

Kijk.... hier dus.

[ Voor 32% gewijzigd door OZ-Gump op 04-04-2003 15:16 ]

[OZ-Gump]

Aaaargh...
krijg die img niet clickable. De 1 er achter zetten wil niet helpen... Nou ja, dan zo maar (ivm layout vern**king) Mocht je hem op volle grootte willen bekijken: klik HIER

[Verwijderd]

Wat jij bedoelde heb ik gevonden, leuke is dat het in het nederlands, 'bij afdrukken' heet en in de vb code omschreven wordt als:

code:

Private Sub Details_Print(Cancel As Integer, PrintCount As Integer)
End Sub

vandaar dat ik dus niets kon vinden mbt onprint!

offtopic:
Lettertype blijft hier knudde, alleen maar demo's etc

[WimB]

Volgens Microsoft moet je de "onformat" bij de details-sectie gebruiken:
http://support.microsoft.com/?kbid=210100