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

Posted 2021-04-21

如何创建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

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

答案

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

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

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

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

另一答案

当你的意思是指TabControl时，你似乎无意中提到了TabCtl0。

您可以使用With..End With语句使引用更简洁

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

另一答案

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

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

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

另一答案

这个怎么样？

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

另一答案

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