ms-access - 循环 Access 表单上的文本框并更改数据

Question

我正在尝试在 Access 表单打开时更改数据。目前数据显示为 True，我想将其更改为 Yes。我试了一下，但我是 vba 的新手，真的不知道自己在做什么。我已经给所有文本框添加了相同的“QtTxtBox”标签，希望这会有所帮助，但事实并非如此。以下是我到目前为止所得到的，任何人都可以帮助我吗？

      Dim ctlVar As Control
      For Each ctlVar In Me.Controls
        If ctlVar.ControlType = acTextBox Then
            If acTextBox.text = "True" Then
               acTextBox.text = "yes"
            End If
      End If

Answer 1

您的问题出在您的文本框引用中。 acTextBox 不是文本框。它只是一个值，表明控件类型是文本框。
所以，当您说“If ctlVar.ControlType = acTextBox Then”时，这是正确的。
但是当您说“If acTextBox.text = "True"Then”时，这是不正确的。您不再引用该控件。它应该是“If ctlVar.text = "True"Then”。 ctlVar 是您对控件的引用。

此外，您需要在更改值之前将焦点设置到文本框上。您的代码应如下所示:

For Each ctlVar In Me.Controls
  If ctlVar.ControlType = acTextBox Then
      If ctlVar.Value = "True" Then
         ctlVar.Value = "yes"
      End If
End If