saving Combo Box selection to a table

[rmiell]

I have made a form to enter daily timesheet info for personnel. I have on this form a combo box with different job descriptions, with this info located in a "job description" table. Once all info is entered on this form, I want all info to be entered into my "main time table".

It seemed to be working ok, until I printed out my report based on my main time table. In the area where my job description should be, I don't get the actual wording I had selected from the job description table (using the combo box), only the ID number.



Can anyone provide me with the steps to have the selected text (from a combo box) saved in the recordset of another table?

Thanks

rmiell

[Robeen]

Hi rmiell!

I suspect that your expression is using the wrong property of the combo box.

Try something like the following.

I have rigged up a simple example.

I am inserting a Student Name
From cmbStudentName on my Form
INTO field StudentName in Table1

This code is behind a command button on the form and fires off when the command button is clicked.

 
Dim StudentName, StrSQL As String
 
Me.cmbStudentName.SetFocus
StudentName = Me.cmbStudentName.Value
 
StrSQL = "INSERT INTO Table1 (StudentName) "
StrSQL = StrSQL & "VALUES (" & "'" & StudentName & "'" & "); "
 
'MsgBox StrSQL
 
DoCmd.RunSQL StrSQL

Let me know if that works for you.