select item in combobox from selected item in another combobox in office access

Question

0.00/5 (No votes)

See more:

Hi guys,
I form in access database file, in this form have two combobox, these two combobox bind data from same table.
How can I write code in order to make user when select item from the first combobox the second combobox will automatically select an item based on the index of the item selected from combobox?

thanx

Posted 17-Jul-13 22:32pm

Rasool Ahmed

Add a Solution

Comments

Maciej Los 19-Jul-13 15:49pm

VB or VBA?
What have you done so far? Where are you stuck?

Rasool Ahmed 20-Jul-13 3:43am

VBA, I didn't start yet.

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2013-07-21T21:29:00

Solution 1

Try something like this:

VB

Private Sub ComboBox1_Change()
    Dim sSQL AS String

    sSQL = "SELECT FieldName1" & vbcr & _
        "FROM TableName" & vbcr & _
        "WHERE FieldName1 = " & Me.ComboBox1.Value

        Me.ComboBox2.RowSource = sSQL
End Sub

Posted 21-Jul-13 21:29pm

Maciej Los

Rasool Ahmed · Accepted Answer · 2013-07-24T22:24:00

Thank you Maciej Los,
I improved your answer to this:
when choose ItemId combobox, NCode combobox will choose the correct item according to ItemId value, and vice versa.

VB

Private Sub ItemId_Change()
Dim sSQL As String
    sSQL = "SELECT Items.NationalCode, Items.ItemId " & "FROM Items" & " WHERE Items.ItemId = " & Me.ItemId.Value
        Me.NCode.RowSource = sSQL
        Me.NCode = Me.NCode.ItemData(0)
End Sub

Private Sub ItemId_GotFocus()
Dim sSQL As String
    sSQL = "SELECT Items.GenericName, Items.ItemId" & " FROM Items"
        Me.ItemId.RowSource = sSQL
End Sub

Private Sub NCode_Change()
Dim sSQL As String
    sSQL = "SELECT Items.GenericName, Items.ItemId" & " FROM Items" & " WHERE Items.ItemId = " & Me.NCode.Value
        Me.ItemId.RowSource = sSQL
        Me.ItemId = Me.ItemId.ItemData(0)
End Sub

Private Sub NCode_GotFocus()
Dim sSQL As String
    sSQL = "SELECT Items.NationalCode, Items.ItemId" & " FROM Items"
        Me.NCode.RowSource = sSQL
End Sub