Locking text boxes that are NOT NULL

[djmousie]

I have a form that is linked to table information. When I click on new record it submits a blank record on the form. I want to be able to type into a box that is NOT null, however, once a form has text in it, I want it locked so noone can go in and change it accidently.

Any help?

Thanks

 

[BobJacksonNCI]

What if you NEED to change the contents?

One answer to your question would be to code an On Enter event.

If IsNull([controlname]) then
me.[controlname].locked = false
else
me.[controlname].locked = true
end if



HTH,
Bob

 

[djmousie]

How would I write that as an expression if you dont mind me asking?

 

[BobJacksonNCI]

Hi!

Bring up your form in design view.

Right-click a control (field) that you want to lock after data has been entered.

Select Properties.

Select the Event tab.

Select the On Enter line.

Select the square on the right containing three dots ...

Select Code Builder.

Copy/Paste the code from above between the two lines.

Change [controlname] to the name of the form field.
(You can verify exactly what this is by selecting the
Other tab on properties - It's listed on the Name line.)

Select Debut, then compile to make sure all references are correct.

Close (X) the VBA window.

Close the database.
(Not required, but seems to resolve some Access
idiosyncrasies that occasionally crop up.)

Open the database, form and test.

Repeat entering code for each form control that you want to work this way.




HTH,
Bob

 

[BobJacksonNCI]

Footnote

You said:

"When I click on new record it submits a blank record on the form. I want to be able to type into a box that is NOT null, however, once a form has text in it, I want it locked so noone can go in and change it accidently."

The code I proposed assumes that no entry yet DOES reflect null. If the field contains something else, like space(s) or zero-length string, it can still be handled, but must be know.

Alternatively, at the form level instead of the individual control, you could check the NewRecord property. If true, then set AllowEdits to true, else false. That would be at the form level and disallow changes to ALL controls on the form.



HTH,
Bob

 

[djmousie]

Works great!

Thanks!

 

[djmousie]

By the way, what does the function "Me." do? I know very little VBA

 

[djmousie]

Ahh forget it, it does the same thing as [Forms]! in a query.

Thanks