Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вызвать окно сохранения файла? / 7 сообщений из 7, страница 1 из 1
03.06.2003, 15:34
    #32175310
Игорек
Игорек
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать окно сохранения файла?
Помогите пожалуйста!!!
В моей программе данные из таблицы экспортируются в txt-файл следующим образом:
Private Sub Кнопка_Click()
Dim strFilename As String
DoCmd.RunSQL "Update igor Set igor.flag=1 Where (((igor.key) In (Select top 700 key From igor Where flag=0)))"
strFilename = InputBox("Имя файла")
If strFilename = "" Then
DoCmd.RunSQL "Update igor Set igor.flag=0 Where (((igor.key) In (Select top 700 key From igor Where flag=1)))"
Exit Sub
End If
DoCmd.TransferText acExportFixed, "IgorSpec", "SelectPriznak", strFilename
DoCmd.RunSQL "Update igor Set igor.flag=2 Where (((igor.key) In (Select top 700 key From igor Where flag=1)))"
End Sub

Короче при нажатии на кнопку выходит окошко, где предлагается ввести имя файла и обязательно расширение (txt) и файл сохраняется в каталог, который настроен в Access по умолчанию. Хотелось бы, чтобы при нажатии на кнопку выходило окно, где предлагалось бы сохранение файла с выбором указанной папки и где не надо указывать расширение, т.е. по умлочанию тип файла был txt формата, что-то наподобии команды "Сохранить Как..." в приложениях MOffice. Как это сделать?
Нашел какой-то пример на:
http://am.rusimport.ru/MsAccess/topic.aspx?ID=143, но для меня пока в этом разобраться сложно. И если это тот пример, то как его привязать к моей кнопке?

С уважением, Игорь!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2003, 16:23
    #32175385
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать окно сохранения файла?
Вот два способа.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2003, 16:26
    #32175396
АлексейЕ
АлексейЕ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать окно сохранения файла?
Тут у меня в запасах есть более простой способ вызова окна сохранения файлов. Этот способ подсказал OSMOR/
В твоем варианте она будет выглядеть так.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Type WLIB_OFFICEGETFILENAMEINFO
   hwndOwner As Long
   szAppName As String *  255 
   szDlgTitle As String *  255 
   szOpenTitle As String *  255 
   szFile As String *  4096 
   szInitialDir As String *  255 
   szFilter As String *  255 
   nFilterIndex As Long
   lView As Long
   flags As Long
End Type

Declare Function MSAU_OfficeGetFileName Lib _
 "msaccess.exe"  Alias  "#56 " (gfni As _
WLIB_OFFICEGETFILENAMEINFO, ByVal fOpen As _
Integer) As Long

'Последний параметр: 0 - диалог для сохранения, 1 - открытия

'Пример вызова:
Function nameFile() As String
Dim a As WLIB_OFFICEGETFILENAMEINFO
a.hwndOwner = Application.hWndAccessApp
a.szFilter =  "Text (*.txt)|*.txt|All Files (*.*)|*.*||" 
a.nFilterIndex =  0 
MSAU_OfficeGetFileName a,  0 
nameFile = a.szFile
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2003, 16:39
    #32175424
Zenia
Zenia
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать окно сохранения файла?
2 АлексейЕ

классно!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2003, 08:49
    #32175812
Игорек
Игорек
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать окно сохранения файла?
АлексейЕ, спасибо за пример, но я еще в VBA только новичек. Не мог бы ты мне подсказать, как твой пример конкретно вклинить в мой код. Я что-то пытался, но увы пока не получается.
С уважением, Игорь!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2003, 09:45
    #32175874
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать окно сохранения файла?
А в следующей версии или сервис-паке под алиасом функции #56 окажется функция (например) форматирование диска и будете свыпученными глазами сидеть и удивляться своей глупости от использования не документированных функций. К тому же все эти функции всего лишь обертки над Win32 API. Так не проще ли использовать пример на API?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2003, 10:09
    #32175893
Zenia
Zenia
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать окно сохранения файла?
ну не знаю? мне нравится, и до FTP и до HTTP достучаться можно, да и вообще очень удобно...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вызвать окно сохранения файла? / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 390ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1681248]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 231ms
total:  390ms
x
x
Закрыть


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