Foto plaatsen op formulier

[jakobo]

Mensen,

Ik zou zo graag een foto plaatsen op mijn formulier, ik heb in de tabel wel een kolom foto, daar staat nog niets in heb geprobeerd daarin een linkje te maken naar het fotobestand dat lukt, maar dan komt er op het formulier ook het linkje te staan kan de foto niet direct worden getoond zonder dat ik op dat linkje moet klikken.

Jan

 

[zRowix]

Speel eens met OLE-object als veld type dan moet je foto's alleen wel bmp zijn als het goed is.

 

[WinteE]

Bijgaande code gebruik ik om na bijwerken van een keuzelijst een foto op een formulier te zetten.

Sub OphalenFoto()

Set objFSO = CreateObject("Scripting.FileSystemObject")

sFoto = CurrentProject.Path & "\Foto's\" & "Foto.jpg"

If objFSO.FileExists(sFoto) = True Then
Me.Foto.Picture = sFoto
Else
Me.Foto.Picture = Empty
End If

End Sub

"Foto" is de naam van het afbeeldingveld.


Dit werkt ook als je het formilier opent.