SetFocus后需要自动编辑SubForm中的Access TextBox

Question

我试图将 TabControls 用于访问表单中的子表单。

我在 TabControl 的页面上嵌入了一个子窗体。我需要从主窗体中的最后一个数据输入字段移动到子窗体中的第一个数据输入字段。

当我将焦点设置到子窗体中的控件时，它不允许在不单击文本框的情况下进行编辑。是否有立即启用编辑的命令？

Private Sub ReadDate_AfterUpdate()
  Dim myControl As Control
  Set myControl = Forms!Data_Input!BOD_Data_Subform!textBoxToEdit

  myControl.SetFocus
End Sub

提前感谢您的任何建议。

Answer 1

select 从主窗体到子窗体的控件需要两个步骤
按顺序执行以下操作：

Select 子窗体控件。
Select 相应控件就可以了子表单。

示例代码

Private Sub ReadDate_AfterUpdate()
  Dim myControl As Control

  ' Select the subform control first
  Forms!Data_Input!BOD_Data_Subform.SetFocus
  Doevents

  ' Select the control on the subform.
  Forms!Data_Input!BOD_Data_Subform.Form!textBoxToEdit.SetFocus
End Sub

* 编辑 *

我怀疑如果主窗体中没有 TabControls，答案会起作用。这是一个分为两部分的过程，但在这种情况下，第一步是：

Forms!Data_Input!subDataTabControl.Pages(0).SetFocus

其中 subDataTabControl 是选项卡控件的名称，0 给出页面索引。

SetFocus后需要自动编辑SubForm中的Access TextBox

Need to Automatically Edit Access TextBox in SubForm after SetFocus

ms-access

vba

tabcontrol