You could try this, place an unbound checkbox in the forms header or footer, set its default value to False and in the OnClick event put the following code changing all in red to the correct Names...
Private Sub YourUnboundCheckBox_Click()
If Me.YourUnboundCheckBox = True Then...