AccessVBA：データベースのパスとファイル名の取得（CurrentProject・CurrentDb）

by chasou_tech · 公開済み 2022年6月28日 · 更新済み 2023年2月10日

開いているAccessのフォルダのパスを取得したい

開いているAccessのファイル名を取得したい

このような場合は「CurrentProjectオブジェクト」が使えます。

◆フォルダのパスの取得

pathプロパティを使います。

CurrentProject.Path

1	CurrentProject.Path

サンプルコード

Private Sub パスの取得_Click()
    Dim FolderPath As String
    'データベースファイルのフォルダのパスを返す'
    FolderPath = CurrentProject.Path
    
    MsgBox FolderPath
End Sub

Private Sub パスの取得_Click()

Dim FolderPath As String

'データベースファイルのフォルダのパスを返す'

FolderPath = CurrentProject.Path

MsgBox FolderPath

End Sub

◆ファイル名の取得

Nameプロパティを使います。

CurrentProject.Name

1	CurrentProject.Name

サンプルコード

Private Sub ファイル名の取得_Click()
    Dim FileName As String
    'データベースファイル名を返す'
    FileName = CurrentProject.Name
    
    MsgBox FileName
End Sub

Private Sub ファイル名の取得_Click()

Dim FileName As String

'データベースファイル名を返す'

FileName = CurrentProject.Name

MsgBox FileName

End Sub

◆フォルダのパスとファイル名の取得

CurrentDbメソッドを使います。

CurrentDb.Name

1	CurrentDb.Name

サンプルコード

Private Sub パスとファイル名の取得_Click()
    Dim FilePath As String
    'データベースファイルのフォルダーのパスとファイル名を返す'
    FilePath = CurrentDb.Name
    
    MsgBox FilePath
End Sub

Private Sub パスとファイル名の取得_Click()

Dim FilePath As String

'データベースファイルのフォルダーのパスとファイル名を返す'

FilePath = CurrentDb.Name

MsgBox FilePath

End Sub

AccessVBA：データベースのパスとファイル名の取得（CurrentProject・CurrentDb）

◆フォルダのパスの取得

サンプルコード

◆ファイル名の取得

サンプルコード

◆フォルダのパスとファイル名の取得

サンプルコード

おすすめ

カテゴリー

プロフィール

Facebook

チャイ専門店　茶窓

Blog＆SNS

写真の販売

【PR】サーバー・PC購入はこちらから

ブログについて

最近の投稿

AccessVBA：データベースのパスとファイル名の取得（CurrentProject・CurrentDb）

◆フォルダのパスの取得

サンプルコード

◆ファイル名の取得

サンプルコード

◆フォルダのパスとファイル名の取得

サンプルコード

おすすめ

VBA：ファイル名を変更する「Nameステートメント」

VBA：ツールのバージョン管理（txtファイル利用）

VBA：メッセージボックスを最前面に表示させる方法

カテゴリー

プロフィール

Facebook

チャイ専門店 茶窓

Blog＆SNS

写真の販売

【PR】サーバー・PC購入はこちらから

ブログについて

最近の投稿

チャイ専門店　茶窓