Updating a record with a selection from unbound combo box

[jamesem]

I have syncronized two combo boxes, running the following event procedure "after update" in the first combo box:

    Private Sub cboDepartment_AfterUpdate()
        Me.cboJobCode.Requery
    End Sub

    Private Sub Form_Open(Cancel As Integer)
        With Me
            .cboDepartment = ""
            .cboJobCode = ""
        End With
    End Sub

What I am doing is basing the job codes displayed in the second combo box on
the department selection made in the first. Unfortunately, this won't run
with a control source selected. How can I make use of the data displayed in
the second box if it is unbound? I need this data to be written to a record
in a table. Any suggestions?

TIA

 

[Knitter]

Try this on for size:

Dim dbs as database

set dbs = currentdb


MyJobCode = me.cboJobCode

dbs.execute "UPDATE tblYourTable SET tblYourTable.JobCode = " & MyJobCode & " WHERE (((tblYourTable.Name)="whatever&quot);

 

[VBslammer]

It appears the JobCode is a string so don't forget to add single quotes around 'MyJobCode' in your query.

VBSlammer