Ark68
Well-known Member
- Joined
- Mar 23, 2004
- Messages
- 4,564
- Office Version
- 365
- 2016
- Platform
- Windows
Within my userform, I have a combobox (Combobox1).
It's rowsource equals a named range "nrQL" which contains 2 values ... "<" or ">". The combobox does display the correct values for the user to select.
I am having an issue in which, should the user manually type in a value other than "<" or ">", the me.combobox1_change event doesn't trigger, which is where I have the error trapping code.
The me.combobox1_change event does trigger if the user selects one of the two appropriate values. Since it doesn't trigger when the user enters an invalid value, that value is accepted and it shouldn't.
Here is my me.combobox_change event code...
Where have I gone wrong?
It's rowsource equals a named range "nrQL" which contains 2 values ... "<" or ">". The combobox does display the correct values for the user to select.
I am having an issue in which, should the user manually type in a value other than "<" or ">", the me.combobox1_change event doesn't trigger, which is where I have the error trapping code.
The me.combobox1_change event does trigger if the user selects one of the two appropriate values. Since it doesn't trigger when the user enters an invalid value, that value is accepted and it shouldn't.
Here is my me.combobox_change event code...
VBA Code:
Private Sub ComboBox1_Change()
Stop
If Me.ComboBox1.Value <> ">" And Me.ComboBox1.Value <> "<" Then
Application.EnableEvents = False
Me.ComboBox1.Value = ""
Application.EnableEvents = True
Me.ComboBox1.BackColor = RGB(1220, 220, 220)
End If
Me.ComboBox1.BackColor = RGB(255, 255, 255)
With Me.cbx_hr
'.RowSource = "nrHrs"
.BackColor = RGB(255, 255, 255)
.Locked = False
End With
End Sub
Where have I gone wrong?