Locking fields 2

[kpryan]

Hi all,
On a form I have some fields that I want to lock with a check box. If the data has to be changed then the check box can be unmarked.
How would I do this.

many thanks,

ken

 

[TheAceMan1]

Howdy kpryan . . .

There's an [purple]ambiguity[/purple] here you need to consider.

[blue]You can't lock a control thats [purple]in edit mode![/purple] . . . an error will be raised![/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[missinglinq]

You can't lock a control thats in edit mode! . . . an error will be raised!

Sorry, Aceman, I don't understand your quote. When, exactly, is a control in "edit mode?" This code should do what the OP wants, unless I've misinterpreted his post.

Private Sub Form_Current()
If MyCheckBox Then
  Me.MyTextBox.Locked = True
Else
  Me.MyTextBox.Locked = False
End If
End Sub

Private Sub MyCheckBox_AfterUpdate()
If MyCheckBox Then
  Me.MyTextBox.Locked = True
Else
  Me.MyTextBox.Locked = False
End If
End Sub

The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!

 

[kpryan]

Thanks The Missinglinq,
Thats what I needed. Sorry The Aceman1. What I wanted was to be able to lock a field once data has been entered to stop idiot staff from removing it...
I tried the code and it works great.

Ken

 

[TheAceMan1]

[blue]When, exactly, is a control in "edit mode?[/blue]

When you enter the 1st character! This triggers the [blue]OldValue[/blue] property as well as causing the record to enter edit mode (depicted by the pencil icon) if its the 1st character entered in the record.

[blue] . . . What I wanted was to be able to lock a field once data has been entered to stop idiot staff from removing it...[/blue]

I wasn't sure if you intended to lock fields while editing! I did say it was something to consider! However your locking after data entry, which is fine.

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886