忍者ブログ
ADMINNEW ENTRY
C A L E N D A R
03 2025/04 05
S M T W T F S
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30

専門学生時代にACCESSを学び、現在会社で使用しているシステムがACCESSで作られているので再度勉強中です。(学校ではVBAを全然習わなかったので) これからACCESS VBAを勉強する方一緒に学んでいきましょう
<<< 1 2 3 4
2025-04-24(Thu)
[PR]
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。



.

2009-07-25(Sat)
アクティブなオブジェクトの参照

アクティブなオブジェクトの参照することができます。
アクティブなオブジェクトとは簡単に言ってしまえば、今現時点で使用してるオブジェクトです。
(画面上の一番上に表示されているもの?)

例えば、会員登録フォームを開いている場合は、それがアクティブなオブジェクトになるわけです。

c5fbbb09.jpeg





     フォーム参照コード

Private Sub コマンド4_Click()
    
    'アクティブフォームの参照
    Me.テキスト1 = Me.Name
    
    'アクティブフォームの参照
    Me.テキスト2 = Screen.ActiveForm.Name
    
    '他のフォームの参照
    Me.テキスト3 = Forms!F_会員登録.Name

End Sub


実行結果

744ad7cf.jpeg






アクティブなオブジェクトを参照する場合は

Me を使用します。(Me は自分自身を表します)

Screenオブジェクトを使用してもアクティブなオブジェクトを参照することが可能です。

上の例では他のフォームを参照する方法も記述してありますが、
F_会員登録フォームを開いていないと(アクティブでなくてもいい)エラーが発生します。

 

PR


.

<<< 1 2 3 4

Powered by NinjaBlog. Template by うさねこ.
忍者ブログ[PR]