Linking pictures to a combox

[lyndonrobertson]

I have got a database together where I have a selection of 15 cars. I have it programmed off a table at the moment where one com-box displays the manufacturer you select the manufacturer and it brings up 1 or 2 models.

my next aim is when you pick the model i want a picture to come up of the car next to the com-box

I have inserted a image-box and have tried to program it with several different bits of vba code off the net but i cant get it to work

I do have the links in text format in the same table as the cars table.

the code I have in there at the moment which doesn't work is

Private Sub cmdExplore_Click()
On Error GoTo Err_cmdExplore_Click

Dim stAppName As String

stAppName = "V:\ur-t-52\Product Integration & Methods\PI_folders\M. James\Benchmarking\Benchmarking Database\Photos"
Call Shell(stAppName, 1)

Exit_cmdExplore_Click:
Exit Sub

Err_cmdExplore_Click:
MsgBox Err.Description
Resume Exit_cmdExplore_Click

End Sub

Please be aware I am a newbie at this so be patient

thank you in advance

 

[Trevor G]

Welcome to the Forum,

create a table with the details for the images and then the manufacture and model, assigning each with a number and then you can use that source for the combo, and use the after udpate event to trigger showing the image into the image field on the form.

The combo would need to reduce the column widths to zero for the fields you don't want to show.

 

[lyndonrobertson]

I have all the data in one table already assigned with a ID

but how would I go about writing code or setting it up so when the model is selected a picture is displayed

please see image attached

 

[John Big Booty]

Perhaps this sample will help you.

Ensure that you copy the DB and image folder (called flags) to the same location.

 

[lyndonrobertson]

tried using your database but had a bit of toruble getting it working it's there now¬

one problem though it isnt quite what im looking to do with mine

 

[Simon_MT]

So It is not until you get down to the Model that the specific ID is determined.

So AfterUpdate on the ModelID you can find the Image. So if the Image file Name equals the ModelID then you can associate the Imafge to the Model through its ID.

First in your Query behind your form

ImageFile = [ModelID] & ".jpg"

Function GetPictureDir() As String
    GetPictureDir = "V:\ur-t-52\Product Integration & Methods\PI_folders\M. James\Benchmarking\Benchmarking Database\Photos"
End Function

Function GetPicturePath()
    With CodeContextObject
        GetPicturePath = GetPictureDir & .[ImageFile]
    End With
End Function

Function GetPicture()
    With CodeContextObject
            .[ImageControl].Picture = GetPicturePath
    End With
End Function

Simon

 

[lyndonrobertson]

when you say in the query behind the form

ImageFile = [ModelID] & ".jpg"

where do i enter this?

I cant see anywhere i can enter any sort of coding?

 

[Simon_MT]

Are you using a query?

If not create a control on your Car Select form called ImageFile

Control Source = [ModelID] & ".jpg"

Simon

 

[lyndonrobertson]

no query im afraid.

what do you mean create a control

 

[lyndonrobertson]

I have created a control box which showss the links but does not open the file

 

[Simon_MT]

Using my example, although you can call it what you like, If this is called Image then try

Create the Functions

Event AfterUpdate on your Combi for ModelID

Call GetPicture

We will get there. It is not difficult but a bit fiddly.

Simon

 

[lyndonrobertson]

simon_gt

tried following your method and been greeting with this message.

i dont know if this emans it cant find the direcetory or there is something wrong with the imagefile wording

 

[Simon_MT]

Please post a copy of the your database I will have a look, don't bother with the images I have plenty.

Simon

 

[lyndonrobertson]

could you private message me your email i cant upload it

 

[lyndonrobertson]

you ok for mee to send? had no luck over weekend getting any further

 

[Simon_MT]

Yes send a copy.

Simon

 

[lyndonrobertson]

can you private message me your email please

 

[Simon_MT]

Lyndon

I have already sent you a PM.

Simon

 

[lyndonrobertson]

it says i need to make 11 posts first grr!

 

[lyndonrobertson]

private messaged you you but got nothing from you :S