-
I am looking for a combo/list control that will do incremental searches like Access' control does. The data combo in VB does it, but it does not display the characters as the user enters them. I find the incremental search in vb's control to be kind of confusing for users. I have been using the True DBGrid control, and like it a lot. I went to Apex's site, and looked at their True DBList controls. They do not have that much info on their site about it though. Have any of you used these controls, or would you recommend another control from someone else? Please comment on any problems/concerns you have with Apex's controls.
Thanks.
-
I've used Apex's Datagrid control and I liked it alot. As for the Access like search in a combo. Just write the code yourself, it'd probably be easier. Here is a sample for a normal combo named cbo
Code:
Private Sub cbo_Keyup(KeyCode As Integer, Shift As Integer)
'ignore if it is backspace or delete
If KeyCode <> 46 Or KeyCode <> 8 Then
'set max of items
cMax = cbo.ListCount
For x = 1 To cMax
'figure the length of what is typed so far
iLen = Len(cbo.Text)
If iLen > 0 Then
'compare what is typed to items in combo
'switch them all to one case so case wont matter
If UCase(cbo.Text) = UCase(Left(cbo.List(x - 1), iLen)) Then
'fill in the word if it matches
cbo.Text = cbo.List(x - 1)
'select the filled in part so the user can type over if it isn't right
cbo.SelStart = iLen
cbo.SelLength = Len(cbo.Text) - iLen
End If
End If
Next x
End If
End Sub
It would actually be easier if you were using a datacombo because you can use the filter method.
-
Thanks for the code! I am using a datacombo so it does not work. I can not find the filter method for the datacombo. Can you post some code for the datacombo please.
Thanks!
-
Almost Works
Well here is the code for a datacombo but there is a problem with it hopefully someone else can figure it out.
Code:
Private Sub dcbo_KeyUp(KeyCode As Integer, Shift As Integer)
'the datacombo must already be bound to a rowource and have a listfield
'for the example the rowsource is ado and the listfield is LastName
'ignore if it is backspace or delete
If KeyCode <> 46 And KeyCode <> 8 Then
'search list using filter
ado.Recordset.Filter = "LastName Like '" & dcbo.Text & "*'"
'see if there are any matches
If ado.Recordset.RecordCount > 0 Then
'figure the length of what is typed so far
iLen = Len(dcbo.Text)
'fill in the word if it matches
dcbo.Text = ado.Recordset!LastName
'for some reason it selects the whole word regardless of the code below
'select the filled in part so the user can type over if it isn't right
dcbo.SelStart = iLen
dcbo.SelLength = Len(dcbo.Text) - iLen
End If
End If
End Sub
The only problem is that when the text property is set to something that matches in the list it automatically selects the whole word ignoring me selstart and selength commands. So it will find a match but the user wont be able to continue typing if there is a match. You may want to just populate a normal combo with data unless someone figures out a work around. I'll keep trying, but I can't right now.
