OCN光で最大124,800円おトク!

Access 97 VBAでプログラムを作ってます。
Accessウインドウ内のForm又はForm内のControlをクリックした時に、Accessウインドウ左上隅からFormの左上角までの位置(Left、Top)を参照するためのプロパティを教えて下さい。
CurrentSectionLeftとCurrentSectionTopは、Form内での位置参照です。Formそのものの位置を参照する方法は無いのでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

プロパティは、ちょっとすぐには思いつきません。

(無いかもしれません。)
私がやったときは、Windows APIを使いました。

'フォームの宣言部
Option Explicit

Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

'コマンド1押下時
Private Sub コマンド1_Click()
  Dim RectFrm As RECT
  Dim RectAcc As RECT
  Call GetWindowRect(Me.hwnd, RectFrm)
  Call GetWindowRect(Application.hWndAccessApp, RectAcc)
End Sub

こんな感じで分かりますか?
RectFrm構造体には、フォームの位置情報が入っています。
RectAcc構造体にはAccessのウインドウの位置情報が入っていると思います。
ってことで、Accessのウインドウ位置からフォームのウインドウ位置を引き算すれば、相対位置が求まるような…
(実はこの辺、試したのはかなり昔の話です。VBAコード自体には問題は無いはずですが、「引き算すれば」とかのお部分に関しては、それほど自信は無いです。
ってことで、申し訳ないですが、詳細な部分についてはご自身で確認してくださいませ。)

ちなみに、単位はTwipsではなくて、ピクセルです。(Windows APIを使っているので。)

この回答への補足

ARCさん へ  回答文に書いて戴いた[Windows API]が何の事だか全く理解出来ないまま、取り敢えず、回答ステートメントをそっくりそのまま実行して見ました。見事に位置情報が参照でき感激しました。大変感謝しております。
 教えてGooに質問した位置情報参照については解決致しました。でも、ARCさんの回答にある[Declare Function...LIb...]なるモノを知りませんでした。ハンドブック(ナツメ社「Access97VBA」)には、「ダイナミックリンクライブラリー(DLL)の外部プロシージャへの....」と説明がありました。位置情報を参照出来る以外にも色々便利な機能が有るように思いますので、是非詳しく知りたいと思います。
そこで、素人が理解出来る範囲で「外部プロシージャ」なるモノを使用する方法を知る(勉強する)手がかりを教えて下さい。
厚かましいお願いですか、ご教授願えれば幸いです。 

補足日時:2002/11/09 10:48
    • good
    • 0

APIってのは、あるソフトを外部から制御できるように、公開されている関数のことです。


Windows APIはWindowsの様々な機能を制御するためのものです。

今回使用した「GetWindowRect」という関数もその一つで、その名の通り、ウインドウの矩形範囲(RECT)を取得するための関数です。

で、これらのAPIは通常、DLLやOCXといった形で提供されます。
Declare ステートメントは、「このDLLに収録されているこの関数をVBから使用する」っていうことを宣言するための命令です。
今回の場合、Windowsが提供する「User32.DLL」に含まれる「GetWindowRect」という関数を使用することを宣言しています。

hWndっていう引数を宣言して、フォームのhWndプロパティを渡していますが、これは、「ウインドウハンドル」といって、個々のウインドウに設定されたIDのことです。
Windowsはこの「hWnd」の値を使って、ウインドウの管理を行っています。



WindowsAPIを使用法を知るには、まずは本屋さんでWindowsAPIをVBから使うことについての本をご購入ください。(各社から多数出版されています。)
それを見ながら、実際に使ってみると、ある程度の規則性があることが分かると思います。(C言語の若干の知識があると尚いいのですが…)

規則性がつかめたら、そのうちにまったく知らない関数であっても、関数名と引数を見るだけで使い方が見えてきたりします。

あと、VBから使用可能なWindowsAPIについては Win32API.Txtというファイルにまとめられています。
Visual Basicなどの開発言語や、Officeのディベロッパ エディションなどに付属しています。
    • good
    • 0
この回答へのお礼

