This is the code I am using:
Expand|Select|Wrap|Line Numbers
- Private Sub cboCompound_Number_Change()
- Dim strTyped As String
- Dim strSelect As String
- strTyped = Nz(cboCompoundNumber.Text, "")
- If Len(strTyped) = 3 Then
- strSelect = "SELECT CompoundList.ID, NewPMXCompoundNumber, OldPMXCompoundNumber FROM CompoundList " & _
- "WHERE CompoundNumber LIKE """ & strTyped & "*"" " & _
- "ORDER BY CompoundNumber;"
- cboCompoundNumber.RowSource = strSelect
- End If
- End Sub
Any assistance will be appreciated.
Thanks