Lock Each Control In form IF.....

[DrDan1]

Hey there. I have the following code:

If [Accession Number] = 0 Then
Me!Comments.Locked = True
Me!Description.Locked = True
End If

This works fine. It locks the chosen controls if the value of Accession Number is 0. But there must be way of writing code that'll do the same for every control in the page, i.e. lock all controls if [Accession Number] = 0.... without writing Me![Control].Locked = True for each individual control. ----------------------------------------
Knowing is not enough, we must apply. Willing is not enough, we must do.
--So said the ever wise Bruce Lee
Memorize and live by it!

 

[KenReay]

Hi

Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox
ctl.Locked = True
Case Else
' do nothing
End Select
Next ctl
End Sub Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK