如何对Access表单进行全局更改？

Question

我继承了一个带有标签形式的数据库，而这个数据库又带有选项卡式子表格。许多子表单都有一个必须更正的标签。如果这是Word文档或Excel工作簿，我将使用Find-and-Replace-All。你不能在表单上的控件上做到这一点，对吗？

有没有办法使用VBA？我认为它看起来像：

 Set aForm = Me
 For each aPage in aForm.Pages
     For each aControl in aPage.Controls
          if aControl.type = "Label" then
               if aControl.Value = "OldText" then aControl.Value = "NewText"
          end if
     Next aControl
 Next aPage

编辑-------------

我试过这段代码：

 For Each aForm In Application.CurrentProject.AllForms  
     For Each aPage In aForm.Pages  '<---- Error here
         For Each aControl In aPage.Controls
              If aControl.Type = "Label" Then
                   If aControl.Value = "OldText" Then aControl.Value = "NewText"
              End If
         Next aControl
     Next aPage
 Next aForm

但是我把箭头弄错了。它说＆＃34;对象不支持这个属性或方法＆＃34;，这意味着它不喜欢＆＃34; aForm.Pages＆＃34;。什么是在选项卡页面中循环的正确方法？