ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вызвать окно сохранения файла?
7 сообщений из 7, страница 1 из 1
Как вызвать окно сохранения файла?
    #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, 15:34
| Ответить | Цитировать | Написать  
Как вызвать окно сохранения файла?
    #32175385
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Вот два способа.
...
Рейтинг: 0 / 0
03.06.2003, 16:23
| Ответить | Цитировать | Написать  
Как вызвать окно сохранения файла?
    #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:26
| Ответить | Цитировать | Написать  
Как вызвать окно сохранения файла?
    #32175424
Фотография Zenia
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zenia
Участник
2 АлексейЕ

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


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