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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Запрос Op...

Тема: Запрос OpenRecordset как обработать "no records"?

15.06.2007 21:03:32

Vglory

26 сообщения

Тема: Запрос OpenRecordset как обработать "no records"?

Выполняю запрос через:
Set SelctedRec = CurrentDb.OpenRecordset("SELECT Фирмы.Perc as Peti FROM Фирмы...")

в результате получаю одну запись и с ней работаю
MsgBox SelctedRec.Fields("Peti")

Но как быть если при выполнении запроса ни одна запись не найдена и в этом случае мне нужно выполнить другой запрос? Как обработать сообщение "no current record"

Пробовал через On Error GoTo, но это не удобно, как то можно подругому проверить есть ли запись в SelctedRec.Fields("Peti")?

P.S. Общий раздел по формам
Автор: Vglory от 20.12.2002 10:21:38 Источник ...

15.06.2007 21:03:32

All

4316 сообщения

RE: Запрос OpenRecordset как обработать "no records"?

Public Function Test1()
Dim r As DAO.Recordset
Set r = CurrentDb.OpenRecordset("SELECT Фирмы.Perc as Peti FROM Фирмы WHERE 1=2")
If Not r.EOF Then
MsgBox r!Peti
Else
MsgBox "No records"
End If
End Function
'Бывает удобно почитать Help :)

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

15.06.2007 21:03:32

Андрей11

20 сообщения

RE: Запрос OpenRecordset как обработать "no records"?