Prefill txt box from drop down list code

[ipbr21054]

Evening all,

I am making a small userform & would like to ask for some help / assistance with its set up if i may.
Currently i am able to select an item from the drop down list & its image is shown but would like the following to be also included.

Database is as follows.
Column A = Item Number
Column E = Cost
Column F = Url to image

So when i make a selection from the drop down list i would like to also see the txt boxes mentioned in the code below filed with the info that will be in the cell from column A & E mentioned above.

You will also see there is a CommandButton2 of which when pressed would take me to the image on the Internet using the info from whats in the cell in column F


I have currently the code as shown below.

Option ExplicitPrivate Sub cmbImg_Change()
On Error Resume Next
Dim myImg
myImg = Me.cmbImg.List(Me.cmbImg.ListIndex, 2)
Me.Image1.Picture = LoadPicture(myImg)


Me.Label1 = Me.cmbImg.List(Me.cmbImg.ListIndex, 1)
End Sub


Private Sub CommandButton2_Click()


End Sub


Private Sub txtCost_Change()


End Sub


Private Sub txtItemNumber_Change()


End Sub

 

[ipbr21054]

Trying to use your code but dont get any item numbers in the drop down list ??

 

[ipbr21054]

Column then Text

A Item Number
B Description
C Path to image
D Image
E Cost
F Url

Range is A3:F43

 

[ipbr21054]

Sorted.
Using my own form and then using the code below works.

[COLOR=#333333] Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & ComboBox1.Value & ".jpg")[/COLOR]

Is there no way to have the photos in a different folder,why must it be in the same folder ??

 

[ipbr21054]

This is now correct many thanks.

Me.Image1.Picture = LoadPicture("C:\Users\Ian\Desktop\SKYPE\LOCK PICK ME\" & "\" & ComboBox1.Value & ".jpg")