• @知識の歪 [428]
  • 野球を見ようか [308]
    • 2004年 シーズン [6]
    • 2005年 開幕前 [10]
    • 2005年 前半戦 [37]
    • 2006年 開幕前 [16]
    • 2006年 前半戦 [88]
    • 2006年 後半戦 [10]
    • 2007年 前半戦 [84]
    • 2009年 シーズン [5]
  • 日記っぽいもの [15]
  • 断食してみた [19]
  • テキトーに園芸 [16]
  • 伯耆流居合兵法 [4]
  • 風景写真とか [11]
    • 野球の風景 [6]
    • 廃墟の風景 [1]
    • 季節の風景 [1]
    • スライドショー [3]
  • 放射化学か？ [4]
  • 技術的なメモ [51]
    • Access [11]
    • Blosxom [37]
    • GTD [1]
    • 手帳 [1]
    • Windows [1]

• [手帳] MOLESKINE + ONBOOK
• [居合] 姿勢について
• [園芸] やっとこ収穫してみた。
• [居合] 板につくために。
• [園芸] パセリを再セットアップ。
• [園芸] 昼間の光の下で見たい成長っぷり。
• [園芸] 秋らしくなってきたが、野菜は育つ。

[Access] フォームを常に基準サイズで表示する

posted at 2007-03-29(Thu) 10:00 in 技術的なメモ::Access [Edit]

フォームを最大化表示すると、大きなモニタではコントロールが全て左上に寄ってしまってなんとなく不恰好である。
よって、フォームを開いたときに常に基準のサイズで表示する、 あるいはレポートを最大化表示した直後にフォームにフォーカスを戻しても、 フォームが最大化表示にならないようにする。

'--------------------------------------------------
'   Function : gfnc_Restore
'              元の大きさに戻す
'--------------------------------------------------
Public Function gfnc_Restore() As Boolean

    DoCmd.Restore
    DoCmd.RepaintObject

End Function

フォームのアクティブ化イベントに、作成したgfnc_Restoreを記述して完成。