Hallo,
Via de identiteitskaart scan ik gegevens in... dus ook, de foto
Als ik nu van de ene fiche naar de andere ga, dan wil ik dat de foto mee aangepast wordt aan de nieuwe fiche.
Maar, als er GEEN foto voorhanden is wil ik ook een leef "fotoveld"
Dat laatste lukt me niet
Kan iemand helpen aub?
Bedankt
Code onder de "Volgende"-knop:
Via de identiteitskaart scan ik gegevens in... dus ook, de foto
Als ik nu van de ene fiche naar de andere ga, dan wil ik dat de foto mee aangepast wordt aan de nieuwe fiche.
Maar, als er GEEN foto voorhanden is wil ik ook een leef "fotoveld"
Dat laatste lukt me niet
Kan iemand helpen aub?
Bedankt
Code onder de "Volgende"-knop:
HTML:
Private Sub Volgende_Click()
On Error GoTo Volgende
DoCmd.GoToRecord acDataForm, "weergave patiënt", acNext
On Error GoTo verder
Forms![weergave patiënt].pasfoto.Picture = CurrentProject.Path & "\Fotos\" & Forms![weergave patiënt].RRN.Value & ".jpg"
GoTo overslaan
Volgende:
DoCmd.GoToRecord acDataForm, "weergave patiënt", acFirst
On Error GoTo verder
Forms![weergave patiënt].pasfoto.Picture = CurrentProject.Path & "\Fotos\" & Forms![weergave patiënt].RRN.Value & ".jpg"
verder:
overslaan:
Dim f As Form
Set f = Forms![weergave patiënt]
f.TimerInterval = 1
End Sub