Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Элементарщина / 11 сообщений из 11, страница 1 из 1
07.09.2016, 13:42
    #39305186
ккэп
ккэп
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементарщина
Доброго времени суток, подскажите в чем я ошибаюсь

Код: vbnet
1.
2.
pathpap = pathOba & Trim(rst![dolgnik]) & "_" & Trim(rst!kd)
'pathpap = """" & pathpap & """


в
Код: vbnet
1.
debug.print pathpap



Выводятся
"C:\work\data\Иванов Иван Иванович_28587276"
C:\work\data\Иванов Иван Иванович_28587276

И так и так получается ошибка.... Нужно просто создать папку для каждой записи в rst...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2016, 13:44
    #39305190
ккэп
ккэп
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементарщина
Блин не дописал что делаю
Код: vbnet
1.
fso.createfolder (pathpap)

и возникает ошибка run time erorr 91
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2016, 13:45
    #39305191
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементарщина
ккэпИ так и так получается ошибка...А в чём ошибка, если значения
ккэпВыводятся
?

ккэпНужно просто создать папку для каждой записи в rst...Ну и где собсно код создания папки?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2016, 13:47
    #39305195
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементарщина
ккэпвозникает ошибка run time erorr 91Это "Object variable or With block variable not set". Покажите инициализацию fso.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2016, 13:49
    #39305196
ккэп
ккэп
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементарщина
AkinaккэпИ так и так получается ошибка...А в чём ошибка, если значения
ккэпВыводятся
?

ккэпНужно просто создать папку для каждой записи в rst...Ну и где собсно код создания папки?

Выводятся это через Debug.print копирую значение....

fso.createfolder (pathpap)

А ошибка run time eror 91
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2016, 13:50
    #39305201
ккэп
ккэп
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементарщина
Akinaккэпвозникает ошибка run time erorr 91Это "Object variable or With block variable not set". Покажите инициализацию fso.

Код: vbnet
1.
dim fso as filesystemobject
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2016, 14:06
    #39305211
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементарщина
И это ВСЁ? ну ваще...
Судя по дефиниции, референсная библиотека не подключена. И CreateObject небось тоже отсутствует...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2016, 14:07
    #39305212
ккэп
ккэп
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементарщина
AkinaИ это ВСЁ? ну ваще...
Судя по дефиниции, референсная библиотека не подключена. И CreateObject небось тоже отсутствует...

Неа, а что надо?) Простите за безграмотность, только вспоминаю спустя 10 лет как рабоать в VBA
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2016, 14:14
    #39305220
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементарщина
Если референсная библиотека подключена, то должно быть
Код: vbnet
1.
2.
3.
Dim fso As FileSystemObject
Set fso = New FileSystemObject
'...


Если нет, то
Код: vbnet
1.
2.
3.
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
'...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2016, 14:14
    #39305222
ккэп
ккэп
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементарщина
AkinaИ это ВСЁ? ну ваще...
Судя по дефиниции, референсная библиотека не подключена. И CreateObject небось тоже отсутствует...

Если есть возможность дайте пжл краткий пример кода который бы тупо создал папку с именем текстовой переменной...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2016, 14:16
    #39305224
ккэп
ккэп
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Элементарщина
[quot Akina]Если референсная библиотека подключена, то должно быть
Код: vbnet
1.
2.
3.
Dim fso As FileSystemObject
Set fso = New FileSystemObject
'...



Спасибо Большое. Вы гений!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Элементарщина / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 462ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1613182]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 331ms
total:  462ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]