• ベストアンサー

ACCESSのVBAでの2種類の画面サイズの指定

環境:XPPro&ACCESS2003 Aフォームを開く時最大化しています。 Aフォームの開く時:[イベント プロシージャ] DoCmd.Maximize →最大化されて開きます。 このAフォームにボタンをつけて、クリック時にBフォームを開きます。Bフォームは小さなフォームです。 Bフォームの開く時:[イベント プロシージャ] DoCmd.MoveSize 0, 0, 5670, 5670 ところが、このBフォームが最大化されて開きます。 Bフォームを0, 0, 5670, 5670のサイズで開きたいのですが、どなたかご存知の方よろしくお願いします。

  • idek
  • お礼率47% (170/361)

質問者が選んだベストアンサー

  • ベストアンサー
  • bonaron
  • ベストアンサー率64% (482/745)
回答No.2

Bフォームのプロパティで 「ポップアップ」を「はい」に。 ついでに大きさを変えられたくなければ 「境界線スタイルを「ダイアログ」に。

idek
質問者

お礼

できました。有難うございました。 ”ついでに大きさを変えられたくなければ 「境界線スタイルを「ダイアログ」に。” も参考になりました。

その他の回答 (1)

回答No.1

詳しいコマンドは忘れましたけど、Aフォームを開くときに、画面サイズを解像度のそれ(例えば1024*768とか)と同一サイズで指定して開けば良いです。

関連するQ&A

  • ACCESS フォームサイズ指定で エラー2465

    お世話になります。 ACCESS:2000 OS:xp データ参照フォームを作り、 検索フォームで入力したIDの情報を画面に表示させようとしています。 フォームサイズを DoCmd.Maximize としていると問題なく処理が動くのですが、 サイズを指定(DoCmd.MoveSize 1300, 500, 16025, 16500)すると、 エラー2465:「アプリケーション定義またはオブジェクト定義のエラーです。」 が出てしまい、原因がわかりません。 画面最大化でも問題はないのですが、可能であればサイズを調整したいと思っております。 ご指導いただければ、ありがたいです。 宜しくお願い致します。

  • アクセスのフォームサイズ変更について

    アクセスのフォームサイズ変更がうまくいかず困っています。 まずフォームを3つ(メニューA, frmB, frmC)作成しました。メニューAからは、frmBとfrmCを開くことが出来ます。また、frmBからはfrmCを開くことができます。 ここで、frmBのサイズはform_OpenでDoCmd.Maximizeを使って最大表示しています。frmCのサイズは同じくform_OpenでDoCmd.Movesize 1500, 300, 11500, 8000としています。 メニューAからは、frmB, frmCともに正しいサイズ(frmBは最大、frmCは指定のサイズ)で開かれます。frmBからfrmCを開くと最大化されて表示されてしまいます。 なお、frmBのform_Open内の最大化のコマンドをけずるとfrmBからもfrmCを正しいサイズでfrmCを開くことが出来ます。frmBのサイズがそのままfrmCに継続されているような気がするのですが、なぜfrmCのform_Openを読んでくれないのでしょうか。デバッグしてみましたがもちろん、frmCのform_Openも読んでいます。 frmBを最大化したまたfrmCを正しいサイズで開くことは出来ないでしょうか。 どなたかアドバイスをお願い致します。

  • アクセス起動時のフォームのサイズの指定方法

    アクセス起動時にフォームを開いた時に表示されるフォームのサイズは どこで設定されているのでしょうか? Form_Loadなどには DoCmd.MoveSizeで何も設定していないのに 5cm×5cm位のサイズでフォームが開かれます。 デザインビューにして、矢印でぐいーんとフォームの縦横を伸ばしても、 アクセスを再起動してフォームを開くと5cm×5cm位のサイズでフォームが開かれます。 デザインビューにして、矢印でぐいーんとフォームの縦横を伸ばして保存して、 ナビゲーションウインドウからフォームを開いたら、 デザインビューで設定したサイズで開かれます。 起動時の設定に該当のフォームを設定してる状態で、 アクセスを起動したときに、自分の指定したサイズでフォームを開くには Form_LoadでDoCmd.MoveSizeの設定をするしかないのでしょうか? なぜアクセスを閉じるとフォームのサイズがリセットされるのか教えてください。 アクセス2010です。

  • accessでフォームの最大化表示

    AというフォームとBというフォームがあります。 Aは任意の大きさで表示、Bは最大化表示をしたいのですが、 Docmd.maximizeなどを使うとすべてが最大化になってしまいます。 Bというフォームだけを最大化するにはどうしたらいいですか? (ディスプレイいっぱいに表示される最大化ではなく、通常の最大化(Accessのウィンドウ内でおさまる大きさ)で お願いします。)

  • Access VBAで

    VBAの超初心者です。 Accessのフォームでコマンドボタンを押すと、決まった文字が入力できるフォームを作りたいと思っています。 クリック時のイベントプロシージャーはどのように記入すればよいのでしょうか。 ど素人な質問ですみません。

  • アクセスvba [イベント プロシージャ]つけたい

    もうフォームモジュールにイベントは出来上がってるのですが コントロールの名前を変更したため デザインビューのプロパティの[イベント プロシージャ]と言う文字が消えてしまいました。 フォーム上の全てのコマンドボタンのクリック時に [イベント プロシージャ]と言う文字を入れたいのですが そのような作業は可能でしょうか? [イベント プロシージャ]と言う文字が入れば、該当のイベントは既にモジュールにある為 イベントとして機能します。

  • アクセスのフォームのサイズは何で決まるの?

    手作業でフォームを大きくしているのに 一度フォームを閉じると手作業で大きくしたサイズにはなりません。 VBAでDoCmd.MoveSizeはしてないです。 フォームのデザインビューで、詳細の高さを18cm位にしているのに、 いざフォームを表示させると10cm位になってしまい、中身が全部表示されません。

  • アクセスフォームのサイズの調整について

    一つは全画面表示(Maximize)で開きもう一つは普通の表示(Restore)で開くには? フォーム1とフォーム2があります。画像をご覧ください。 フォーム1は Private Sub Form_Load() DoCmd.Maximize End Sub で、 フォーム2は Private Sub Form_Load() DoCmd.Restore End Sub としてます。 フォーム1にコマンドボタンを設置して、 Private Sub フォーム2を開く_Click() DoCmd.OpenForm "フォーム2" End Sub として、フォーム2を開くのですが、 フォーム2が開くとフォーム1まで、元の大きさに戻ってしまいます。 行いたいことは、 フォーム1は全画面表示、フォーム2は、ノーマルな表示(全画面でも最小化でもない) にしたいのですが、不可能なのでしょうか?

  • 元の大きさに戻したい

    フォームを開く時に DoCmd.Maximize で最大表示をしているのですが DoCmd.Close acForm, "フォーム名" で閉じる時に元のサイズに戻したいです。 DoCmd.Minimize だと小さくなりすぎてしまいました。 ご教授よろしくお願いします。 (アクセス2003です)

  • ACCESS VBAで別のプロシージャを呼びだした後

    いつもお世話になります。 ACCESS VBAで、別のプロシージャを呼びだし、 フォームを開き、あるコマンドボタンをクリックすると、 もとに戻ってくるようにしたいのですが、 call で別のプロシージャを呼びだし、フォームを開くところまではうまくいくのですが、コマンドボタンをクリックする前に戻ってきてしまいます。 コマンドボタンにはイベントプロシージャを設定しているのですが、 それではダメなんですよね? どのようなコードになるのでしょうか?よろしくお願いします。