Lock control after data entry

[Scott_80]

Hello, I'm running Access 2003 on a WinXp machine. On a form I created, I need to have a control(field) locked after data is entered in it. But also able to have data entered in the same control-field when scrolling to the next record(page). Any ideas on VB scripting would be greatly appreciated, thank you.

[pbaldy]

You would use code in the after update event of the control to lock it, and similar code in the current event of the form to handle the changing of records (or cleaner, a function called by both). The test would look like:

If Len(Me.SomeControl & vbNullString) = 0 Then

which tests to see if something is entered in the control.

[Scott_80]

Ok I entered this script into the VB fields of Current and AfterUpdate, but I'm getting error: Block If without End If.

[pbaldy]

That was just the test. The full bit would look like:

If Len(Me.SomeControl & vbNullString) = 0 Then
  Me.SomeControl.Locked = False
Else
  Me.SomeControl.Locked = True
End If

[Scott_80]

Ok that made some progress as far as not being able to change the control data. However I now cannot add data to that control field when scrolling to the next record page. I put this script in the AfterUpdate section by the way.

[pbaldy]

Did you add it to the current event as suggested?

[Scott_80]

I added it to the AfterUpdate section. Does it need to be in both Current event and AfterUpdate event?

[pbaldy]

As I said in post 2, yes.

[Scott_80]

Ok looks like that works. Thank you very much for your help.

[pbaldy]

No problem.

[scharj01]

First of all , I apologize for being a such a novice.
This code works for the Combo box (List 168) , which is a table look up , but not for the Text box(Project Number) field which is driect entry.
Both The fileds are locked after entry. List168 works perfectly , but for the Project_Number I get a "Run time error 424 Object required" as soon as I select Add new record. I have added it in both Current event and AfterUpate.
If Len(List168 & vbNullString) = 0 Then
List168.Locked = False
Else
List168.Locked = True
End If
If Len(Project_Number & vbNullString) = 0 Then
Projct_Number.Locked = False
Else
Project_Number.Locked = True
End If
End Sub

[scharj01]

Duh, I see the error. Projct.Number in the code typo! Fixed now. Works fine. Thanks

[pbaldy]

Glad you found it, and welcome to the site.