[NecroTYN]

......... вот блин, перепробовал все до чего смог додуматься, так ниче и не получилось больше, даже тест.вбс не запустился....

[amel27]

Ошибка: Индекс выходит за пределы допустимого диапазона »

1. Убедитесь, что параметр (ID) передаётся в скрипт через слэш (пост #38);
2. Проверить работу скрипта можно, передав ID реальной записи из tblOrdersProducts:

Код:

C:\TEST\Script.vbs /37

3. Триггер должен запускать скрипт ПОСЛЕ создания/изменения записи.

[NecroTYN]

1. Убедитесь, что параметр (ID) передаётся в скрипт через слэш (пост #38); 2. Проверить работу скрипта можно, передав ID реальной записи из tblOrdersProducts »

Вот мои действия:
1.создал bat файл --

Код:

 c:\Program Files (x86)\ClientsCount\makedir.vbs / [5]

2.создал makedir.vbs c с указанным вами кодом по пути c:\Program Files (x86)\ClientsCount
3.в программе в "триггерах" указал запуск bat -- после добавления/изменения
4.в программе в "триггерах" указал запуск makedir.vbs -- после добавления/изменения

результат тот же:

читать дальше »

---------------------------
Windows Script Host
---------------------------
Сценарий: C:\Program Files (x86)\ClientsCount\makedir.vbs
Строка: 9
Символ: 1
Ошибка: Индекс выходит за пределы допустимого диапазона
Код: 800A0009
Источник: Ошибка выполнения Microsoft VBScript

---------------------------
ОК
---------------------------

поправил bat на

Код:

 makedir.vbs / [5]

результат следующий:

читать дальше »

1.
---------------------------
Windows Script Host
---------------------------
Сценарий: C:\Program Files (x86)\ClientsCount\makedir.vbs
Строка: 9
Символ: 1
Ошибка: Индекс выходит за пределы допустимого диапазона
Код: 800A0009
Источник: Ошибка выполнения Microsoft VBScript

---------------------------
ОК
---------------------------
2.
---------------------------
Windows Script Host
---------------------------
Сценарий: C:\Program Files (x86)\ClientsCount\makedir.vbs
Строка: 10
Символ: 1
Ошибка: Отсутствует значение для одного или нескольких требуемых параметров.
Код: 80040E10
Источник: Microsoft JET Database Engine

---------------------------
ОК
---------------------------

Если убрать квадратные скобки в батнике -- выскакивает первая ошибка

[NecroTYN]

.......... НННННда !!!!!!!!!! Не прошло и ШЕСТИ страниц как до меня дошло, что сам VBS запускать не надо
Простите уж тупицу

Вопрос о передаче параметров скрипту тоже решился, В триггерах при запуске файла надо указать так: C:\Program Files (x86)\ClientsCount\makedir.vbs /[ID] и все работает нормано
По поводу скрипта еще пара вопросов,

как сделать проверку создаваемых папок ?
как в папке с адресом клиента создать папку документы ?
как в папке с именем товара создать папки Замер Модель Раскрой Эскизы ?
как правильно прописать путь создания папок (возможно к серверу) ?

...и еще такой момент, я писал:

имя 1ой папки-берется из таблицы qdfOrders - Address имя 2ой папки-берется из таблицы qdfMain - Client имя 3ей папки-берется из таблицы tblOrdersProducts - Product »

а как сделать чтоб имя первой папки --Клиент, а второй --Адресс ???

[amel27]

как сделать проверку создаваемых папок ? »

какую проверку?

как правильно прописать путь создания папок (возможно к серверу) ? »

давайте конкретные примеры расположения папок

как в папке с адресом клиента создать папку документы ? как в папке с именем товара создать папки Замер Модель Раскрой Эскизы ? ...и еще такой момент, я писал: Цитата NecroTYN: имя 1ой папки-берется из таблицы qdfOrders - Address имя 2ой папки-берется из таблицы qdfMain - Client имя 3ей папки-берется из таблицы tblOrdersProducts - Product » а как сделать чтоб имя первой папки --Клиент, а второй --Адресс ??? »

заменить блок, отвечающий за создание каталогов на код:

читать дальше »

Код:

Dim strPath 'путь к папке
strPath="C:\Documents"
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)
strPath=strPath &"\Заказы"
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)
strPath=strPath &"\"& Replace(oRec.Fields(1).Value,"""","")
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)
strPath=strPath &"\"& Replace(oRec.Fields(0).Value,"""","")
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)
strTemp=strPath &"\Документы"
If Not FSO.FolderExists(strTemp) Then FSO.CreateFolder(strTemp)
strPath=strPath &"\"& Replace(oRec.Fields(2).Value,"""","")
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)
strTemp=strPath &"\Замер"
If Not FSO.FolderExists(strTemp) Then FSO.CreateFolder(strTemp)
strTemp=strPath &"\Модель"
If Not FSO.FolderExists(strTemp) Then FSO.CreateFolder(strTemp)
strTemp=strPath &"\Раскрой"
If Not FSO.FolderExists(strTemp) Then FSO.CreateFolder(strTemp)
strTemp=strPath &"\Эскизы"
If Not FSO.FolderExists(strTemp) Then FSO.CreateFolder(strTemp)

[NecroTYN]

какую проверку? »

Снимаю вопрос

давайте конкретные примеры расположения папок »

Да в том то и дело что их пока нет, вот решаем, на сервер выложить или сетевой диск поставить, пока наверное как есть останется....

[NecroTYN]

заменить блок, отвечающий за создание каталогов на код: »

Пока все работает !!!! СПАСИБО !!!

P.S. А еще можно будет обратиться за помощью ???

[amel27]

можно будет обратиться за помощью ? »

с чего вдруг возник такой вопрос?.. вроде для этого форум и существует

вот решаем, на сервер выложить или сетевой диск поставить, пока наверное как есть останется.... »

учитывая, что в ACCESS-варианте скрипт запускается с клиента, желательно держать эту папку на одном сервере с базой данных (из соображений целостности данных), идеальный вариант - терминальный доступ (если поддерживается программой).

[NecroTYN]

с чего вдруг возник такой вопрос?.. вроде для этого форум и существует »

Боюсь показаться назойливым....

учитывая, что в ACCESS-варианте... »

За совет спасибо огромное