Protecting Check Boxes on a Form

[JasonTruman]

Hi

An Access question on MrExcel.com - what is the world coming to ?

Anyway, hopefully someone can help.

I have a check box and a date field on a form (of course bound to a table). eg. the check box is an Approval option (Yes or No) and the date box being when it was approved (ie today's date).

So, once a tick is put into the check box I want an automatic date to appear with the date being today. I then want the date box and check box to become uneditable to stop anyone changing the information. The only way I want it to be changed is via the table. Security is setup to stop the users viewing the table as I want to control who has access to the raw live data.

I have an idea-ish but the experts are better to respond to this instead of me spending hours resolving it. Also, one other thing to consider, is that the same 2 controls need to be available for other records that have not been approved yet - does this make sense

Many thanks

Jason

 

[SydneyGeek]

Asume you have chk1 and txt1. This code would probably do it -- in the AfterUpdate event of chk1:

If chk1 then
  txt1.Visible=True
  txt1.Value=Date()
  chk1.Enabled=False
End If

In the Form_Current event:

If chk1 then
  txt1.Visible=True
  chk1.Enabled=False
Else
  txt1.Visible=False
  chk1.Enabled=True
End If

Denis

 

[JasonTruman]

Hi SydneyGeek

Thanks for that

It has worked with a bit of extra coding as you cannot disable an existing edited control (ie. the check box) so I just moved to another field within the form using SETFOCUS

Thanks again

Jason