command1 click yordamını şu şekilde düzeltin:
Me.deneme.Visible = True
If Me.FormFooter.Visible = False Then
Me.FormFooter.Visible = True
DoCmd.RunCommand acCmdSizeToFitForm
Else
Me.FormFooter.Visible = False
DoCmd.Restore
DoCmd.RunCommand acCmdSizeToFitForm
End If
İnadına, ille de Accesstr.net...