Question

根据条件，我想要移动一个子表单。它涉及隐藏另一个子窗体并将此子窗体移动到其位置。我注意到在第一个条件下，没有必要定义TOP，因为它会自动保持此设置。但无论我如何在ELSE条件下设置TOP属性，子窗体都会移到顶部，无视任何微调。怎么可以做到这一点？

确切代码如下（ReturnsRecords只是一个返回true或false的函数，具体取决于它是否返回记录）

If ReturnsRecords("SELECT DISTR_ID From tbl_SP WHERE distr_id = " & Me!DISTR_ID) Then

            'Form_DISTRO.sfm_AFP_SPLIT.Top = 3.0417

            AdjustDistro "AFP", cLatest


        Else
            Form_DISTRO.sfAFP.Visible = False
            Form_DISTRO.sfm_AFP_SPLIT.Top = 1.2292
            MsgBox "Please enter a spend plan before adjusting this distribution", vbInformation


        End If

Answer 1

您似乎在尝试在代码中使用英寸。放置控件时VBA使用缇，尝试使用1770而不是1.2292。

Access 2010使用TOP属性以编程方式移动子表单

1 个答案: