While the code I wrote (inspired by article) works, I seem to be losing, what the user typed in...If user types "G", words the combo box drops down with employees whose last name begins with "G"....
HOWEVER, the "G" has disappeared, the text portion of combo box is blank/null.....
Does anyone have ideas? 1) I tried to comment out the me.requery, and set auto expand = false, and still have the problem
2) If I modify the combo box's .text property, using vba, after the .dropdown, the onChange event fires, and I end up in a loop of always running the onChange event.
Please see code below....I would most gladly send the mdb, if that would help....thx! '================================ Private Sub cboByName_Change()
Dim strBackSql As String Dim strFind As String
strFind = Me!cboByName.Text
Const TWIPS = 1440
strBackSql = "Select ssn" & _ " ,[Last name] " & _ " ,[First Name]" & _ " FROM STAFF1" & _ " WHERE [Last Name] LIKE " & _ pgc_strQuote & _ strFind & pgc_strAsterisk & _ pgc_strQuote & _ " ORDER BY [last name], [first name]"
Debug.Print strBackSql
With Me.cboByName .RowSource = "" .RowSourceType = "Table/Query"
If you're asking for technical help, please be sure to include all your system info, including operating system, model number, and any other specifics related to the problem. Also please exercise your best judgment when posting in the forums--revealing personal information such as your e-mail address, telephone number, and address is not recommended.
Access combo boxes: limiting rows shown
Some background:
----------------
I relatively new to access, and found and interesting article on this website, describing how to limit rows shown in a combo box.
http://techrepublic.com.com/5100-6329-5031812-2.html#Listing%20B
Problem:
----------
While the code I wrote (inspired by article)
works, I seem to be losing, what the user typed in...If user types "G", words the combo box drops down with employees whose last name begins with "G"....
HOWEVER, the "G" has disappeared, the text portion of combo box is blank/null.....
Does anyone have ideas?
1) I tried to comment out the me.requery, and set auto expand = false, and still have the problem
2) If I modify the combo box's .text property,
using vba, after the .dropdown, the onChange event fires, and I end up in a loop of always running the onChange event.
Please see code below....I would most gladly send the mdb, if that would help....thx!
'================================
Private Sub cboByName_Change()
Dim strBackSql As String
Dim strFind As String
strFind = Me!cboByName.Text
Const TWIPS = 1440
strBackSql = "Select ssn" & _
" ,[Last name] " & _
" ,[First Name]" & _
" FROM STAFF1" & _
" WHERE [Last Name] LIKE " & _
pgc_strQuote & _
strFind & pgc_strAsterisk & _
pgc_strQuote & _
" ORDER BY [last name], [first name]"
Debug.Print strBackSql
With Me.cboByName
.RowSource = ""
.RowSourceType = "Table/Query"
.LimitToList = True
.ColumnCount = 3
.ColumnHeads = False
.BoundColumn = 1
.ListWidth = 4 * TWIPS
.ListRows = 8
.ColumnWidths = "0 in; 1.5105 in; 1.5938 in"
.LimitToList = True
.AutoExpand = False 'True
.RowSource = strBackSql
' .Requery
End With
cboByName.Dropdown
End Sub