Fotoweergave werkt niet (niet goed) in database

[JacobCats]

Goede avond,

Ik heb een database gemaakt met een :
1) Invulformulier
2) Wijzigingsformulier
3) Raadpleegformulier
4) Navigatieformulier

Casus:
Als ik het wijzigings- of raadpleegformulier gebruik krijg ik ook de bijbehorende foto te zien.

Vraag:
Als ik het invulformulier gebruik zou ik ook graag de foto willen zien als ik de bestandsnaam heb ingetikt.

Info:
De onderstaande gebeurtenisprocedure word gebruikt:

Bij image frame
Option Compare Database
--------------------------------------------------------------------------
Private Sub Form_Current()
On Error Resume Next
If Not Me.Foto & "" = "" Then
Me.Imageframe.Picture = CurrentProject.Path & "\Ingezonden" & Me.Foto
Else
Me.Imageframe.Picture = ""
End If
End Sub
------------------------------------------------------------------------------
Private Sub ImageFrame_Click()

End Sub

Wie o wie kan mij hiermee verder helpen.
Ik kom er niet uit.

Groet van Jacob

Bijlage:
PSE-test.zip bestand

 

[OctaFish]

Er moet een stukje code bij en er moet een stukje code weg:

Option Compare Database

Private Sub Foto_AfterUpdate()
    If Not Me.Foto & "" = "" Then
        Me.Imageframe.Picture = CurrentProject.Path & "\Ingezonden\" & Me.Foto
        Me.Bijschrift50.Visible = False
    Else
        Me.Imageframe.Picture = ""
        Me.Bijschrift50.Visible = True
    End If
End Sub

 

[JacobCats]

Plaats een antwoord in het onderwerp: Fotoweergave werkt niet (niet goed) in database

Dank voor het antwoord.
Alles werkt nu naar wens.
Groet van Jacob