(http://www.helpmij.nl/forum/images/smilies/confused2.gifIk verwittig maar al op voorhand dat ik niet veel kaas van programmeren heb gegeten.)
Met trial and error heb ik een code gevonden om een foto uit een identiteitskaart te halen. Die save ik in een bestand met
de correcte naam.
Via een button op mijn klantenformulier laad ik deze vervolgens in het veld [foto]
Maar ik doe natuurlijk weer wat fout. De foto komt goed terecht, maar vervolgens gaat het programma naar een
blanco record . Als ik bij de foutmelding (Run-time-Error 3314 - field can't contain a Null value
op End click en vervolgens het formulier opnieuw laad, dan is alles correct, inclusief de ge-uploade foto.
Ik zie wel dat er iets fout in de code staat (DoCmd.Run acCmdRecordsGoToNew),
waarschijnlijk weer iets eenvoudig, maar ik kom er niet uit. Alvast bedankt als iemand kan helpen.
Met trial and error heb ik een code gevonden om een foto uit een identiteitskaart te halen. Die save ik in een bestand met
de correcte naam.
Via een button op mijn klantenformulier laad ik deze vervolgens in het veld [foto]
Maar ik doe natuurlijk weer wat fout. De foto komt goed terecht, maar vervolgens gaat het programma naar een
blanco record . Als ik bij de foutmelding (Run-time-Error 3314 - field can't contain a Null value
op End click en vervolgens het formulier opnieuw laad, dan is alles correct, inclusief de ge-uploade foto.
Ik zie wel dat er iets fout in de code staat (DoCmd.Run acCmdRecordsGoToNew),
waarschijnlijk weer iets eenvoudig, maar ik kom er niet uit. Alvast bedankt als iemand kan helpen.
Code:
Private Sub Command321_Click()
'EEN FOTO LADEN UIT EEN BESTAND EN IN HET VELD FOTO PLAATSEN
Dim MyExt As String
Dim Foldername As String
Foldername = "C:\Users\eigenaar\Documents\fotostest\" & LCase(Me.ACHTERNAAM & " " & Me.VOORNAAM) & ".jpg"
Me.foto = Dir(Foldername, vbNormal)
Do While Len(Foldername) <> 0
Me.foto.OLETypeAllowed = acOLEEmbedded
Me.foto.SourceDoc = [Foldername]
Me.foto.Action = acOLECreateEmbed
DoCmd.RunCommand acCmdRecordsGoToNew
'dit heb ik er al eens uitgehaald, maar dan krijg ik een out of memory melding
Loop
End Sub