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.

 

[djutoch]

Extra vraagje.
Kan ik ook de fotonaam bijvoegen in een formulier textbox via code van @peter59

 

[edmoor]

Tuurlijk.
Die namen staan in img_var.

 

[djutoch]

Beste Edmoor, dit had ik al toegepast maar dan krijg ik de volledige link, ik had gehoopt om verder te komen met de fotonaam alleen.

 

[edmoor]

Dat kan simpel met dit:

Naam = Split(img_var, "\")
TextBox1.Text = Naam(UBound(Naam))

Eventueel kan je de .jpg er ook nog vanaf halen.

 

[djutoch]

Gelukt, moet wel value zijn ipv text.
Oplossing gevonden in deze topic
https://www.helpmij.nl/forum/threads/foutmelding-bij-filteren.559006/

 

[edmoor]

Value en Text doen precies hetzelfde bij een TextBox.

 

[djutoch]

Zie de link naar de andere topic, ik kreeg dezelfde foutmelding.

 

[edmoor]

Dan zal dat in Acces anders zijn dan in Excel.

 

[djutoch]

Dan zal dat in Acces anders zijn dan in Excel.

Zou best kunnen, je weet maar nooit met Microsoft, ik kan in ieder geval weer verder, waarvoor dank.

 

[OctaFish]

Value en Text doen precies hetzelfde bij een TextBox.

Niet dus in Access. De werking is anders. Ga ik hier uiteraard niet uitleggen, want TS is al dolgelukkig.

En uiteraard kan je het met één regel zonder variabele oplossen:

TextBox1.Value = Split(img_var, "\")(UBound(Split(img_var, "\")))