サブフォームの大きさをAccessウィンドウの大きさの変化に伴いフィットさせたり、ウィンドウのサイズ自体を変更したり、最前面を固定化したり、のサンプルダウンロード(ESETでウィルスチェックしてあります)(01)「サブフォームフィット例.mdb」(外側の「ガワ(=アプリケーションウィンドウ)」の大きさの自動変更のサンプルも同じフォームの中に作りました。※ランタイムはバージョン2000のものです。Access2000を持っていない方でも、サンプルのmdb(ここでは「サブフォームフィット例.mdb」)の動作の確認をしていただけます。Win10で動くかはまだチェックしていません。仮想マシンのXPなどで動かすほうが確実かと思います。仮想マシンの中ではAccessランタイムでの動作では、「Accessウィンドウ(ガワ)の大きさを変える」ボタンでエラーになってしまいました。そのほかは動くようです。仮想マシンでないマシン上で正常動作するかもチェックはしていません。ランタイムではないAccess2000ならエラーにはならないと思います。以下のコードを、Accessの標準モジュールを1個つくってコピペして使ってください。イベントプロシージャや標準モジュールのプロシージャから呼び出せば、以下のようなことができます。Automation」に照設定をしておきます。APIとは関係ありません。'タイトル名からリサイズする。'タイトル名は全部じゃなくても一部でもOKみたいです。'対象をアクティブにする。アクティブにしないと動かない。'開いた何らかのアプリケーションをリサイズする関数。'タスクID(プロセスID)からリサイズする。'対象をアクティブにする。アクティブにしないと動かない。'上記関数を変形しただけ。'フォーム名をモトにリサイズする。ウィンドウハンドルを指定する。'照設定をしておきます。'照設定をしておきます。'Windows画面が分割表示されます。'照設定をしておきます。'Windows画面が分割表示されます。Sub'###################################################################'開いた何らかのアプリケーションをリサイズする関数'タイトル名からリサイズする。'タイトル名は全部じゃなくても一部でもOKみたいです。WINDOWPLACEMENT'対象をアクティブにする。アクティブにしないと動かない。Function'###################################################################'開いた何らかのアプリケーションをリサイズする関数。'タスクID(プロセスID)からリサイズする。WINDOWPLACEMENT'対象をアクティブにする。アクティブにしないと動かない。Function'###################################################################'開いているmdb内のフォームをリサイズする関数'上記関数を変形しただけ。'フォーム名をモトにリサイズする。ウィンドウハンドルを指定する。Automation」に'照設定をしておきます。Automation」に'照設定をしておきます。'Windows画面が分割表示されます。Automation」に'照設定をしておきます。'Windows画面が分割表示されます。サブフォームの大きさを、「ガワ(親)」のAccessのアプリケーションウィンドウの大きさの変化に合わせて、フィットさせるコードは以下の通りです。フォームの「リサイズ」のイベントに書きます。以下のコードをサブフォームを持つフォームに書きます。Sub」は抜いて、中身だけをコピペすればOKかと思います。フィットさせること自体にはWin32APIは必要ないのですが、最小化するときなどにエラー回避などで必要になります。(「frm_size_State01()関数による状態チェックで。'フィットさせる処理ですが、本当はWin32APIなしでもOKです。'Win32API(これより上のプログラム)は要りません。上記のWin32APIのコードも追記してあります。'小さくなってしまうのか、よくわかりませんが、エラーになります。'そのときのエラー処理は書いてませんので、ご自分で書いてみてください。Subでプログラムを終了させればOKかと思います。'(フォームヘッダやフォームフッタの大きさは変わりません。'このコードはなくてもエラーにならないかもです。'少し小さくするといいみたい。'あまり数字が大きくても小さくてもエラーになるっぽいです。'切れた感じになるので注意。'数字はピクセルではなくて、twipです。'横方向のスクロールバーが下に隠れてしまう場合もあるので注意。'数字はピクセルではなくて、twipです。If'====================================='これ以降のプログラムは、実際に、サブフォームの大きさを'フィットさせる処理ですが、本当はWin32APIなしでもOKです。'ウィンドウを最小化する事がないないなら、'Win32API(これより上のプログラム)は要りません。上記のWin32APIのコードも追記してあります。)'また、あまりウィンドウを小さくするとサブフォームの大きさがゼロよりも'小さくなってしまうのか、よくわかりませんが、エラーになります。'そのときのエラー処理は書いてませんので、ご自分で書いてみてください。Subでプログラムを終了させればOKかと思います。'●フォームの詳細セクションの大きさの調整'(フォームヘッダやフォームフッタの大きさは変わりません。Me.InsideWidth'詳細セクションには幅のプロパティが無いのでMe.(フォーム)で幅を調整'このコードはなくてもエラーにならないかもです。800'最後のマイナスの数値の1000(twip)は、'「埋め込みとしてのガワ01」のHeightの数字と同じくらいか、'少し小さくするといいみたい。'あまり数字が大きくても小さくてもエラーになるっぽいです。500'最後のマイナスの数値が500よりも低すぎると、'サブフォームの右端の縦方向のスクロールバーが隠れてしまい、'切れた感じになるので注意。'数字はピクセルではなくて、twipです。1000'最後のマイナスの数値を1000以下にすると、サブフォームの下側の'横方向のスクロールバーが下に隠れてしまう場合もあるので注意。'数字はピクセルではなくて、twipです。挫折するオブジェクト式やプログラム(プロシージャ)の書き方、挫折しない書き方、の違い。ODBCでQueryTableオブジェクトを自動作成するサンプルコード)。2000以降の全バージョンで使えると思います。~ついでに、セルの値で結果表示を自動で切り替える「パラメータクエリ」のVBAでの自動作成も。~★★Access2000VBA・Excel2000VBA独学~Win32API。eChromeを例に。(Excel、Word、Access、などが32bit版のモノでしか使えませんが、OSは64bitでも大丈夫です。』、「オブジェクトを引数にして・かつ・オブジェクトを返す」、そういう自作関数の作り方。「安全」な、Youtube動画のダウンロード方法6つ。挫折するオブジェクト式やプログラム(プロシージャ)の書き方、挫折しない書き方、の違い。送信メールが受信トレイに入ってしまうトラブルの回避、など。ODBCでQueryTableオブジェクトを自動作成するサンプルコード)。2000以降の全バージョンで使えると思います。~ついでに、セルの値で結果表示を自動で切り替える「パラメータクエリ」のVBAでの自動作成も。technology.。