在主窗體加入代碼:
Private Sub Form_Activate()
Dim I As Integer, J As Integer
Application.Echo False
DoCmd.RunCommand acCmdAppMaximize
DoCmd.Maximize
I = Me.WindowWidth
J = Me.WindowHeight
DoCmd.Restore
DoCmd.MoveSize 0, 0, I, J
DoCmd.Maximize
Application.Echo True