通过控制方法和标签移动对象组的位置 - Microsoft Access

Question

我已经为一组对象分配了标签：

Tag: Section1

然后我有一个按钮叫做 'Nextbutton'

我希望能够单击该按钮，并将带有标签 'Section1' 的对象向右移动指定的量

到目前为止我有这个代码：

Public sub Nextbutton_Click ()
    Dim ctrl As Control

    For Each ctrl In Me.Controls
        If ctrl.Tag = "Section1" Then
            ctrl.Left = +5 
        End If
    Next

End Sub

基本上，我可以将所有对象移动到左侧；但我不确定如何将它们向右移动。我尝试在 ctrl.Left 部分输入一个负数，但它只是给我这个错误：

Run-time error '2100':
The control or Subform control is too large for this location

这可能是一个非常简单的修复，但因为我是新手而且 vba；我不确定要尝试什么

Answer 1

以下语句：

ctrl.Left = +5

无法像大多数其他编程语言那样在 VBA 中工作。

在VBA中它只是意味着将属性 Left设置为5（而不是将属性 Left的值增加5），所以所有的带有标签 Section1 的控件放置在距离左侧 5 个像素的位置。

如果你想增加他们左边的位置（所以把他们移到右边）你需要用这个替换它：

ctrl.Left = ctrl.Left + 5

通过控制方法和标签移动对象组的位置 - Microsoft Access

Move position of group of objects via control method and tags - Microsoft Access

ms-access

controls

vba

runtime-error

object