Extracting field data when a Record is selected

[Jeff Carlin]

Here's a simple, down and dirty solution.

When you create your form, add a 2nd combo box, set visible=false and populate it with the field data you want at the same time you populate your actual combo box. Then, in the actual combo box's click event, do this:
cboDummy.ListIndex = cboActual.ListIndex

Your dummy combo box will always hold the field data you want.

[Pickler]

Another way you can do this is to use the ItemData property of the list box.

With Combo1
 .Additem rs!Field1
 .ItemData(.NewIndex)=rs!Field2
End With
 
'Then when you select an entry
Label1=Combo1.ItemData(Combo1.ListIndex)

[tperkins]

Private Sub Combo3_Change()
With Combo3
.Additem rs!Field1
.ItemData(.NewIndex) = rs!Field2
End With

'Then when you select an entry
Label35 = Combo3.ItemData(Combo3.ListIndex)

End Sub

[tperkins]

Private Sub Combo3_Change()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("c:\windows\desktop\Visual Basic Projects\Bst_Drawing.mdb")
Set rs = db.OpenRecordset("SELECT * " & _
"FROM Document_Type ")

'Label35.Caption = rs = abreviation
With Combo3
.Additem rs!Field1
.ItemData(.NewIndex) = rs!Field2
End With

'Then when you select an entry
Label35 = Combo3.ItemData(Combo3.ListIndex)
End Sub




I'm getting a method or data member not found error for the ".AddItem"

Which Field is the one from the combo box and which one is the data I'm trying to extract?

[tperkins]

Private Sub Combo3_Change()
'Dim db As Database
'Dim rs As Recordset
'Set db = OpenDatabase("c:\windows\desktop\Visual Basic Projects\Bst_Drawing.mdb")
'Set rs = db.OpenRecordset("SELECT * " & _
"FROM Document_Type ")

'Label35.Caption = rs = abreviation
With Combo3
.Additem rs!Abbreviation
.ItemData(.NewIndex) = rs!Document_Type
End With

'Then when you select an entry
Label35 = Combo3.ItemData(Combo3.ListIndex)
End Sub

This particular bit of code removes the list I am choosing from and call up a dialog box that requests the "Document_type.Document_Type"