I would like to have a combo box on my form and prevent users from entering values. I would use the dropdown style (#2) that prevents this but it makes the combobox read only which is a problem for the application. I need to be able to let the application write to it, but not allow a user to type any values into it. Is there an easy way of doing this?
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Preventing Values From being entered into Combo Box 3
- Thread starter campbere
- Start date
- Thread starter
- #4
- Thread starter
- #7
- Thread starter
- #9
Yes they have to be ablility to select a value from the list. So locked = true doesnt work. The only thing I am trying to prevent is them from typing in a value that doesn't exist. The only way I know of is to write if statements to say if what they type doesnt match a value in the drop down list to not allow it. I was just hoping there was a much easier cleaner way of doing it.
campbere:
I think you are mistaken with your first post where you state that the "...dropdown style (#2) that prevents this but it makes the combobox read only"
You can still add list items to the combo box via code.
Is this not a possibility?
I think you are mistaken with your first post where you state that the "...dropdown style (#2) that prevents this but it makes the combobox read only"
You can still add list items to the combo box via code.
Is this not a possibility?
- Thread starter
- #11
I seemed to have a problem. It gives me an error the text property is read only.
What happens is that the combo box is intially loaded with with the first value of a multiple recordset. The user can update the value by selecting options from the drop down list. However they were also able to type in values which made some managers angry that non standard values were being used. So I decided to lock the field so they can only choose from the drop down.
The error occurs when you move to the next value in the recordset. So if the recordset has 3 records and the intially the combo box .text field is populated from the first record. For this example it will be Yahoo. But if the user goes to the next record and the value changes from Yahoo to IWON then an error is displayed that is the text value is read only.
Does this make sense? Sorry if I am confusing everyone. I am just trying to find an easy way of stopping non standard values from being entered.
What happens is that the combo box is intially loaded with with the first value of a multiple recordset. The user can update the value by selecting options from the drop down list. However they were also able to type in values which made some managers angry that non standard values were being used. So I decided to lock the field so they can only choose from the drop down.
The error occurs when you move to the next value in the recordset. So if the recordset has 3 records and the intially the combo box .text field is populated from the first record. For this example it will be Yahoo. But if the user goes to the next record and the value changes from Yahoo to IWON then an error is displayed that is the text value is read only.
Does this make sense? Sorry if I am confusing everyone. I am just trying to find an easy way of stopping non standard values from being entered.
-
3
- #14
SeanGriffin
Programmer
You can set the locked value to true on keydown and false on keyup this will not allow the user to type anyting in the combo box. example:
Private Sub cmbRateofInput_KeyDown(KeyCode As Integer, Shift As Integer)
cmbRateofInput.Locked = True
End Sub
Private Sub cmbRateofInput_KeyUp(KeyCode As Integer, Shift As Integer)
cmbRateofInput.Locked = False
End Sub
Private Sub cmbRateofInput_KeyDown(KeyCode As Integer, Shift As Integer)
cmbRateofInput.Locked = True
End Sub
Private Sub cmbRateofInput_KeyUp(KeyCode As Integer, Shift As Integer)
cmbRateofInput.Locked = False
End Sub
- Thread starter
- #15
Hi
I had the same issue with a combo that I first populate using Sql on form_load. I wanted to be able to stop users adding their own data in the combo box but still wanted them to select or type in a value that was in the list. For this purpose i have written a small function that returns true or false when the text value of the combo is compared with the list values. The function is called from the validate event of the combo and takes the approriate action dependent upon the returned function value. Here is the function, hope it's of use?
Public Function InTheList(CheckList As ComboBox) As Boolean
'#############################################################
'## This takes the current text from the combo and compares ##
'## to each item in the list. If an item matched then the ##
'## function is set to True. Else set to False ##
'#############################################################
Dim x As Integer
If CheckList.ListCount > 0 Then
For x = 1 To CheckList.ListCount
If CheckList.Text = CheckList.List(x - 1) Then
InTheList = True
GoTo EndThisNow
Else
InTheList = False
End If
Next x
Else
InTheList = False
End If
EndThisNow:
End Function
Regards
Mark
I had the same issue with a combo that I first populate using Sql on form_load. I wanted to be able to stop users adding their own data in the combo box but still wanted them to select or type in a value that was in the list. For this purpose i have written a small function that returns true or false when the text value of the combo is compared with the list values. The function is called from the validate event of the combo and takes the approriate action dependent upon the returned function value. Here is the function, hope it's of use?
Public Function InTheList(CheckList As ComboBox) As Boolean
'#############################################################
'## This takes the current text from the combo and compares ##
'## to each item in the list. If an item matched then the ##
'## function is set to True. Else set to False ##
'#############################################################
Dim x As Integer
If CheckList.ListCount > 0 Then
For x = 1 To CheckList.ListCount
If CheckList.Text = CheckList.List(x - 1) Then
InTheList = True
GoTo EndThisNow
Else
InTheList = False
End If
Next x
Else
InTheList = False
End If
EndThisNow:
End Function
Regards
Mark
- Status
Similar threads
