Allow user to select a combobox value only if other fields (dates) are filled in

[gstreichan]

Dears,



I have a combobox on a form called "cbo_ProcStatus" and there are different values for selection. One of the values in this combobox is "Order placed". There are other fields (textboxes) on same form called: Order_Placed_Date, Contractual_Date and Revised_Date. The users must to fill these dates prior to selecting "Order placed" but different times they are not doing it.

What I want to do is to only allow user to select "Order placed" value in combobox if Order_Placed_Date, Contractual_Date and Revised_Date have been entered. In case one of the dates have not been entered yet then a message may pop up informing user to fill up the date.

Could someone help me on vba and event for getting it done?

[ArviLaanemets]

In form's OnCurrent event, set the combo disabled or locked when any of those other controls is empty, and enabled/unlocked when all of them are filled. Do same in AfterUpdate events of all those controls too.

[pbaldy]

Presumably there are other values they can choose. I'd use the before update event of the combo to test those controls if that select was made. More here, though this discusses the form level event the same concept applies:

http://www.baldyweb.com/BeforeUpdate.htm

[ArviLaanemets]

In case other selections must be available for user, all remains same, but instead of enabling/disabling the combo, you have to edit combo's RowSource property in same events.

[gstreichan]

Thanks for your reply. I use a similar code for one control. I want to prevent user to select the option "Order placed" (only) in combobox "cbo_ProcStatus" if Order_Placed_Date, Contractual_Date and Revised_Date have not been filled then a message should come up. However, if user does any other selection like e.g. "Cancelled", "No Order yet", etc, then it is not necessary to have all those dates filled out. Can you help?

[gstreichan]

Thanks for your reply. I use a similar code for one control. I want to prevent user to select the option "Order placed" (only) in combobox "cbo_ProcStatus" if Order_Placed_Date, Contractual_Date and Revised_Date have not been filled then a message should come up. However, if user does any other selection like e.g. "Cancelled", "No Order yet", etc, then it is not necessary to have all those dates filled out. Can you help?

[pbaldy]

Have you tried the before update event? Basically:

If Me.ComboName = "Order placed" And (Not IsDate(Field1) Or Not IsDate(Field2)...) Then
  MsgBox "Must enter dates to select Order Placed"
  Cancel = True
  Me.ComboName .Undo
End If

[gstreichan]

Thank you so much!

[pbaldy]

Happy to help!