"Bring To Front" 或 "Send To Back" 的代码是否正确？

Question

在 VBA Access 2010 中 "Bring To Front" 或 "Send To Back" a field/object 的以下代码是否正确？

我的代码是：

Private Sub Report_Load()

If IsOpen("Details_ME") Then

    Me.Controls("DRAFT_Logo").InSelection = True
    DoCmd.RunCommand acCmdBringToFront
Else

    Me.Controls("DRAFT_Logo").InSelection = True
    DoCmd.RunCommand acCmdSendToBack

End If

End sub

VBA 在以下代码中显示黄色错误：

Me.Controls("DRAFT_Logo").InSelection = True

感谢任何帮助或建议

Answer 1

我做了一点修正，很有用，所以它可以正常工作:)

我应该将代码放入 "Current Event" 而不是 "Load Event"。

Private Sub Report_Current()

If IsOpen("Details_ME") Then

    Me.Controls("DRAFT_Logo").InSelection = True
    DoCmd.RunCommand acCmdBringToFront

Else

    Me.Controls("DRAFT_Logo").InSelection = True
    DoCmd.RunCommand acCmdSendToBack

End If

End Sub

谢谢...

"Bring To Front" 或 "Send To Back" 的代码是否正确？

Is correct the code for "Bring To Front" or "Send To Back"?

vba

ms-access-2010