Goeie dag iedereen,
ik heb een database gemaakt om gegevens van het personeel in te bewaren.
Er is een plaats op het netwerkt waar van een groot gedeelte van de vaste medewerkers foto's staan. Om deze foto's te gebruiker is me gelukt.
Bij het openen van een record word de juiste foto geopend.
Er is echter een probleem waneer ik een record open van iemand waar geen foto van de vinden is. Ondanks dat ik in mijn macro aangeef dat setwarnings 'no" toch blijf ik een vervelende melding krijgen dat het bestand niet te vinden is.
Nu heb ik een " geen foto beschikbaar" plaatje gemaakt die ik in dit soort gevallen wil laten gebruiken.
Maar dit lukt me niet.
vb code die ik onderliggend gebruik is de volgende
Function setfoto()
On Error GoTo setfoto_Err
DoCmd.SetWarnings False
Forms![Active Dir]!Image29.HyperlinkSubAddress = "\\Nldvst0247\Database\mexx pasfotos\"
Forms![Active Dir]!Image29.Picture = Forms![Active Dir]!Name
& ".jpg"
setfoto_Exit:
Exit Function
setfoto_Err:
MsgBox Error$
Resume setfoto_Exit
End Function
de &".jpg" word wel rood aangegeven maar werkt wel in de macro.
Bovenstaande code werkt dus prima maar moet iets toevoegen voor het geval het bestand niet bestaan.
Kan iemand me helpen?
ik heb een database gemaakt om gegevens van het personeel in te bewaren.
Er is een plaats op het netwerkt waar van een groot gedeelte van de vaste medewerkers foto's staan. Om deze foto's te gebruiker is me gelukt.
Bij het openen van een record word de juiste foto geopend.
Er is echter een probleem waneer ik een record open van iemand waar geen foto van de vinden is. Ondanks dat ik in mijn macro aangeef dat setwarnings 'no" toch blijf ik een vervelende melding krijgen dat het bestand niet te vinden is.
Nu heb ik een " geen foto beschikbaar" plaatje gemaakt die ik in dit soort gevallen wil laten gebruiken.
Maar dit lukt me niet.
vb code die ik onderliggend gebruik is de volgende
Function setfoto()
On Error GoTo setfoto_Err
DoCmd.SetWarnings False
Forms![Active Dir]!Image29.HyperlinkSubAddress = "\\Nldvst0247\Database\mexx pasfotos\"
Forms![Active Dir]!Image29.Picture = Forms![Active Dir]!Name
& ".jpg"
setfoto_Exit:
Exit Function
setfoto_Err:
MsgBox Error$
Resume setfoto_Exit
End Function
de &".jpg" word wel rood aangegeven maar werkt wel in de macro.
Bovenstaande code werkt dus prima maar moet iets toevoegen voor het geval het bestand niet bestaan.
Kan iemand me helpen?