How to Lock Textboxes on Form?

[Plucky]

hi there,
i know the command to Lock Editing in Textboxes that is:

Text1.text.locked = true
I have more than 60 texboxes on a Form, it is bit head-ech to write above said command for each textbox.
Is there any method to lock all the textbox on form with single or 2 line cod?
plz help

[brucevde]

Iterate through the controls collection to find all textboxes

'Put in a module so it can be called by any form.
Public Sub LockUnlockTextBoxes(Form as Form, Optional ByVal Locked as boolean = True )
   Dim ctl as Control
 
   For each ctl in Form.Controls
        If TypeOf ctl is TextBox Then
            ctl.Locked = Locked 
        End If
   Next
End Sub
 
'sample calls from command buttons on a form
Private Sub cmdLockEm_Click()
    LockUnlockTextBoxes Me
End Sub
Private Sub cmdUnLockEm_Click()
    LockUnlockTextBoxes Me, False
End Sub

[Plucky]

Mr. Brucevde,
Your code for lock texbox is working (thanx)
But when i try to unlock them, it wont work... with error message (sub or function not defined)

my code is here
---------------------------------
Private Sub unlock_Click()
Dim Password As String
Dim InputPassword As String
Password = "code"

Do
InputPassword = inputbox("Contact Administrator")

If InputPassword = Password Then

LockUnlockTextBoxes Me, False
txtkrun.SetFocus
Else
MsgBox "ACCESS DENIED", vbCritical, "ERROR"
End If
End Sub

[Hack]

That means you have a sub or a function that you are calling that isn't defined.

It either doesn't exist in your project, or you misspelled the name when you called it. Which one is the error pointing to?