Most likely a programming thing

[dfelock]

So I'm trying to make a spot on my form that when a person selects a number from a drop down list, the number is then brought down to another part of the form and the number's description is displayed next to it. Any ideas?

[ajetrumpet]

take a look at this small one-liner for an example of how you might do it...

[dfelock]

take a look at this small one-liner for an example of how you might do it...

I should just be able to copy the code correct? and change the names of the tables and such?

So I tried copying and just putting the names of my tables and stuff to fit where needed, but it didn't work. How can I compress the file to share so people can tell me how much I've screwed up?

[dfelock]

Trying to see if this attachment works...

This is what I currently have with the line of code you provided me Adam, with my stuff thrown in, but something isn't working....

[ajetrumpet]

hey bud,

your source of the dropdown is:

SELECT [Offenses].[ID], Offenses.[Offense] FROM Offenses;

and the code is right.

the reason it doesn't work is because the code is reading the first column. you have two, because the source queries two fields. that trips everyone up the first time, I'm sure.

you can fix it two ways. change the source to:

SELECT Offenses.[Offense] FROM Offenses;

OR change the code to:

Me.Text1 = Application.DLookup("OffenseDesc", "Offenses", "[Offense] = '" & Me.Combo13.Column(1, 0) & "'")

[dfelock]

hey bud,

your source of the dropdown is:

SELECT [Offenses].[ID], Offenses.[Offense] FROM Offenses;

and the code is right.

the reason it doesn't work is because the code is reading the first column. you have two, because the source queries two fields. that trips everyone up the first time, I'm sure.

you can fix it two ways. change the source to:

SELECT Offenses.[Offense] FROM Offenses;

OR change the code to:

Me.Text1 = Application.DLookup("OffenseDesc", "Offenses", "[Offense] = '" & Me.Combo13.Column(1, 0) & "'")

Okay, so I used the second code and it works, to a point. It only enters the first OffenseDesc each time no matter what Offense I pick.

[ajetrumpet]

Okay, so I used the second code and it works, to a point. It only enters the first OffenseDesc each time no matter what Offense I pick.

I'm sorry sir. Friday night I guess. this:

Me.Text1 = Application.DLookup("OffenseDesc", "Offenses", "[Offense] = '" & Me.Combo13.Column(1, 0) & "'")

was untested by me. My mistake. You need to reduce the query to one field. if you drop the id field completely, your initial code will be fine.

My apologies once again.

[ssanfu]

Okay, so I used the second code and it works, to a point. It only enters the first OffenseDesc each time no matter what Offense I pick.

By using the optional row argument of the column property of the combo box (the 0 >> Me.Combo13.Column(1, 0)), you are telling the result to always come from the first row (zero based).

You should use:

Me.Combo13
or 
Me.Combo13.Column(0)

The default value is the bound column, which is column 0 (the first column).


If you set the row source of the combo box to

SELECT [Offenses].[ID], Offenses.[Offense] FROM Offenses;

then the control source for text box "Text1" would be

Me.Text1 = Me.Combo13 & ", " & Me.Combo13.Column(1) 
or
Me.Text1 = Me.Combo13.Column(0) & ", " & Me.Combo13.Column(1)

first column (column zero) concatenated to the second column (column one)