AccessVBA：データベースのパスとファイル名の取得（CurrentProject・CurrentDb）
◆フォルダのパスの取得
pathプロパティを使います。
|
1 |
CurrentProject.Path |
サンプルコード
|
1 2 3 4 5 6 7 |
Private Sub パスの取得_Click() Dim FolderPath As String 'データベースファイルのフォルダのパスを返す' FolderPath = CurrentProject.Path MsgBox FolderPath End Sub |
◆ファイル名の取得
Nameプロパティを使います。
|
1 |
CurrentProject.Name |
サンプルコード
|
1 2 3 4 5 6 7 |
Private Sub ファイル名の取得_Click() Dim FileName As String 'データベースファイル名を返す' FileName = CurrentProject.Name MsgBox FileName End Sub |
◆フォルダのパスとファイル名の取得
CurrentDbメソッドを使います。
|
1 |
CurrentDb.Name |
サンプルコード
|
1 2 3 4 5 6 7 |
Private Sub パスとファイル名の取得_Click() Dim FilePath As String 'データベースファイルのフォルダーのパスとファイル名を返す' FilePath = CurrentDb.Name MsgBox FilePath End Sub |
