Enabling fields

[kevinh2320]

I have three date fields on my form. The first date field OrderReceived is set to Enabled but the other two date fields OrderShipped and OrderDelivered are set to Disabled (Or, Enabled = No). I have two objectives. First, ensure that the date fields are filled out in the order the events occur. The code below seems to accomplish that. However, my second objective is to have the date fields remain enabled once a date is entered. This part I have not been able to figure out. Any assistance would be greatly appreciated.


Private Sub OrderReceived_AfterUpdate()

Me.OrderShipped.Enable = True

End Sub


Private Sub OrderShipped_AfterUpdate()


Me.OrderDelivered.Enable = True

End Sub

 

[Legacy 456155]

I'm missing some pieces here, but have a hunch that this will work for you.

Private Sub Form_Current()
    Me.OrderShipped.Enabled = Not IsNull(OrderReceived)
    Me.OrderDelivered.Enabled = Not IsNull(OrderShipped)
End Sub

If this does not work, I have a few questions.