Question

我想了解如何创建一个按钮，允许激活和取消激活记录选择器但是这样做，表单/页面标题中的标题随记录一起移动，以避免列标签之间令人讨厌的不一致在表单标题和表单正文中的数据。

    Me.RecordSelectors = True

Answer 1

在按钮中尝试以下代码（但如果需要，您可以添加代码以排除某些控件）：

Private Sub cmdToggleRS_Click()
Dim ctl     As Control
If Me.RecordSelectors = True Then
    Me.RecordSelectors = False
    For Each ctl In Me.Section("FormHeader").Controls
        If ctl.Name <> "SkipThis" Then
            ctl.LeftPadding = ctl.LeftPadding - 20
        End If
    Next ctl
Else
    Me.RecordSelectors = True
    For Each ctl In Me.Section("FormHeader").Controls
        If ctl.Name <> "SkipThis" Then
            ctl.LeftPadding = ctl.LeftPadding + 20
        End If
    Next ctl
End If
End Sub

激活和取消激活记录选择器

1 个答案: