電子書籍の厳選無料作品が豊富!

アクセス2003を使用しています。

VBAでフォームの最小化最大化のボタンの制御をしたいのですがエラーになってしまいます。
詳しい内容は

Private Sub Form_Load()
Me.MinMaxButtons = 0
End Sub

とすると、
 実行時エラー '2448':
 このオブジェクトに値を代入することはできません。

となってしまいます。

そのままヘルプを開くと
**********************************************************
フォームまたはデータ アクセス ページを読み取り専用にする
フォームを読み取り専用にするには、フォームのプロパティを設定します。データ アクセス ページを読み取り専用にするには、グループ レベル プロパティを設定し、データ アクセス ページに含まれるグループごとに読み取り専用にします。
**********************************************************
となっています。

MinMaxButtonsのヘルプには
**********************************************************
フォームの最大化ボタンと最小化ボタンを表示するかどうかを示します。
値の取得および設定が可能です。
**********************************************************
と書かれてるのでVBAで設定可能だと思いますがなぜかできません。

よろしくお願い致します。

A 回答 (2件)

VBAで実行するならば、ワンクッション入りますが、以下の方法があります。



・別のフォームや、標準モジュールで以下を実行(ワンクッション)

Dim objForm As Form
Set objForm = Application.Forms("開きたいフォーム名")
objForm.MinMaxButtons = 0
DoCmd.OpenForm objForm.Name
    • good
    • 0
この回答へのお礼

ありがとうございました!

お礼日時:2011/11/13 22:09

そのヘルプの中に以下の文がありますが、それは確認していますか?



"MinMaxButtons/最小化/最大化ボタン" プロパティはフォームのデザイン ビューでのみ設定できます。
    • good
    • 0
この回答へのお礼

ありがとうございます。

ヘルプを確認したところ、おっしゃるとおり確かにそう書いてありました。

しかし
---------------------------------------------------------------------------------------------
メモ このプロパティを設定するには、フォームのプロパティ シート、マクロ、または Visual Basic を使用します。
---------------------------------------------------------------------------------------------
とも書いてありますが、Visual Basic (→VBA)でも設定出来ると言う意味ではないのでしょうか?

お礼日時:2011/11/05 23:13

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!