check box problem

[gmmccarthy]

I have the following code on the On Current event of form PickUpReqDataFrm:

Private Sub Form_Current()
If Me.RescheduleCkBox = True Then
Me.RESCHEDULEDDATE.Enabled = True
End If

If Me.RescheduleCkBox = False Then
Me.RESCHEDULEDDATE.Enabled = False
End If

End Sub

This works fine except the action doesn't take place until I change records and then return to the one I checked.

I have tried refresh and requery but did not work.

How can I get the field to enable or disable as soon as I check the box?

Thanks for the help.

Gary

 

[Bodisathva]

try:

RescheduleCkBox_OnClick()
RESCHEDULEDATE.Enabled = RescheduleCkBox
end sub

 

[gmmccarthy]

Thanks.

This along with my original code works perfectly.

In your debt,

Gary