M的部落格

'找尋目前檔案路徑

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 發表在 痞客邦 留言(0) 人氣( 147 )

• 個人分類： VBA(Access)

▲top

載入更多

公開留言 私密留言

發佈留言

請先 登入 以發表留言。