Foto met Vba koppelen

[HSV]

Je ziet het niet maar is er wel (er is een extra textbox toegevoegd met de grootte van nul).
Werkt het nu wel?

 

[Excel01]

Hsv
Ik krijg alleen foto leeg.jpg te zien. Een of ander manier wil t niet lukken.

De code die ik gepost heb, kan jij die niet aanpassen. Mij lukt dat niet.

 

[HSV]

Is de blauwe coderegel wel het juiste bestandenpad.

[COLOR=#3366ff]Image1.Picture = LoadPicture("c:\foto\" & TextBox1.Value & ".jpg")[/COLOR]
    If Err Then Image1.Picture = LoadPicture("C:\foto\Test\leeg.jpg")

 

[Excel01]

Het pad klopt wel.

 

[HSV]

Hier werkt het prima, en kan het niet verbeteren.
Als de naam van de afbeelding "afb0001.jpg" is, typ je "afb0001" in de textbox zonder ".jpg" en drukt op de tabtoets.
Zonder de dubbele quotes natuurlijk.

 

[edmoor]

Let ook even op het verschil tussen de rood gemarkeerde gedeeltes:

    Image1.Picture = LoadPicture([COLOR="#FF0000"]"c:\foto\"[/COLOR] & TextBox1.Value & ".jpg")
    If Err Then Image1.Picture = LoadPicture([COLOR="#FF0000"]"C:\foto\Test"[/COLOR] & "\leeg.jpg")

 

[Excel01]

bedankt voor de moeite

 

[HSV]

@edmoor, daarom vroeg ik het maar voor de zekerheid. :d

 

[Excel01]

ik wil graag dat wanneer texbox1 leeg is, dat er geen foto getoond wordt ook niet leeg.jpg
ik heb deze code toegevoegd maar werkt helaas niet. weet iemand hoe ik dit kan oplossen?

If TextBox1.Value = "" Then
    Image1.Picture = Clear
End If

 

[HSV]

Krijg je nu de foto's te zien, of lukt dit nog niet?
Graag probleem voor probleem, anders schiet het niet op.
Het bleef immers al leeg.

 

[Excel01]

Als een klant een foto heeft in de map dan krijg ik die te zien en als klant geen foto heeft in de map dan krijg ik foto leeg.jpg te zien. Dat is ook de bedoeling. Nu krijg ik Leeg.jpg ook te zien wanneer Texbox1 leeg is en dat is niet de bedoeling.
Ik wil dus wanneer Texbox1 leeg is dat er geen foto getoond wordt dus ook niet Leeg.jpg.

 

[HSV]

Zo zou het worden indien het pad juist is.

Private Sub TextBox1_AfterUpdate()
On Local Error Resume Next
If TextBox1.Value = "" Then
  Image1.Picture = LoadPicture("")
  Else
    Image1.Picture = LoadPicture("c:\foto\" & TextBox1.Value & ".jpg")
    If Err Then Image1.Picture = LoadPicture("C:\foto\Test" & "\leeg.jpg")
  End If
End Sub

 

[Excel01]

Precies wat ik bedoel. Tnks

 

[Excel01]

Ik wil iets aan deze code toevoegen.

Private Sub TextBox1_AfterUpdate()
On Local Error Resume Next
If TextBox1.Value = "" Then
  Image1.Picture = LoadPicture("")
  Else
    Image1.Picture = LoadPicture("c:\foto\" & TextBox1.Value & ".jpg")
    If Err Then Image1.Picture = LoadPicture("C:\foto\Test" & "\leeg.jpg")
  End If
End Sub

Ik heb namelijk de foto's verdeeld over een aantal mappen.
Klas 2B
Klas 3F

Leerling 1 heeft foto in Klas 2b staan en leerling 3 heeft foto in Klas 3F.
De code moet dus aan twee voorwaarden voldoen. De map en leerlingnummer.

1e voorwaarde is c:\foto\klas 2b of c:\foto\klas 3f (1e voorwaarde Me.textbox1.value)
2e voorwaarde = Me.textbox1.value
dan pas de foto tonen.

Dit is ongeveer hoe de code ruit ziet. Deze code werkt helaas nog niet.

dim schek as string, pad as string
image1.picture ="c:\foto"& "\" & image
if right (pad,1) <>"\" then pad = pad & "\"
schek = image.picture = loadpicture (c:\fotos" & "\" me.txtbox1.value & ".jpg")
if scheck = "" then
image1 = pad & "leeg.jpg"
else
image = pad & me,textbox1,value & ".jpg"
end if
end sub

 

[HSV]

Maak een combobox op het formulier met de mapnamen.
Daarna zet je de comobox.value bij in de code.

 

[Excel01]

bedankt voor de tip.

Maar ik wil graag met textbox werken. mocht ik er niet uitkomen dan overweeg ik combox.

 

[HSV]

Met een textbox kan je alleen maar fouten maken.