Locking a Field after a box is ticked

[jaking01]

Hi.

I am currently working on a form that I need to prevent changes to
after data has been input.

There are a series of tick boxes on the form, and when each one of
these is ticked it spawns the current date and time in another field. I
want the form to then lock both the tick box and the field that now has
the date in it, so that it can no longer be unticked or the date
manually altered.

I have tried using the following code to do this, and it does lock the
fields after the tick box has been used, but it also locks all the
other tick boxes that also have the same code attached to them. I
obviously want the locking to be independant, so that the locking of
one set doesn't affect the others. The code I have tried to use is
here, and is attached to each of the tick boxes.

Private Sub
Screen.ActiveControl.Locked = Not IsNull(ScreenActiveControl)
End Sub

Does anybody know what / where I am going wrong?

Thanks

[Madhivanan]

Try this

Private Sub
Screen.ActiveControl.enabled= False
End Sub

Madhivanan

[Keith]

ja******@gmail.com wrote:

There are a series of tick boxes on the form, and when each one of
these is ticked it spawns the current date and time in another field. I
want the form to then lock both the tick box and the field that now has
the date in it, so that it can no longer be unticked or the date
manually altered.

Try something like this in your *form's* After Update event (untested):

If Me.MyCheckBox = -1 Then
Me.chkMyCheckBox.Enabled = False
Me.txtMyTextBox.Enabled = False
Else
Me.chkMyCheckBox.Enabled = True
Me.txtMyTextBox.Enabled = True
End If

You'd also need this in your form's On Current event so that the check box
is tested as you navigate between records. There might be a more elegant
way to do it but this should work for starters.

Regards,
Keith.
www.keithwilby.com

[jaking01]

I have managed to get the form to lock the correct fields now thanks. I
now have another problem in that when I close the form and reopen it
the fields are again unlocked, till I click on them again, after which
they are locked again.

The code I am using is as follows

Private Sub InstallDateRequested_YN_Click()
If Me.InstallDateRequested_YN = True Then
InstallDateRequested = Now()
InstallDateRequested.Locked = True
InstallDateRequested_YN.Locked = True
End If
End Sub

I have also tried

Private Sub InstallDateRequested_YN_AfterUpdates()
If Me.InstallDateRequested_YN = True Then
InstallDateRequested = Now()
InstallDateRequested.Locked = True
InstallDateRequested_YN.Locked = True
End If
End Sub

Any ideas?

[Grumpy Old Man]

ja******@gmail.com wrote:

Any ideas?

Re-read my first response. You need to use the *FORM'S* After Update and On
Current events. Using the control's click and update events as you have
will only do what you want for the current record.

[Keith]

ja******@gmail.com wrote:

Any ideas?

Re-read my first response. You need to use the *FORM'S* After Update and On
Current events. Using the control's click and update events as you have
will only do what you want for the current record.