Disable or Lock check box after initial check

D

deb

I have a check box that, when clicked, adds today's date to a table field.

Private Sub CkBoxCIComp_AfterUpdate()
Me!CIComp = Now
End Sub

After the initial check in the box, I would like the check box to be
disables so they cannot check again and change the initial date that was
entered on the initial check.
I also need a msg to contact the admin for assistance.

Can anyone tell me how this can be done?

Thanks
 
A

Arvin Meyer [MVP]

This will not work in a continuous form, but in single form view, try
(aircode):

Private Sub CkBoxCIComp_AfterUpdate()
Me!CIComp = Now
Me.CkBoxCIComp.Locked = True
Me.CIComp.Locked = True
End Sub

and in the form's current event:

Private Sub Form_Current()
If CkBoxCIComp = True
Me.CkBoxCIComp.Locked = True
Me.CIComp.Locked = True
End If
End Sub
 
Top