SubForm; DataSheet view; Syncronize combo boxes

J

JAMES

I have a subform to create an order that requires two
combo boxes to be syncroized to limit selection from the
same table. (cbo 1 = Manufacture) (cbo 2 = Item name)
When a new record is selected in the sub form the 2nd cbo
box in the previous record changes to equal the value in
cbo box 1 in the new record.

Private Sub ITEM_NAME_Change()
Dim X As Variant
X = DLookup("[Wood 1].[ITEM _NUMBER]", "[Wood
1]", "[ITEM_NUMBER] = '" & Forms![ORDER_WOOD]![ITEM_NAME]
& "'")
Me![ITEM_NUMBER] = X

Exit_ITEM_NAME_Change:

Exit Sub

End Sub

Private Sub MFG_Change()
Me![ITEM_NAME].Requery
Forms![ORDER_WOOD].Repaint
End Sub


Any help would be greatly appreciated.

James
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Clearing combo boxes and a text box 2
Combo boxes Once Again 3
Populate main form from subform record 0
Combobox has value, .boundcolumn = 1, .column(0) IS NULL!!, comboboxhas recordset with value 2
Visibility same as previous record 2
Cascading combo boxes - are they able to do this? 6
How to select an item in a listbox? 3
Combo Box Changing Values in Table - Still Can't Make It Work 2

Top