在Access数据库中循环浏览文本框

Question

我有一个Access数据库，我想遍历某些文本框以进行计算并在单独的文本框中显示答案。当我尝试循环时，它循环遍历窗体上的每个控件（使用Form.Controls）。当我单击按钮时，我只想遍历4个特定的文本框（txtbx1，txtbx2，txtbx3，txtbx4）。

说明... TextBox_A包含数字单击按钮后，从TextBox_A中获取数字，乘以2800，然后除以12。以txtbx1显示计算的答案。

我将对上面命名的4个文本框分别执行此操作。然后有一个“总计”文本框，将每个文本框（txtbx1，txtbx2，txtbx3，txtbx4）的总数相加。请帮助，这是新手，请务必完全谅解。

Answer 1

每个控件都有一个Tag属性。为您要在算法中包括其值的文本框设置Tag属性（例如，设置为“ INClUDE”）。它是自由格式的文本，因此您可以输入自己喜欢的内容。

然后编写与以下表单事件相关的代码：

 Dim c As Control
Dim txt As TextBox

For Each c In Me.Controls

    'check it's a text box ...
    If TypeOf c Is TextBox Then

        'see if including ...
        Set txt = c
        If Len(txt.Tag) > 0 Then

            'do something here (I've coloured, to show works)
            txt.BackColor = 10

        End If

    End If

Next c

我设置了一个额外的变量txt来引用有问题的文本框，这样我就可以使用自动补全功能来获得TAG属性（我相信这被称为缩小转换！）。