|
|
|
Как программно установить каталог рабочим?
|
|||
|---|---|---|---|
|
#18+
У меня в программе загрузка данных идет с одного каталога, а выгрузка данных совершенно в другой каталог с большой вложенностью подкаталогов. Как программно в Access-е в форме на кнопку с помощью которой идет загрузка данных посредствам появления окна открытия файлов установить текущим один каталог, а на кнопку выгрузки данных повесить совершенно другой каталог. Не считая того, что в параметрах Access рабочим каталогом установлен еще другой каталог. С уважением, Игорь!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2003, 09:02 |
|
||
|
Как программно установить каталог рабочим?
|
|||
|---|---|---|---|
|
#18+
Выкладывай функцию, вызывающую окно открытия файлов, пожалуйста. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2003, 09:25 |
|
||
|
Как программно установить каталог рабочим?
|
|||
|---|---|---|---|
|
#18+
Вот код вызова окна открытия файлов: 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 Или нужно опубликовать сами коды функций? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2003, 09:49 |
|
||
|
Как программно установить каталог рабочим?
|
|||
|---|---|---|---|
|
#18+
Можно и опубликовать funGetOpenFileName (подозреваю, что это будет что-то знакомое) А можно и так проинтуичить Вместо CurDir передавай нужный тебе путь - и будет тебе щастье ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2003, 09:54 |
|
||
|
Как программно установить каталог рабочим?
|
|||
|---|---|---|---|
|
#18+
однако Кнопка42_Click - это хорошо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2003, 10:02 |
|
||
|
Как программно установить каталог рабочим?
|
|||
|---|---|---|---|
|
#18+
Если вместо CurDir написать путь к каталогу типа: "C:\XXX\AAA\" , то программный код не компиллируется, ошибка. Может надо как-то иначе? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2003, 11:06 |
|
||
|
Как программно установить каталог рабочим?
|
|||
|---|---|---|---|
|
#18+
Ты его (путь) хоть в кавычки заключаешь? Глупый вопрос конечно, что поделать.. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2003, 11:10 |
|
||
|
|

start [/forum/topic.php?fid=45&msg=32229625&tid=1680060]: |
0ms |
get settings: |
12ms |
get forum list: |
18ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
47ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
43ms |
get tp. blocked users: |
1ms |
| others: | 231ms |
| total: | 369ms |

| 0 / 0 |
