close

'找尋目前檔案路徑

Dim FullPath As Object

Dim CurrentProject As Object

Dim Path As Object

FullPath = CurrentDb.Name

CurrentProject = Dir(FullPath)

Path = Left(FullPath, InStr(FullPath, CurrentProject) - 1)

全站熱搜
創作者介紹
創作者 M 的頭像
M

M的部落格

M 發表在 痞客邦 留言(0) 人氣()

E-mail轉寄