foto invoegen/ veranderen in formulier

[djutoch]

Ik probeer via een knop een foto in te voegen/veranderen in een Access formulier.
Ik krijg volgende foutmelding


Waar ga ik de mist in. iedere suggestie meer dan welkom, heb weinig ervaring met access.

 

[Aar]

Welke foutmelding krijg je?
Ik ben geen held in Access, maar iets zegt mij dat die apostrof de oorzaak is.

 

[djutoch]

 

[edmoor]

Wijzig *jpg eens in *.jpg

 

[djutoch]

Dank voor her reageren @edmoor , maar geeft helaas dezelfde foutmelding.

 

[edmoor]

Heb je de opmerking van Aar ook getest?

 

[djutoch]

Heb je de opmerking van Aar ook getest?

Helaas, ook geen verbetering.

 

[Aar]

Misschien is het handig om je code (nu en voortaan) even netjes hier in tekst te plaatsen in een code-blok.
Dat debugt wat makkelijker dan dat we alles (met mogelijke fouten tot gevolg) alles over staan te typen alsof het 1985 is.

 

[peter59]

Probeer onderstaande code eens van ChatGPT.
De opmerking van ChatGPT is:

Oorzaak
De fout komt doordat je msoFileDialogFolderPicker gebruikt bij het aanmaken van de FileDialog. Dit type dialoogvenster is alleen bedoeld om mappen te selecteren, niet bestanden zoals foto's. Daarom is .Filters.Add hier niet geldig en krijg je de fout.

Oplossing
Gebruik in plaats daarvan msoFileDialogFilePicker, omdat je een afbeelding (bestand) wilt selecteren, niet een map.

Private Sub Cmb_00_Click()
    Dim img_of As Office.FileDialog
    Dim img_var As Variant
    Set img_of = Application.FileDialog(msoFileDialogFilePicker)
    
    img_of.Title = "Kies een foto!"
    img_of.Filters.Clear
    img_of.Filters.Add "foto's", "*.jpg"
    
    If img_of.Show = True Then
        For Each img_var In img_of.SelectedItems
            Foto.Picture = img_var
        Next
    Else
        Foto.Picture = (nopic)
        MsgBox "Kies een foto", vbInformation, "Geen foto gekozen"
    End If
End Sub

 

[djutoch]

Voorbeeld van Peter59 werkt, waarvoor dank.,@Aar en @edmoor, dank voor het meedenken.