Cascade combo box selection from another combo box

[orange]

I took you database from post 5 and changed your code to reflect one of my folders and pictures. It only works for


Conference room US-PLB-3-4201

Here is the adjusted code:

Private Sub Combo12_Click()
Select Case Combo12.Value
        Case "US-PLB-3-1243"
            Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\1243.png"
        Case "US-PLB-3-2009"
            Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\2009.png"
        Case "US-PLB-3-2057"
            Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\2057.png"
        Case "US-PLB-3-2172"
            Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\2172.png"
        Case "US-PLB-3-2201"
            Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\2201.png"
        Case "US-PLB-3-3172"
            Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\3172.png"
        Case "US-PLB-3-3200"
            Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\3200.png"
        Case "US-PLB-3-3201"
            Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\3201.png"
        Case "US-PLB-3-4172"
            Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\4172.png"
        Case "US-PLB-3-4200"
            Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\4200.png"
        Case "US-PLB-3-4201"
           ' Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\4201.png"
           Image14.Picture = "C:\Users\mellon\downloads\tigerriver.jpg"
        Case "US-PLB-3-4285"
            Image14.Picture = ............................

[willfrank]

Sorry, but this will not work, as the (code)change is to the original database that I sent to you. I need it to work in the links to the NEW revised database that I sent previously, labeled: "ConfRoomV5-07-01_2016TEST" . This new database has the requery with the cascading combo boxes (all working). pictures are to link from the RoomID combo box after selection of the appropriate conference room.

Sorry for the confusion..

[orange]

Ok
You need to change your Select Case to deal with RoomID not RoomName

I changed it as follows, and when I select "US-PLB-3-4201" I get the picture.

Select Case......
   Case 13 '"US-PLB-3-4201"
                ' Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\4201.png"
           Image14.Picture = "C:\Users\mellon\downloads\tigerriver.jpg"...

......

[willfrank]

Could you possibly update my version, so I can actually see the changes you made ?

thanks

Thanks again for the suggestions: Technicians is just a reference as to who is responsible for that building: yes it can change etc. but for now just need a reference point. I have attached a new version, all working the way I want to; just need code to link pictures.

I tried my existing code for linked pictures, but on Form Current already has a requery, and link pictures on same does not work. Here is the code I was using:

Option Compare Database
Private Sub RoomID_Click()
Select Case RoomID.Value
Case "US-PLB-3-1243"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\1243.p ng"
Case "US-PLB-3-2009"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\2009.p ng"
Case "US-PLB-3-2057"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\2057.p ng"
Case "US-PLB-3-2172"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\2172.p ng"
Case "US-PLB-3-2201"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\2201.p ng"
Case "US-PLB-3-3172"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\3172.p ng"
Case "US-PLB-3-3200"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\3200.p ng"
Case "US-PLB-3-3201"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\3201.p ng"
Case "US-PLB-3-4172"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\4172.p ng"
Case "US-PLB-3-4200"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\4200.p ng"
Case "US-PLB-3-4201"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\4201.p ng"
Case "US-PLB-3-4285"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\4285.p ng"
Case "US-PLB-3-5103"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\5103.p ng"
Case "US-PLB-3-5200"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\5200.p ng"
Case "US-PLB-3-5201"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\5201.p ng"
Case "US-PLB-3-5202"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\5202.p ng"
End Select
End Sub
Private Sub Form_Current()
Select Case RoomID.Value
Case "US-PLB-3-1243"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\1243.p ng"
Case "US-PLB-3-2009"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\2009.p ng"
Case "US-PLB-3-2057"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\2057.p ng"
Case "US-PLB-3-2172"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\2172.p ng"
Case "US-PLB-3-2201"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\2201.p ng"
Case "US-PLB-3-3172"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\3172.p ng"
Case "US-PLB-3-3200"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\3200.p ng"
Case "US-PLB-3-3201"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\3201.p ng"
Case "US-PLB-3-4172"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\4172.p ng"
Case "US-PLB-3-4200"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\4200.p ng"
Case "US-PLB-3-4201"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\4201.p ng"
Case "US-PLB-3-4285"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\4285.p ng"
Case "US-PLB-3-5103"
Image14.Picture = "C:\Users\franklw2\Desktop\DatabasePictures\5103.p ng"
Case "US-PLB-3-5200"