POPULATE a textbox based on combo box selection

[kealaz]

I have two combo boxes on a form. The first combo box gets info from
tblPOTODO using a select query and the following code.
SELECT tblPOTODO.PART_NO, tblPOTODO.NAME, tblPOTODO.MANUF1,
tblPOTODO.MANUF1_PN, tblPOTODO.MANUF2, tblPOTODO.MANUF2_PN, tblPOTODO.MANUF3,
tblPOTODO.MANUF3_PN FROM tblPOTODO;

The second combo box is populated when a selection is made of the first
combo box. The selections of the second combo box will be:
MANUF1
MANUF2
MANUF3

Once a selection is made on that second combo box, I would like to populate
a text box [MANUF_PN] with the corresponding MANUF_PN.

I'm pretty sure the code I need to change/add would be to the after update.

Any help would be GREATLY appreciated.

Thank you!!!

 

[Tom van Stiphout]

On Tue, 24 Mar 2009 19:15:04 -0700, kealaz

Yes, you can do that with VBA code in the mySecondCombo.AfterUpdate
event:
myTextbox.Value = mySecondCombo.Value

Or you can use an expression in myTextbox.ControlSource:
=mySecondCombo.Value
(replace myObjectNames with yours)

-Tom.
Microsoft Access MVP

 

[kealaz]

Hi Tom,

How would I write that, because I don't actually want the value of the
second combo box. I actually want the PN that coordinates with the selection
made in the second combo box.

If MANUF1 is selected, then I want MANUF1_PN to write to the text box.
If MANUF2 is selected, then I want MANUF2_PN to write to the text box.
If MANUF3 is selected, then I want MANUF3_PN to write to the text box.

.... so it's not the actual value of the second combo box.

Thank you so much for your help! I really appreciate you taking the time.

 

[kealaz]

I'm using the following code to populate the second combo box from the
selection made on the first combo box.

*****************************************************
With Me.PART_NO

If IsNull(.Value) Then
Me.MANUF.RowSource = ""
Else

For I = 2 To 6 Step 2

strValue = .Column(I) & vbNullString

If Len(strValue) > 0 Then
strRowSource = strRowSource & ";" & Q & strValue & Q
End If

Next I

Me.MANUF.RowSource = Mid$(strRowSource, 2)

End If

End With
*****************************************************

My second combo box currently has these options.
MANUF1
MANUF2
MANUF3

How can I change the above code so that my combo box has two columns? Like...

MANUF1 | MANUF1_PN
MANUF2 | MANUF2_PN
MANUF3 | MANUF3_PN


If I can make this happen, then, would I be able to use the value of the
second column of the line selected as the "value" of my text box? I think
this would work.

Please help me make this happen. Thanks SO MUCH!!!