如何循环批量的修改文本控件的使能属性值？

Foxproboy　发表于：2016-01-24 13:44:25 　

复制

各位大侠我初来乍到还没有积分，但是有个问题还要大侠支持：

我已经将窗体上的所有文本控件名称设置成的统一的编号了，如：t1,t2,t3...

我想在窗体的load过程里通过循环语句按顺序将所有的文本控件的属性enabled设为false,

而不是一个一个语句的设置。以下语句始终过不了（&和+符号连接也不行）

Private Sub Form_Load()
Dim i As Integer
For i = 3 To 18
"Me.t" & CStr(i) & ".Enabled = False"
Next
End Sub

请大侠支招！

Top

缪炜发表于：2016-01-25 08:41:12

Dim ctl As Control
For Each ctl In Me
    If ctl.ControlType = acTextBox Then
        ctl.Enabled = False
        Else
        ctl.Enabled = True
    End If
Next

Top

朱先生发表于：2016-01-25 10:33:47

Private Sub Form_Load()
Dim i As Integer
For i = 3 To 5
Me ("t" & I).Enabled = False
Next
End Sub

以上测试通过，窗体打开时T3、T4、T5都变成灰色，且无法编辑，不知是不是要达到这要求

Top

Foxproboy 发表于：2016-01-25 12:16:19

@朱先生

果然是大侠！已经可以了。

谢谢

Top

朱先生发表于：2016-01-26 15:23:36

结帖吗？？？？？？？

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

如何循环批量的修改文本控件的使能属性值？