使用按钮在Access中的选项卡之间切换

Question

如何创建VBA宏以在Access中的表单上的选项卡控件中切换页面？我认为代码很简单，但我无法在网上找到任何明确或明确的内容。这些是我到目前为止尝试过的代码示例：

Private Sub Command5_Click()
TabControl.Value = (TabCtl0.Value + 1) Mod TabControl.Pages.Count
End Sub

Private Sub Command1_Click()
Me.Tab2.SetFocus
End Sub

但我想知道是否需要更复杂的东西。按钮和标签是分开的（按钮不在标签本身上），如图所示：

Answer 1

这是一个相当古老的问题，但是为了其他任何偶然发现它的人的利益：

你在试过的那个例子中给出的第一个例子应该可行，但是它有一个bug。代码引用TabControl和TabCtl0，我认为它应该只是一个或另一个。

假设您的按钮名为Command9，如图所示，并且您的标签控件名为TabControl，则以下内容应该有效：

Private Sub Command9_Click()
  TabControl.Value = (TabControl.Value + 1) Mod TabControl.Pages.Count
End Sub

Answer 2

如果你想提及TabControl，你似乎无意中提到了TabCtl0。

您可以使用With..End With声明

使参考更简洁

Private Sub Command5_Click()
  With Me.TabCtl0
    .Value = (.Value + 1) Mod .Pages.Count
  End With
End Sub

Answer 3

为什么不简单地在标签之间切换？

https://www.youtube.com/watch?v=OtN2DSg-cAU

这应该让你朝着正确的方向前进。

Answer 4

这个怎么样？

Me.TabControlName.Pages.Item("PageName").SetFocus

Answer 5

如果您使用的是宏构建器，还可以使用“转到控制”