サブフォームの左からの値を取得するには？

質問

アクセス２００７です。

MsgBox Form_Fサブフォーム.InsideHeight

で、高さは取得できるのですが、

MsgBox Form_Fサブフォーム.InsideLeft

にすると、.InsideLeftがコンパイルエラーとなってしまうようです。

デザインビューでサブフォームのプロパティシートで左位置にカーソルをあててＦ１を押しても
ヘルプは出てきませんでした。

ＶＢＡでのサブフォームの左位置の取得方法を教えてください。

回答No.1

DexMachina · ベストアンサー

VBA上では
　　Form_Fサブフォーム.WindowLeft
で取得が可能です。

但し、これはフォームとしての取得方法で、サブフォームの場合は、通常は
　　Me!サブフォーム名.Left　(親フォームから参照する場合)
　　Forms!フォーム名!サブフォーム名.Left (親フォーム以外からの場合)
というように、「フォーム」としてではなく、「サブフォームコントロール」としての
プロパティを使用するのが一般的です。

『高さ』についても同様に、
　　Me!サブフォーム名.Height
　　Forms!フォーム名!サブフォーム名.Height
とします。

なお、フォームビューで表示した場合は、サブフォームとして使用している
フォームを、同時に別途で開くことも可能になっています。

この場合、「Form_Fサブフォーム」で参照されるのは、先に開いていた方の
値になるようですので、注意が必要です。
(先にサブフォームとして開いてから、ナビゲートウィンドウでダブルクリックして
　Fサブフォームを直接開いた場合は、サブフォーム側の値が、
　先にFサブフォームを直接開いてから、同フォームをサブフォームとして使用
　しているフォームを開いた場合は、直接開いた方の値が、それぞれ取得
　されます)

これを避けるためにも、サブフォームとしての場合は上記の形で、
直接開いている場合は
　　Me.WindowLeft　(自身から参照する場合)
　　Forms!フォーム名.WindowLeft　(上記以外の場合)
の形で、それぞれ参照した方がよいと思います。

なお、もしも「DoCmd.OpenForm」ではなく「New Form_Fサブフォーム」や
「Form_Fサブフォーム.Visible」の形で当該フォームを開いている場合は、
「Forms!フォーム名」の形では参照できないため、
　　Set Frm = New Form_Fサブフォーム
というように、フォームを変数に格納しておいて、
　　MsgBox Frm.WindowLeft
という形で参照する必要があります。
http://okwave.jp/qa/q7778972.html

なお、F1キーでヘルプが表示されなかった場合は、その画面の左上の方に
検索条件の入力欄がありますので、そこにプロパティ名(今回のご質問では
「左位置」)を入力してやれば、当該ヘルプを表示することができます。
(ヘルプの関連付けが不完全なようで、当該ヘルプが存在していても、
　F1キーでは表示されないものがあるようです)

お礼

WindowLeftで思い通りに取れました。いろいろと補足ありがとうございました。