Concatenate Combo Box in Recordset field 1

[tomhughes]

I am trying to concatenate the value of Combo1 into the recordset field. The Combo1 box contains the letters A,B,C,D.... When the program executes, it doesn't get the value of the item in the combo box but the position. i.e. 1,2,3,. How do I get it to recognize the value of each position in the combo box ??? Here is the code I am using.

Private Sub Combo1_AfterUpdate()
Dim db As DAO.Database, rst As DAO.Recordset, strSQL As String
Set db = CurrentDb
Set rst = db.OpenRecordset("TableName")
Me.TextBox = rst("TopicHead" & Me.Combo1.Value)
End Sub

 

[Darrylles]

Hi Tom,

Try:

me.combo1.column(1)
or
me.combo1.column(0)

Sounds like you have 2 columns in your combo.
.column(0) is the first column, .column(1) the 2nd etc.

Regards,

Darrylle

Never argue with an idiot, he'll bring you down to his level - then beat you with experience.

 

[PHV]

Have a look at the BoundColumn property of combo1.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[tomhughes]

Darrylles
I have two columns. The first column is the ID autonumber column which I don't really need, the second column is the data which is A,B,C, etc. I have this code in the Combo1_Update section. I tried changing the code to :

Me.TextBox = rst("TopicHead" & Me.Combo1.Column(1).value),

but it still doesn't recognize the record. If I hard code the name of the field in, the code works.

What do I need to do to make it work ???

 

[tomhughes]

Darrylles

OK - Thanks - I appreciate your help

 

[Darrylles]

Tom,

Don't use .value.


Regards,

Darrylle

Never argue with an idiot, he'll bring you down to his level - then beat you with experience.

 

[tomhughes]

Darrylles - OK