Access 2010 使用 TOP 属性 以编程方式移动子窗体
Access 2010 Moving a subform programatically using TOP property
根据情况,我想要移动子表单。它涉及隐藏另一个子表单并将此子表单移动到它的位置。我注意到在第一种情况下,没有必要定义 TOP,因为它会自动保留此设置。但是无论我如何在 ELSE 条件下设置 TOP 属性,子窗体都只是移动到顶部,而忽略任何微调。这究竟是如何做到的?
具体代码如下(ReturnsRecords 只是一个函数,returns true or false 取决于它是否returns 记录)
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
您似乎正试图在代码中使用英寸。 VBA 放置控件时使用缇,请尝试使用 1770 而不是 1.2292。
根据情况,我想要移动子表单。它涉及隐藏另一个子表单并将此子表单移动到它的位置。我注意到在第一种情况下,没有必要定义 TOP,因为它会自动保留此设置。但是无论我如何在 ELSE 条件下设置 TOP 属性,子窗体都只是移动到顶部,而忽略任何微调。这究竟是如何做到的?
具体代码如下(ReturnsRecords 只是一个函数,returns true or false 取决于它是否returns 记录)
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
您似乎正试图在代码中使用英寸。 VBA 放置控件时使用缇,请尝试使用 1770 而不是 1.2292。