Expand|Select|Wrap|Line Numbers
- lstSearchResults.RowSource = "Value List"
- lstSearchResults.ColumnCount = 4
- lstSearchResults.RowSource = "Customer ID; First Name; Last Name; Distributor"
- While (Not rs.EOF)
- Dim row As String
- Set rs4 = dbs.OpenRecordset("SELECT D_Name FROM Dist2 WHERE Dist_ID = " & rs(5))
- row = rs(0) & ";" & rs(1) & ";" & rs(2) & ";" & rs4(0)
- lstSearchResults.AddItem (row)
- rs.MoveNext
- Wend
Expand|Select|Wrap|Line Numbers
- Private Sub lstSearchResults_Click()
- DoCmd.OpenForm "Current_Customer_Data", , , "[Call_ID] = " & Me.lstSearchResults.Column(0)