foto op een form zetten

[JEPEDEWE]

Ik dacht dit even snel op te lossen maar.... jammer.
Op een form maakte ik een "kader voor afhankelijk object"
Bij het openen schreef ik:

Private Sub Form_Open(Cancel As Integer)
Me.pasfoto = "z:\kine\xyz.jpg"
End Sub

XYZ.jpg bestaat effectief maar er wordt bij het openen van de form niets getoond

Wat doe ik verkeerd?

bedankt

JP

 

[alphamax]

Moet het geen afbeelding zijn (icoontje met zon en besneeuwde bergen)

 

[alphamax]

Met een afbeelding op het formulier

Private Sub Form_Load()
  Me.pasfoto.Picture = "z:\kine\xyz.jpg"
End Sub

 

[JEPEDEWE]

Correct..
maar
mijn code is nu:

Private Sub Form_Open(Cancel As Integer)
 Me.pasfoto.Picture = (CurrentProject.Path & "\Fotos\" & Forms![weergave patiënt]!RRN & ".jpg")
End Sub

Blijkbaar is de waarde van RRN op het moment van openen nog 0
Dus, er wordt niets gevonden

Hoe los ik DAT op?

Bedankt
jP

 

[OctaFish]

De code is sowieso een beetje ongelukkig gemaakt, maar inderdaad is je gebeurtenis ook fout. De vraag is ook of het om één plaatje gaat dat bij alle records moet worden getoond (eigen logo bijvoorbeeld) ofdat je per record (patiënt) een eigen afbeelding wilt laten zien. In dat geval moet er bij het veranderen van record een andere afbeelding worden geladen en heb je niks aan een gebeurtenis die maar één keer (bij het openen namelijk) wordt aangeroepen.

Private Sub Form_Current()
 Me.pasfoto.Picture = CurrentProject.Path & "\Fotos\" & Me.RRN.Value & ".jpg"
End Sub

 

[JEPEDEWE]

Super... probleem opgelost..
Zit ik nog alleen met een klein euvel (denk ik)
stel dat er voor die persoon geen foto is...

Hoekrijg ik dan mijn form toch nog getoond ZONDER foto

Bedankt
JP

 

[OctaFish]

Ik gebruik dan deze oplossing: een dummy plaatje (ik heb er dan een van 1 x 1 pixel) die je onzichtbaar maakt als er geen afbeelding in het veld staat.

 

[JEPEDEWE]

ik maakte zopas een on error code lijn aan... is dat ook goed denk je?
JP

 

[OctaFish]

Als het werkt, werkt het . Ik vind het minder netjes, ik gebruik dus een vervangend plaatje.