Ошибка при открытии справки (F1)

Есть файл справки chm. В загрузку формы прописал

Private Sub Form_Load()
Me.HelpFile = CurrentPath() & "\Справка по работе в БД.chm"
End Sub

про писал связь

#define frmZastavka 100
#define frmInkasClient 200
#define subformMagaziny 200
#define frmInkasSumma 200

В свойстве формы HelpContextID установил индекс. В hhp файле вроде бы все настроил. Но при открытой форме , когда нажимаешь кнопку F1 выскакивает такое окошко.
Никто не сталкивался с таким?

Чему равен CurrentPath()?

Владимир Саныч
Чему равен CurrentPath()?

J:\IGOR\My doc\D.B - здесь лежит справка

Когда вместо CurrentPath подставил полный путь, тогда справка открылась.
И еще. Пjвесил на кнопку

Shell "hh.exe " & CurrentProject.Path & "J:\IGOR\My doc\D.B\img_hlp\Spravka.chm", vbNormalFocus

Выдает такую ошибку.
Не подскажите в чём может быть ошибка?

orehov_i
Владимир Саныч Чему равен CurrentPath()? J:\IGOR\My doc\D.B - здесь лежит справка Когда вместо CurrentPath подставил полный путь, тогда справка открылась. И еще. Пjвесил на кнопку Shell "hh.exe " & CurrentProject.Path & "J:\IGOR\My doc\D.B\img_hlp\Spravka.chm", vbNormalFocus Выдает такую ошибку. Не подскажите в чём может быть ошибка?

Пропишите в Иммидиэйт это выражение:
"hh.exe " & CurrentProject.Path & "J:\IGOR\My doc\D.B\img_hlp\Spravka.chm"
Здесь, наверное, у вас нагромождение...

EvAnd
Здесь, наверное, у вас нагромождение...

EvAnd
"hh.exe " & CurrentProject.Path & "J:\IGOR\My doc\D.B\img_hlp\Spravka.chm" Здесь, наверное, у вас нагромождение...

Прописал в Immediate,ничего не выдает.

Короче не стал заморачиваться с CurrentPath.Воспользовался функциями ShellExecute и StartOfFile. Прописал полный путь

StartOfFile "J:\IGOR\My doc\DB\Spravka.chm"

. Все заработало.

orehov_i, в первом варианте было ..\D.B\.. а во втором ..\DB\..
Это как понимать?

RomanFromOr
orehov_i, в первом варианте было ..\D.B\.. а во втором ..\DB\.. Это как понимать?

Просто потом убрал точку из имени папки.

А в итоге добился чтобы работало на

Me.HelpFile = CurrentPath() & "\Справка по работе в БД.chm"

orehov_i
... Me.HelpFile = CurrentPath() & "\Справка по работе в БД.chm"

И в самом итоге - получилось образцовое выражение (обращение). Так и держать