Search Engine issues and how ti get multiple answers in combo box

[irshaad1984]

Hi,

I'm doing a project in vb6 i have a data where when i search it should give multiple answers in combo box.

example i have a debtor code each debtor code as more than one addresses when i search in one debtor code how can i get multiple addresses in the combo box. my search engine command as follows

Private Sub Command2_Click()
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "DEBTOR_CODE = '" & Text11.Text & "'"
If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then
MsgBox "Record Not Found!", vbApplicationModal
Adodc1.Recordset.MoveFirst
Me.Combo1.SetFocus
Me.Combo1.ListIndex = Me.Text11.Text
End If
End Sub

please let me know whether i have to add the new command into this or ......

[twinnyfo]

Instead of creating a recordset, why not set the Combo Box's Row Source to the Query used to create that recordset? Just be sure to include your validation criteria in the SQL statement:

WHERE DEBTOR_CODE = '" & Text11.Text & "'"

This should list all records that meet the criteria in the Combo Box.

P.S. Don't forget to use Code Tags.

[irshaad1984]

Hi Can you please re write the program again, its bit confusing me