ComboBox List Limitation 65526

[Maxz]

Good Day to one and all.....
I have a delema. The traditional type as you go search has been a wonderful
control, but now I have over 100,000 parts to look at and have tried to write
a new search which would work the same as the original box but search the
whole list(show a range of parts in the drop portion). One of the greater
problems is allowing the user to tab into the list window and Arrow down for
selection, because this code just grabs the first item in the box on tab, you
can mouse scroll the box but makes this very clunky. The other is the delete
or backup on the characters is not the same and weak users get extremely
frusterated.


#####################################################
Private Sub FindPart__Change()
Dim strText As String 'Maxz Added Aug 2008
On Error Resume Next

Me.[FindPart#].SetFocus

strText = Nz(Me.[FindPart#].Text, "")

If Len(strText) > 0 Then
Me.[FindPart#].RowSource = "SELECT [Part#], Description FROM
tblInventoryExtend" & _
" Where [Part#] Like """ & strText & "*"" " & _
" ORDER BY [Part#];"
'Me.[FindPart#].Dropdown
ElseIf Len(Me.FindPart_.Value & "") < 1 Then
Me.[FindPart#].RowSource = ""
Me.Refresh
Me.[FindPart#].Dropdown
End If


On Error GoTo 0
End Sub
####################################################

 

[Brendan Reynolds]

Good Day to one and all.....
I have a delema. The traditional type as you go search has been a
wonderful
control, but now I have over 100,000 parts to look at and have tried to
write
a new search which would work the same as the original box but search the
whole list(show a range of parts in the drop portion). One of the greater
problems is allowing the user to tab into the list window and Arrow down
for
selection, because this code just grabs the first item in the box on tab,
you
can mouse scroll the box but makes this very clunky. The other is the
delete
or backup on the characters is not the same and weak users get extremely
frusterated.


#####################################################
Private Sub FindPart__Change()
Dim strText As String 'Maxz Added Aug 2008
On Error Resume Next

Me.[FindPart#].SetFocus

strText = Nz(Me.[FindPart#].Text, "")

If Len(strText) > 0 Then
Me.[FindPart#].RowSource = "SELECT [Part#], Description FROM
tblInventoryExtend" & _
" Where [Part#] Like """ & strText & "*"" " & _
" ORDER BY [Part#];"
'Me.[FindPart#].Dropdown
ElseIf Len(Me.FindPart_.Value & "") < 1 Then
Me.[FindPart#].RowSource = ""
Me.Refresh
Me.[FindPart#].Dropdown
End If


On Error GoTo 0
End Sub
####################################################

See Allen Browne's article "Combos with Tens of Thousands of Records" at the
following URL ...

http://www.allenbrowne.com/ser-32.html

 

[Maxz]

Thanks... but this is the code I used basically and has the issues I was just
explaining, I need the box to be more finnessful or robust, like the original
style of a combobox
--
always try, try always

Good Day to one and all.....
I have a delema. The traditional type as you go search has been a
wonderful
control, but now I have over 100,000 parts to look at and have tried to
write
a new search which would work the same as the original box but search the
whole list(show a range of parts in the drop portion). One of the greater
problems is allowing the user to tab into the list window and Arrow down
for
selection, because this code just grabs the first item in the box on tab,
you
can mouse scroll the box but makes this very clunky. The other is the
delete
or backup on the characters is not the same and weak users get extremely
frusterated.


#####################################################
Private Sub FindPart__Change()
Dim strText As String 'Maxz Added Aug 2008
On Error Resume Next

Me.[FindPart#].SetFocus

strText = Nz(Me.[FindPart#].Text, "")

If Len(strText) > 0 Then
Me.[FindPart#].RowSource = "SELECT [Part#], Description FROM
tblInventoryExtend" & _
" Where [Part#] Like """ & strText & "*"" " & _
" ORDER BY [Part#];"
'Me.[FindPart#].Dropdown
ElseIf Len(Me.FindPart_.Value & "") < 1 Then
Me.[FindPart#].RowSource = ""
Me.Refresh
Me.[FindPart#].Dropdown
End If


On Error GoTo 0
End Sub
####################################################

See Allen Browne's article "Combos with Tens of Thousands of Records" at the
following URL ...

http://www.allenbrowne.com/ser-32.html