ComboBox List Limitation 65526

  • Thread starter Thread starter Maxz
  • Start date Start date
M

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
####################################################
 
Maxz said:
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
####################################################
Click to expand...


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

http://www.allenbrowne.com/ser-32.html
 
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


Brendan Reynolds said:
Maxz said:
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
####################################################
Click to expand...


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

http://www.allenbrowne.com/ser-32.html
Click to expand...
 
Back
Top