Make second combo go to match from first combo.

[Gofaster]

Hi
I am sure this has been answered before but I can't find it.

I have two combo boxes call them A & B when the user selects the value in A I want combo B to jump to the nearest match from column 2 in combo A

Thanks

 

[MrTBC]

What is the recordsource of combo box 2 please? Is it a table, a query, or a value list?

 

[KenReay]

see

Combo Box - dependant on another Combo Box faq702-4289

in Access forms forum

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[Gofaster]

Its a querry of a table "by" the combo box. i.e SQL

 

[Gofaster]

KenReay

I saw that one but i didn't really get it, and I couldn,t see how it looks at column 2 in combo A to set the value for combo B.

 

[lespaul]

So, let's say we're talking cars. Combobox_A wants to select the MAKE

Toyota
Nissan
Ford
Chevrolet
Honda

when the user selects Ford in ComboBox_A, you want Ford to also show up in ComboBox_B?



Leslie

 

[Gofaster]

No
This is what I wanted and seems to work.
Me.ComboB = Me.ComboA.Column(1)

Just found it in a demo database
Thanks for your help chaps.

 

[willir]

Gofaster

when the user selects the value in A I want combo B to jump to the nearest match from column 2 in

Do you mean you want the second combo box to only include elements restricted by column A?

You do this by controlling the RecordSource property of the second combo box.

An example for the AfterUpdate event procedure for the first combo box...

Assumptions:
- cmbMenuCat1 - menu categories, text string
- cmbMenuItem2 - menu items

After update of Menu Category, limit selection of menu items specific for select menu category - drinks, dessert, entré

Dim strSQL as String, strQ as String

strQ = Chr(34)

If Len(nz(Me.cmbMenuCat1,"")) > 0 Then
    strSQL = "Select MenuItem From tblMenuItem " _
    & "Where MenuCat = " & strQ & Me.cmbMenuCat1 & strQ
    Me.cmbMenuItem2.RecordSource = strSQL
    Me.cmbMenuItem2.Requery
End if

If there is a valid menu category
- change the record source for the 2nd combo box, MenuItem to only include items specific to the selected category.
- Repopulate the MenuItem combo box using the Requery method.

Richard