ник: Дядя Федор
>Стоило ли вам так напрягаться, ради того что бы поёрничать?
1.Прошу прощения, наверное сам на себя разозлился, что ступил.
2.И все же по F8 прошлись? Раз вышли на ошибку....
М.б. посмотреть как формируется имя в таблице и откуда там ""
3.Попробуйте так (предполагаем, что файл всегда mdb) - отрежем лишнее
pb = DLookup("PName", "System-Path", "[k]=1")
pb = Mid(pb, 1, InStrRev(pb, "mdb") + 2)
'или pb = Mid(pb, 1, InStr(1, pb, "mdb") + 2)
|
С искренними извинениями и пожеланиями успехов, ДФ.
P.S.
Можно так
Dim k As String
k = """"
Shell k & SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE" & k & " " & k & pb & k & " /Compact"