Form not saving control property changes on save and close

[Guerra67]

Here is the code:
Private Sub CONTRACTREQchk_Click()
Dim CResponse As Integer
CResponse = MsgBox("Please confirm that you have REQUESTED the CONTRACT?", vbYesNo, "Continue")


If CResponse = vbYes Then
CONTRACTREQDATE = Now()
CONTRACTREQEMP = CurrentUser
CONTRACTREQchk.Value = True
CONTRACT.BackColor = RGB(255, 255, 0)
Me.CONTRACTREQDATE.Locked = True
Me.CONTRACTREQEMP.Locked = True

Else
MsgBox "Please Return when you have the correct information", 0, "CONTRACT!"
CONTRACTREQDATE = ""


CONTRACTREQEMP = ""
CONTRACT.Value = False
Me.CONTRACTREQDATE.Locked = False
Me.CONTRACTREQEMP.Locked = False
End If


End Sub

When i click on the check box it changes the toggle button to yellow, however after i close and come back into the record the toggle button is back to the default blue. Also the text boxes COTRACTREQDATE and CONTRACTREQEMP are not locked.
What am i missing

[ranman256]

if you close the form, all settings revert to the original in design mode.

maybe you want settings to change ON CURRENT event. each time you move to a record?

[Guerra67]

Thanks for the quick reply. However, this is still not working for me. Also, I can you explain why I should put it under a ON CURRENT instead of ON CLICK?
I have placed the following code to ON LOAD.
If CResponse = vbYes Then
CONTRACTREQDATE = Now()
CONTRACTREQEMP = CurrentUser
CONTRACTREQchk.Value = True
CONTRACT.BackColor = RGB(255, 255, 0)
Me.CONTRACTREQDATE.Locked = True
Me.CONTRACTREQEMP.Locked = True

Else
MsgBox "Please Return when you have the correct information", 0, "CONTRACT!"
CONTRACTREQDATE = ""
CONTRACTREQEMP = ""
CONTRACT.Value = False
Me.CONTRACTREQDATE.Locked = False
Me.CONTRACTREQEMP.Locked = False
End If