求助背景取消还原按钮

nisg

求助

zhengjialon

窗体的边框样式改为“无”，并且输入以下代码：

Private Sub Form_Current()

   

    Dim FormWidth, FormHeight As Integer

    'DoCmd.RunCommand acCmdAppMaximize '将access界面最大化

    DoCmd.Maximize

    FormWidth = Me.WindowWidth

    FormHeight = Me.WindowHeight

    DoCmd.Restore

    DoCmd.MoveSize 0, 0, FormWidth, FormHeight

End Sub不过这样之后窗体不会随ACCESS的主窗体变化,完全成功解决的办法还没有.