How can I search the recordset of a Combobox?

[Pat]

I want to be able to search for a value in a combobox and position the
combobox to that record. The app I am working on is a receiving module. The
form has a textbox for the city from the invoice and a combobox for the
location to charge against. If I could default the combobox to the value
from the textbox it would speedup processing.

The combobox has the following select statement.
SELECT dbo_Locations.LOC_NAME, dbo_Locations.PS_LOC, dbo_Locations.AP_CODE,
dbo_Locations.CITY FROM dbo_Locations ORDER BY dbo_Locations.LOC_NAME;

I would like to match the textbox txtShip_To to the dbo_Locations.CITY from
the combobox.

I have googled until my eyes have popped on this. Any help is appreciated.

 

[Dirk Goldgar]

I want to be able to search for a value in a combobox and position the
combobox to that record. The app I am working on is a receiving module.
The
form has a textbox for the city from the invoice and a combobox for the
location to charge against. If I could default the combobox to the value
from the textbox it would speedup processing.

The combobox has the following select statement.
SELECT dbo_Locations.LOC_NAME, dbo_Locations.PS_LOC,
dbo_Locations.AP_CODE,
dbo_Locations.CITY FROM dbo_Locations ORDER BY dbo_Locations.LOC_NAME;

I would like to match the textbox txtShip_To to the dbo_Locations.CITY
from
the combobox.

I have googled until my eyes have popped on this. Any help is
appreciated.

Something like this:

'------ start of example code ------

Dim i As Long

With Me.cboLocations ' *** substitute your combo's name

For i = 0 To (.ListCount - 1)
If .Column(3, i) = Me.txtShip_To Then
.Value = .ItemData(i)
Exit For
End If
Next i

End With

'------ end of example code ------

 

[Pat]

Perfect!!!! Thanks a TON!

Something like this:

'------ start of example code ------

Dim i As Long

With Me.cboLocations ' *** substitute your combo's name

For i = 0 To (.ListCount - 1)
If .Column(3, i) = Me.txtShip_To Then
.Value = .ItemData(i)
Exit For
End If
Next i

End With

'------ end of example code ------

--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)