I've been working my way through this seminar. Enjoying it very much.
At the 7:25 mark or so, I have entered the following:
Private Sub Form_Current()
Dim ctl As Control
For Each ctl In Me If ctl.ControlType = acTextBox Or ctl.ControlType - acComboBox Then ctl.Locked = True ctl.BackColor = RGB(200, 200, 200) 'gray End If
Next
End Sub
When I try to open the form, I receive a "run-time error 438 Object desn't support this property or method." for the ctl.Locked = True.
I hear ya, Neal. I know all about challenged eyesight now! I've been blind in one eye since February and my good eye is super blurry. I'm going to leave this post here if it's OK with you, however, as a lesson to other users... sometimes the craziest of error messages can come from the simplest of errors.
Neal GroelingOP
@Reply 6 years ago
I agree! Leave the post! I know I read through the code multiple times and never saw the error -- until I closed my eyes and rested them for a bit. Your eyesight challenges remain in my prayers.
If you are a Visitor, go ahead and post your reply as a
new comment, and we'll move it here for you
once it's approved. Be sure to use the same name and email address.