ARCさん へ
早々に回答を戴き感謝致します。大変分かり易い説明です。一読しただけで、API・Declare・ウインドウハンドルの概略の概念が理解出来ました。
早々に「WindowsAPI」をキーワードにして書店で解説書を探してみます。
「ウインドウ内の位置情報を知りたい」と云う単一的な疑問解決だけで無く、新たな道具となるAPIと云うモノの存在を教えて戴いた事、深謝致します。
趣味の範囲(一部は生活実用)でVBプログラミングを楽しんでおりますが、これからはAPIでその範囲が広がりそうです。
何時かまた、質問投稿をした時には宜しくお願い致します。有り難う御座いました。

お礼日時:2002/11/10 08:38

このQ&Aに関連する人気のQ&A

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

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QAccessのRefresh・Requery・Repaintの違い

Requeryはもう一度ソースレコード(テーブル)を読み込むようです。このとき、テーブルの先頭レコードに移動してしまいます。
Refreshは最新のレコード(テーブル)を再表示するような気がします。レコードの移動は起こらない気がします。
Repaintは、VBAでキャプションなどを変更したとき使っています。
でも、よくわかっていません。
どんなときにどんなメソッドを使えばいいのでしょうか?
詳しい方、よろしくお願いいたします。

Aベストアンサー

たびたびすみません。
調べてたらこんなのがでてきました。
http://www.nurs.or.jp/~ppoy/access/access/acF007.html

参考URL:http://www.nurs.or.jp/~ppoy/access/access/acF007.html

Q【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには

バージョン:Access2002

フォーム「frm01」にテキストボックス「tb01」が作ってある場合、
Forms.frm01.tb01.Value="あいう"
とすれば、フォームもコントロールも指定できるのですが、
Dim strTxt As String
strTxt = "tb01"
Forms.frm01.strTxt.Value="あいう"
だと、文字列型変数"strTxt"が展開されないのでフォーム「frm01」のコントロール「strTxt」を探してしまいエラーになってしまいます。

文字列型変数でフォームやコントロールを指定するには、どのようにすればよいのでしょうか?

Aベストアンサー

フォームの場合
 Forms(strFrm)

フォームのコントロールの場合
 Forms(strFrm).Controls(strTxt)


これでも参照できますが、普通ここまで省略しませんね。
 Forms(strFrm)(strTxt)

あとで見たとき、訳がわからなくなりそう。

QAccess サブフォームでの選択行の取得

こんにちは。

Access初心者です。

サブフォームでテーブルの項目を表示させていますが、
選択された行を取得する方法はありますか?
サボフォームの下の方に現在選択されているレコード数が表示されてますが、その値でかまいません。

調べているのですが、なかなか検討がつきません。
宜しくお願い致します。

Aベストアンサー

フォーム名がフォーム1、サブフォームコントロールの名前がサブフォーム1だとすると、

Forms!フォーム1!サブフォーム1.Form.CurrentRecord

で取得できます。
(「Forms」と「Form」がありますのでご注意下さい)


また、フォーム1にコードを記述する場合であれば

Me!サブフォーム1.Form.CurrentRecord

サブフォーム1へのコード記述であれば

Me.CurrentRecord

という構文によっても、それぞれ取得が可能です。

QAccessのフォームのみ表示させたい

Accessを起動した際、フォームのみ表示するにはどうすればよいのでしょうか?
(Accessを起動すると、オブジェクトメニュー?(テーブルやクエリ等のオブジクトを選択するウィンドウ)を表示させないで、フォームのみを表示させるには?)
また、上記と同じようにして、なおかつAccessを起動させないでフォームで起動や終了といったことが出来るのでしょうか?
やはりこれはVB等プログラミングでないと出来ないのでしょうか?ちなみに私はプログラミングは全く出来ません。
わかる方、教えて下さい。宜しくお願いします。

Aベストアンサー

ツールメニュー
”起動時の設定”を開き

フォーム/ページの表示にて起動時に表示させたいフォームを選択すれば、そのMDBを開いた時に、該当のフォームが表示されます。

メニュー画面等を作り、各処理のフォームを開いたり、アクセスを終了するマクロを呼び出すボタンを作ればフォームからの終了等も可能です。

また、データベースウィンドウの表示のチェックボックスを外せば、質問者様の言われているオブジェクトメニューは表示されなくなります。

メンテナンス等を行いたい時はshiftキーを押下しながら立ち上げればデータベースウィンドウが表示できます。

QAccessの画面更新を一時的に停止する方法。

