Ms access 如何通过编程在表单/页面上查找控件的确切位置 函数RequiredFieldsMissing（frm作为形式）作为布尔值 Dim foundEmpty作为布尔值 将文本框设置为文本框 将cmb变暗为组合框 变暗pge为页面 按Ctrl键作为控件 将formName设置为字符串` foundEmpty=False formName=frm.Name 对于frm.控件中的每个Ctrl 如果Len（Ctrl.Name）>6，则 如果左（Ctrl.Name，3）=“txt”，右（Ctrl.Name，3）=“Req”，则 设置txt=Ctrl 如果为空（txt.value），则 foundEmpty=True txt.BackColor=constLngRed 'Form_Clients.TabClientData.Pages（1）.SetFocus txt.SetFocus 其他的 如果Len（txt.value）=0，则 foundEmpty=True txt.BackColor=constLngRed 如果结束 如果结束 如果结束 如果左（Ctrl.Name，3）=“cmb”，右（Ctrl.Name，3）=“Req”，则 设置cmb=Ctrl 如果为空（cmb.value），则 foundEmpty=True cmb.BackColor=constLngRed 其他的 如果Len（cmb.值）=0，则 foundEmpty=True cmb.BackColor=constLngRed 如果结束 如果结束 如果结束 如果结束 下一个Ctrl键 RequiredFieldsMissing=foundEmpty 端函数

上面的函数将着色并突出显示没有数据的控件…问题是我需要设置控件的焦点，但有时控件驻留在子窗体和页面上。 如果我执行txt.setfocus，那么它将把焦点设置为该控件，但不会移动到驻留页面。我传递的唯一变量是表单

我的问题如下

---

当我只传递表单名称时，如何将焦点设置到驻留在页面上的控件？

您必须调用SetFocus两次：一次将焦点设置到子表单（在主表单上），一次将焦点设置到子表单上的控件。

如果10个控件没有数据，则无法将焦点放置到所有10个控件上。用着色完成循环，然后在退出之前将焦点设置为第一个或最后一个控件。嗨，Krish，我自己设法解决了这个问题，但由于一些限制，我还不能回答我的帖子，我不确定如何取消这些限制。我想发布我写的代码！为了帮助其他人，如果他们有类似的情况，基本上我将tab控件和表单传递给另一个函数，如果该控件的颜色为红色，则我将页码大写，并将焦点设置为page和需要数据的控件。