Question

VBA Access 2010中的字段/对象的“置于前面”或“发送回”的下面代码是否正确？

我的代码是：

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

我做了一点修正，这很有用，所以它运作正常:)。

我应该将代码放入＆＃34;当前事件＆＃34;相反，＆＃34;加载事件＆＃34;。

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

谢谢......

“带到前面”或“发送到后面”的代码是否正确？

1 个答案: