Access-VBA for 循环答案

【问题标题】：Access-VBA for loopsAccess-VBA for 循环
【发布时间】：2016-02-28 12:51:35
【问题描述】：

我对 VB 编码很陌生，但我确实了解一些基础知识。我想创建一个循环来检查 8 个文本框中的值，如果它不为空，则在受尊重的文本框旁边启用一个复选框。我不太确定语法。我有 8 个名为 Textbox1 的文本框：Textbox8 和 8 个名为 checkbox1-8 的复选框。这是我已经拥有的代码，但我只需要一些语法帮助。

 For i = 1 To 8

 If Textbox(i) = "" Then
 checkbox(i).enabled = false
 else
 checkbox(i).enabled = true

 End If

 Next

【问题讨论】：

创建一个字符串："Textbox" & i 使用该字符串来引用表单的Controls 集合中的项目：If Me.Controls("Textbox" & i).Value = "" Then 为您的复选框使用相同的策略。

标签： for-loop ms-access vba

【解决方案1】：

类似：

 For i = 1 To 8
     Me.Controls("checkbox" & i).Enabled = (Nz(Me.Controls("Textbox" & i).Value) <> "")
 Next

【讨论】：