忍者ブログ
ADMIN│NEW 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 VBA解説
専門学生時代にACCESSを学び、現在会社で使用しているシステムがACCESSで作られているので再度勉強中です。（学校ではVBAを全然習わなかったので） これからACCESS VBAを勉強する方一緒に学んでいきましょう
No.57 No.56 No.55 No.54 No.53 No.52 No.51 No.50 No.49 No.48 No.47
2025-04-24(Thu)
[PR]
×

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



.
2025-04-24(Thu)　22:00:32│ CM(-) │ TB(-) │EDIT

2009-08-07(Fri)
カレントデータベース名取得
参照

今回はカレントデータベースの参照を行います、

カレントデータベース、簡単に言ってしまえば現在開いているデータベースです。

カレントデータベースの取得には　CurrentDb()　を使用します。


b203756b.jpeg






カレントベースの取得

Private Sub Form_Load()

    Dim dbname As DAO.Database
    
    'カレントデータベースの取得
    Set dbname = CurrentDb()
   
    データベース名ラベル.Caption = dbname.Name
   
    dbname.Close
   
    Set dbname = Nothing
       
End Sub


上の例ではフォームを読み込んだ際にデータベース名ラベルに
カレントデータベース名を表示させています。

 

PR


.
2009-08-07(Fri)　00:24:19│CM( 0 ) │TB( ) │EDIT

データベース作成　（DAO)← HOME →DAOを使用可能にする

・C O M M E N T
  • この記事へのコメント投稿フォームです。


    • Name:
    Title:
    Mail:
    Url:
    Color:
    ◆ ◆ ◆ ◆ ◆ ◆ ◆ ◆
    Decoration:
    		 Vodafone絵文字 i-mode絵文字 Ezweb絵文字
    Message:
    Pass:
    		 ※編集時に必要です。


    TRACKBACK
    • この記事のURLとトラックバックURLです。
    • 必要に応じてご使用くださいませ。
    この記事のURL▽
    この記事のトラックバックURL▽
    No.57 No.56 No.55 No.54 No.53 No.52 No.51 No.50 No.49 No.48 No.47
    CopyRight (c) 初心者と学びたい ACCESS VBA解説 All Right Reserevd.

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