powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как программно установить каталог рабочим?
8 сообщений из 8, страница 1 из 1
Как программно установить каталог рабочим?
    #32229558
Игорек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня в программе загрузка данных идет с одного каталога, а выгрузка данных совершенно в другой каталог с большой вложенностью подкаталогов. Как программно в Access-е в форме на кнопку с помощью которой идет загрузка данных посредствам появления окна открытия файлов установить текущим один каталог, а на кнопку выгрузки данных повесить совершенно другой каталог. Не считая того, что в параметрах Access рабочим каталогом установлен еще другой каталог.

С уважением, Игорь!!!
...
Рейтинг: 0 / 0
Как программно установить каталог рабочим?
    #32229583
Фотография Albert Gor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Выкладывай функцию, вызывающую окно открытия файлов, пожалуйста.
...
Рейтинг: 0 / 0
Как программно установить каталог рабочим?
    #32229625
Игорек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот код вызова окна открытия файлов:

Private Sub Кнопка42_Click()
Dim strFilename As String
strFilename = funGetOpenFileName(Me.hWnd, _
"Текст(*.txt)" & Chr$(0) & "*.txt" & Chr$(0) & Chr$(0), _
"1.txt", "Поиск и запист txt файлов", "Txt", CurDir)
If strFilename = "" Then
Exit Sub
End If
DoCmd.TransferText acImportFixed, "SpecDop", "Обзвонка1", strFilename
End Sub

Вот код вызова окна сохранения файлов:

Private Sub Кнопка43_Click()
Dim strFilename As String
strFilename = funGetSaveFileName(Me.hWnd, _
"Текст(*.txt)" & Chr$(0) & "*.txt" & Chr$(0) & Chr$(0), _
"dop1.txt", "Поиск и запись txt файлов", "Txt", CurDir)
If strFilename = "" Then
Exit Sub
End If
DoCmd.TransferText acExportFixed, "IgorSpec", "Обзвонка1_Выходной", strFilename
DoCmd.RunSQL "Delete From Обзвонка1"
End Sub

Или нужно опубликовать сами коды функций?
...
Рейтинг: 0 / 0
Как программно установить каталог рабочим?
    #32229635
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно и опубликовать funGetOpenFileName (подозреваю, что это будет что-то знакомое)
А можно и так проинтуичить
Вместо CurDir передавай нужный тебе путь - и будет тебе щастье
...
Рейтинг: 0 / 0
Как программно установить каталог рабочим?
    #32229646
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
однако Кнопка42_Click - это хорошо
...
Рейтинг: 0 / 0
Как программно установить каталог рабочим?
    #32229744
Игорек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Если вместо CurDir написать путь к каталогу типа: "C:\XXX\AAA\" , то программный код не компиллируется, ошибка. Может надо как-то иначе?
...
Рейтинг: 0 / 0
Как программно установить каталог рабочим?
    #32229755
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ты его (путь) хоть в кавычки заключаешь?
Глупый вопрос конечно, что поделать..
...
Рейтинг: 0 / 0
Как программно установить каталог рабочим?
    #32229759
Игорек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Извините, при написании пути к каталогу забыл поставить знак ":".
Всем огромное спасибо!!!
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как программно установить каталог рабочим?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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