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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Когда нет...

Тема: Когда нет записей в таблице!!!

15.06.2007 21:04:44

All

4316 сообщения

Тема: Когда нет записей в таблице!!!

Я постепенно извлекаю данные из таблицы по 800 записей и экспортирую их в текстовые файлы. Когда записи в таблице заканчиваются, то образуются пустые текстовые файлы. Что нужно исправить в программном коде, чтобы при заканчивании записей в таблице выходила бы надпись или окошко, что больше записей в таблице нет и файл бы не формировался?

Private Sub Кнопка12_Click()
Dim strFilename As String
DoCmd.RunSQL "Update igor2 Set igor2.flag=1 Where (((igor2.key) In (Select top 800 key From igor2 Where flag=0)))"
strFilename = funGetSaveFileName(Me.hWnd, _
"Текст(*.txt)" & Chr$(0) & "*.txt" & Chr$(0) & Chr$(0), _
"igor1.txt", "Поиск и запись txt файлов", "Txt", "C:\Файлы\")
If strFilename = "" Then
DoCmd.RunSQL "Update igor2 Set igor2.flag=0 Where (((igor2.key) In (Select top 800 key From igor2 Where flag=1)))"
Exit Sub
End If
DoCmd.TransferText acExportFixed, "IgorSpec", "SelectPriznak2", strFilename
DoCmd.RunSQL "Update igor2 Set igor2.flag=2 Where (((igor2.key) In (Select top 800 key From igor2 Where flag=1)))"
End Sub

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

P.S. Общий раздел по таблицам
Автор: Игорь от 0:00:00 Источник ...

15.06.2007 21:04:44

All

4316 сообщения

RE: Когда нет записей в таблице!!!

Наверное, надо проверить сначала наличие записей в таблицах. Это можно сделать так.
strSQl = "Update igor2 Set igor2.flag=0 Where (((igor2.key) In (Select top 800 key From igor2 Where flag=1)))"
cnt = DCount("[key]", "igor2", "[flag] = 1")
Replace strSQL, "top 800", "top " & cnt
DoCmd.RunSQL strSQL

P.S. Общий раздел по таблицам
Автор: Admin от 0:00:00 Источник ...

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Когда нет...

Поиск

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

Начало | Forums