Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Как вызва...

Тема: Как вызвать окно сохранения файла?

15.06.2007 21:04:08

All

4316 сообщения

Тема: Как вызвать окно сохранения файла?

Помогите пожалуйста!!!
В моей программе данные из таблицы экспортируются в 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, но для меня пока в этом разобраться сложно. И если это тот пример, то как его привязать к моей кнопке?

С уважением, Игорь!!!

P.S. Общие вопросы по модулям
Автор: Игорь от 0:00:00 Источник ...

15.06.2007 21:04:08

All

4316 сообщения

RE: Как вызвать окно сохранения файла?

Пример 8 файла la_form.mdb

P.S. Общие вопросы по модулям
Автор: Expert от 0:00:00 Источник ...

15.06.2007 21:04:08

All

4316 сообщения

RE: Как вызвать окно сохранения файла?

Expert, а не мог ты мне подсказать, что конкретно надо исправить в Примере 8 файла la_form.mdb? Я еще не силен в VBA и поэтому мои старания по исправлению Примера 8 ни к чему не привели.
С уважением, Игорь!!!

P.S. Общие вопросы по модулям
Автор: Игорь от 0:00:00 Источник ...

15.06.2007 21:04:08

All

4316 сообщения

RE: Как вызвать окно сохранения файла?

1. Любая программа, которая работает с диалогом файлов будет возвращать текстовую переменную (имя файла). Все, что там описано дополнительно можно и не учить. Вам надо определить только расширение файла *.txt и предполагаемый каталог, где находится файл (см. форму, которая вызывает диалог)
strFileName = funGetOpenFileName(Me.hWnd, _
"Text(*.txt)" & Chr$(0) & "*.txt" ...
Эту строку и подставьте в свою программу вместо InputBox. Не забудьте вставить и модуль функции c комментариями в свою базу.

2. Срочно купите любой учебник по VBA, там описано как вызывать диалоги Windows, например, файлов, цвета и т.п.

P.S. Общие вопросы по модулям
Автор: Expert от 0:00:00 Источник ...

15.06.2007 21:04:08

Игорь4

26 сообщения

RE: Как вызвать окно сохранения файла?

Спасибо за очередной совет Expert!!!
Вставил модуль, исправил код на своей кнопке. Но выходит окно с предложением открыть какой-нибудь файл с кнопками "Открыть" и "Отмена", а хотелось бы чтобы была кнопка "Сохранить" файл. Сохранение идет, но только в том каталоге куда я хочу выгрузить свою информацию уже предварительно должен существовать текстовый файл с таким же именем, которым я хочу обозвать свой файл. Это конечно все не то, что нужно. Я попробовал на кнопку повесить:
strFileName = funGetSaveFileName(Me.hWnd, _
"Text(*.txt)" & Chr$(0) & "*.txt" ...
и исправил в модуле в тех местах, где ругался VBA funGetOpenFileName на funGetSaveFileName и в этом случае появилось окно с кнопками "Сохранить" и "Отмена", но после вписывания в это окно имени выводимого файла выходит окошко, где написано, что база данных доступна только для чтения или что-то в этом роде.
Я думаю что-то еще надо исправить в модуле "Пример 8", может флажки и т.д., а что именно...
Жду помощи, буду очень благодарен!!!
С уважением, Игорь!!!

P.S. Общие вопросы по модулям
Автор: Игорь от 05.06.2003 11:18:43 Источник ...

Страница 1 из 3

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Как вызва...

Поиск

Список форумов

Начало | Forums