Путь к Папке и Файлу текущего приложения и Путь к Access (MSACCESS.EXE)

Путь к папке текущего приложения:

sPath = CurrentProject.Path 'Полный путь к папке текущего приложения (без слеша на конце)

Имя Файла текущего приложения:

TempFileName = CurrentProject.Name 'Имя файла (текущего )запущенного приложения

Путь к Файлу текущего приложения:

CurrentDB.Name 'Полный Путь к аппликации

Путь к файлу в папке текущего приложения:

Private Function PathToINI() As String

'Возвращает путь к файлу INI (Application.ini) внутри папки тек. приложения

'--------------------------------------------------------------------

Const INI_FileName As String = "Application.ini"

'Путь к Папке аппликации

PathToINI = CurrentProject.Path & "\" & INI_FileName

End Function

Путь к Access (MSACCESS.EXE)

Debug.Print SysCmd(acSysCmdAccessDir) & "msaccess.exe"