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

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


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