こんにちは。
Accessの画面更新を一時的に停止する方法を捜しています。
ExcelのScreenUpdatingと同様な機能です。

VBAでの更新処理時に画面がチラチラと動くのを防止したいと思っています。
(Ver:Access2000)
ご存知の方宜しくお願い致します。

Aベストアンサー

Application.Echo False '画面の描画を止める

・・・処理を実行する・・・

Application.Echo True '画面の描画を行う

Qサブフォームに対してGoToRecordするには?

フォームに対してRequeryすると先頭のレコードへ移動してしまうので
Requeryする前のレコードの番号を取得して
Requery後にそのレコード番号へ移動したいのですが

Sub test()
i = Forms("Form").Controls("SubForm").Form.CurrentRecord
Forms("Form").Controls("SubForm").Requery
DoCmd.GoToRecord acActiveDataObject, Forms("Form").Controls("SubForm"), acGoTo, i
End Sub

これをすると、実行時エラー2498
指定した式は、いずれかの引数とデータ型が対応していません。
になりますが、
どこがおかしいのでしょうか?

Aベストアンサー

【要旨】
サブフォームのレコード移動では、対象サブフォームは引数で指定するのではなく、
SetFocusメソッドで移動後、引数を省略したGotoRecordを使用します:
  Forms("Form").Controls("SubForm").SetFocus
  DoCmd.GotoRecord , , acGoto, i

但し、「Requery前後でのレコード移動の回避」が目的の場合は、Requeryの
対象を「親フォームまたはサブフォームのFormオブジェクト」ではなく「サブフォーム
コントロール」とすればOkです。
 <現状・例1>
  Forms("Form").SetFocus
  DoCmd.Requery
 <現状・例2>
  Forms("Form").Requery
 <現状・例3>
  Forms("Form").Controls("SubForm").Form.Requery
 <代替策>
  Forms("Form").Controls("SubForm").Requery
  ※「現状・例3」との違い(→途中の「.Form」の有無)に注意。


【詳細】
> 実行時エラー2498

このエラーの直接の原因は、GotoRecordメソッドの第2引数に指定している
「Forms("Form").Controls("Subform")」の部分です。

ここに指定するのはオブジェクト名になりますが、そのデータ型は文字列型です。
一方、「~.Controls(~)」の形で指定した場合、取得できるのは
 a)オブジェクトそのもの
 b)そのオブジェクトのデフォルトプロパティ
のどちらかです(→状況によって変化します)。
(例えばテキストボックスなら、TextBoxオブジェクトまたはValueプロパティの値)

サブフォームのデフォルトプロパティは調べていませんが(汗)、少なくとも文字列
型のプロパティではないため、「型が一致しない」とのエラーとなります。
サブフォームのコントロール名を取得する場合は、
  Forms("Form").Controls("SubForm").Name
というように、Nameプロパティを明示的に指定する必要があります。

ただ、「サブフォームのレコード移動」の場合、明示的に「Name」プロパティを
指定しても解決には至りません(汗)
これは、GotoRecordメソッドの第2引数には、直接開いているオブジェクトの
名前のみが有効なためで、サブフォームを直接的に指定することはできない、
ということです。
(注:Microsoftの資料を探したわけではなく、経験則から記述していますので、
 私の勘違いでしたらご容赦願います(汗))

サブフォームのレコード移動には、冒頭に記述したとおり、「フォーカスの移動」と
「一部の引数を省略したGotoRecord」を使用します:
  Forms("Form").Controls("SubForm").SetFocus
  DoCmd.GotoRecord , , acGoto, i

なお、これも冒頭に書きましたが、サブフォームのRequeryの仕方には幾つか
方法がありますが、Requeryの対象を「コントロールとしてのサブフォーム」にすれば、
レコード移動が発生しませんので、GotoRecord自体が不要になります。
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsFrmHowToRequeryAndReturn.html

【要旨】
サブフォームのレコード移動では、対象サブフォームは引数で指定するのではなく、
SetFocusメソッドで移動後、引数を省略したGotoRecordを使用します:
  Forms("Form").Controls("SubForm").SetFocus
  DoCmd.GotoRecord , , acGoto, i

但し、「Requery前後でのレコード移動の回避」が目的の場合は、Requeryの
対象を「親フォームまたはサブフォームのFormオブジェクト」ではなく「サブフォーム
コントロール」とすればOkです。
 <現状・例1>
  Forms("Form").SetFocus
  DoCmd.Requery
 <現...続きを読む

