Locking a few field

[Simon]

On a form if i have a tick box 'OrderComplet"

I would like some code that will lock the following text boxes if
"ORderComplete" is ticked

txtOrderNumber
txtORderDate
txtTotal
txtDespatchDAte


Thanks

 

[Duane Hookom]

I would add "LockComplete" in each of the tag properties of these controls.
Then use code in the after update of the tick box like:

Dim ctl As Control
For Each ctl in Me.Controls
If ctl.Tag = "LockComplete" Then
ctl.Locked = Me.OrderComplet
End If
Next

 

[Duane Hookom]

In addition, you might want to call the after update code in the On Current
event of the form.