Validation Rules in Combo Box

Question

I have a combo box that includes a date. I have two buttons next to the combo box that will raise/lower the date by one year.

I have set this validation rule for the combo box: ">=#1/1/2012#"

However, I only get an alert about validation is I MANUALLY enter a date under 2012. If I click on the button to lower the date, I do not get the alert. How do I get the alert after pressing the button?

Answer 1

You should be able to use something like:

Private Sub btnStartUp_Click()

Dim DateA As Date

DateA = DateAdd("yyyy", 1, Me.txtDateStart)

If DateA >=#1/1/2012# Then

MsgBox "Date to high"

Else

Me.txtDateStart = DateA

End If

End Sub

Answer 2

Thank you dhookom. That worked

Answer 3

The button code is posted below.

Private Sub btnStartUp_Click()

Dim DateA As Date

DateA = DateAdd("yyyy", 1, Me.txtDateStart)

Me.txtDateStart = DateA

End Sub

Private Sub btnStartDown_Click()

Dim DateB As Date

DateB = DateAdd("yyyy", -1, Me.txtDateStart)

Me.txtDateStart = DateB

Me.txtDateStart.ValidationRule = True

End Sub

My form allows users to enter a date. Then users will click a button that will open a query. The query runs based on the parameters of the set date.

Answer 4

I assume your buttons have some code that sets the value. Add some validation in the click event of the buttons.

Answer 5

Please post the button code that lowers the date.

Note that a Validation Rule usually applies to a field value stored in a Table; a Combo Box is not data, it's a TOOL for entering data. What's the context? Are you using this as a Lookup Field in a Table, or is the combo box on a Form?