В полный экран (при открытии)
Private Sub Form_Load() 'В полный экран : DoCmd.Maximize End Sub
Вернуть нормальный размер (какой был до разворачивания в полный экран или до свёртывания)
DoCmd.Restore