Ark68
Well-known Member
- Joined
- Mar 23, 2004
- Messages
- 4,616
- Office Version
- 365
- 2016
- Platform
- Windows
Is anyone able to shed some light as to why I might be getting an "Invalid property valve" with the code highlighted in red below?
Rich (BB code):
With frmservice
.Controls("frm_service" & index).Visible = 2
.Controls("frm_service" & index).Caption = " SERVICE " & index & " "
.Controls("cbx_s" & index & "_rln").Enabled = True
.Controls("cbx_s" & index & "_rln").locked = False
.Controls("cbx_s" & index & "_chg").Enabled = True
.Controls("cbx_s" & index & "_chg").locked = False
.Controls("tb_s" & index & "_upr").Enabled = False
.Controls("tb_s" & index & "_lwr").Enabled = False
.Controls("cb_s" & index & "_crew").Enabled = False
.Controls("cb_s" & index & "_div").Enabled = False
.Controls("cb_s" & index & "_base").Enabled = False
.Controls("cbx_s" & index & "_rln").SetFocus
.Controls("cb_s" & index & "_pitch").Enabled = False
For lbl = 1 To 6
.Controls("lbl_s" & index & "_" & lbl).Enabled = False
Next lbl
.Controls("cbt_s" & index & "_del").Enabled = False
.Controls("cbt_s" & index & "_end").Enabled = False
If index < 8 Then
.Controls("cbt_s" & index & "_add").Enabled = False
End If
End With