Locking all controls in the form

[undee69]

Good day everyone.



It's me again and hopefully you can assist me once again.

I would like to lock all the controls in the form by using a checkbox without encoding each of the control name.

Is this possible?

I have also tried the code below but it doesn't lock it and it is only for Textbox.

Private Sub Form_Current()

Dim ctrl As Control

For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Locked = True
End If
Next

End Sub

[undee69]

Ok i have made my adjustments and it is now able to disable my form for editing. However, when i go to a new record, it doesn't allow me to edit and the checkbox is unchecked on load. It allows me to edit/add a new record if i checked and unchecked the check box.

here is my code below:

Private Sub Form_Current()

Dim ctrl As Control

For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Locked = True
End If
Next

'to check if the form is new, this will disable the check box
If Me.NewRecord = True Then
Me.Check352 = False
Else
Me.Check352 = True
End If

End Sub

[undee69]

I got it now. ^_^