カレントデータベースの以外の場合

Sub Test()
    Dim DB As DAO.Database
    Set DB = OpenDatabase(CurrentProject.Path & "\Sample.mdb")
    
    MsgBox Dir(DB.Name)
    
    DB.Close
    Set DB = Nothing
End Sub

--------------------------------

カレントデータベースの場合

Sub Test()
    Dim DB As DAO.Database
    Set DB = CurrentDb
    
    MsgBox Dir(DB.Name)
    
    Set DB = Nothing
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