QスクロールバーをVBAで操作したい

エクセルの場合は、
Sub Macro1()
ActiveWindow.SmallScroll Down:=100
End Sub

でスクロールバーの位置をVBAで設定できますが
アクセスのフォームのスクロール倍の位置をVBAで設定することは可能でしょうか?

Aベストアンサー

> アクセスのフォームのスクロール倍の位置をVBAで設定

Accessの場合、残念ながらスクロールバーについては表示/非表示を
切り替えるプロパティぐらいしかありません。

ですので、代替策として「『改ページ』コントロールの追加」を提案します。
(「SmallScrollメソッドの引数で位置指定」をする代わりに、
 フォームのGotoPageメソッドで移動先を指定します)

『改ページ』コントロールについては、下記のQ&Aでnicotinismさんが
ご紹介しているサイトがわかりやすいかと思います:

【Q&A】
http://oshiete.goo.ne.jp/qa/7528843.html

【紹介URL】
http://www.tsware.jp/tips/tips_026.htm

Qアクセスのフォームのサイズ

いつもお世話になっております。

さて、今アクセスで簡単なデータベースを作成しておりますが、フォームのサイズをデザインビューで1つ1つ調整するのがかなり面倒です。フォームの大きさをジャストフィットで調整してくれるような機能はないでしょうか。

宜しくお願いいたします。

Aベストアンサー

再度のShadowMoonです。
VBAコードは下記の方がわかりやすいかもしれません。

Private Sub Form_Open(Cancel As Integer)

Dim 左上隅の水平位置 '単位(cm)
Dim 左上隅の垂直位置 '単位(cm)
Dim フォームの幅 '単位(cm)
Dim フォームの高さ '単位(cm)
Dim right '単位(twip)
Dim down '単位(twip)
Dim width '単位(twip)
Dim height '単位(twip)

'フォームのサイズ、位置は下記数値を修正(単位はcm)
左上隅の水平位置 = 5
左上隅の垂直位置 = 3
フォームの幅 = 10
フォームの高さ = 15

'設定データ(cm単位)をtwip換算してフォーム、サイズを修正する処理
right = 左上隅の水平位置 * 567
down = 左上隅の垂直位置 * 567
width = フォームの幅 * 567
height = フォームの高さ * 567
DoCmd.MoveSize right, down, width, height

End Sub

以上ご参考まで。m(__)m

再度のShadowMoonです。
VBAコードは下記の方がわかりやすいかもしれません。

Private Sub Form_Open(Cancel As Integer)

Dim 左上隅の水平位置 '単位(cm)
Dim 左上隅の垂直位置 '単位(cm)
Dim フォームの幅 '単位(cm)
Dim フォームの高さ '単位(cm)
Dim right '単位(twip)
Dim down '単位(twip)
Dim width '単位(twip)
Dim height '単位(twip)

'フォームのサイズ、位置は下記数値を修正(単位はcm)
左上隅の水平位置 = 5
左上隅の垂直位置 = 3
フォームの幅 = 10
フォーム...続きを読む

Qフォームウィンドウを最前面に表示したい(ACCESS)

ACCESS VBAを使っています。
あるタイミングで、あるフォームを表示させたいのです。
OpenFormを使ってみると、確かにフォームを開くことはできたのですが、実際は既に表示されているWindowの背面に開かれているので、目で確認することはできないのです。
新しいフォームを最前面に表示するにはどのようにしたらよいのでしょうか?

Aベストアンサー

docmd.OpenForm フォーム名,,,,,acDialog
とするか
表示させたいフォームの ポップアップのプロパティを
はい に すれば 出来ると思います。

QACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ

ACCESSで空白のデーターをクエリで判定/識別する方法を教えてください。
EXCELでは空白を""で判定/識別表していますがACCESSではどうなるのでしょうか。

下の例はフィールドに試験番号があればその番号を、空白なら”欠席”と表示しようとしています。
IIf(([試験番号]="空白の場合何を入れる?"),[試験番号],"欠席")

Aベストアンサー

もうひとつの書き方は
式1: IIf([試験番号] Is Not Null,[試験番号],"欠席")
第2、第3引数の、質問の順序にあわせるとこうなる。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング