Code help

[ian_ok]

I have two unbound box fields on a menu page and I want to disable the 2nd(End) until data is entered in the 1st(Start) - The second field is set to NO for enabled.

My code below doesn't work....Any help

Private Sub Start_Change()
If Not IsNull(Me.Start) And Me.Start <> "" Then Me.End.Enabled
Else
MsgBox "Enter date in box please"

End If

End Sub

 

[axa]

ian_ok,

perhaps you mean:

... Then Me.End.Enabled = True


if you don't add the '= True', the property value will not be changed.

Hope that helps,

axa