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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Проблема ...

Тема: Проблема с рефрешем формы

15.06.2007 21:03:39

mech1

4 сообщения

Тема: Проблема с рефрешем формы

Есть таблица tab1 с полями code, data, del. Последнее - логической. При "удалении" записи из формы я туда ставлю true, чтоб физически данные не удалять. Так надо.

Форма имеет рекордсоурс: select code, data, del from tab1 where del=0

На кнопке удаления висит следующий код:
if me.recordset.recordcount>0 then
if isnull(me.code) then
msgbox "надо выделить запись"
else
me.del=1
me.requery
end if
else
msgbox "нет записей"
end if

все работает, но при "удалении" последней записи он ругается "No current record", причем нет номера ошибки и я не знаю как ее перехватить.

Может подскажет кто более красивое решение?

Спасибо

P.S. Общий раздел по формам
Автор: mech от 29.01.2003 5:02:40 Источник ...

15.06.2007 21:03:39

founder

45 сообщения

RE: Проблема с рефрешем формы

Если не проверять recordcount все нормально работает.

P.S. Общий раздел по формам
Автор: founder от 29.01.2003 22:33:31 Источник ...

15.06.2007 21:03:39

All

4316 сообщения

RE: Проблема с рефрешем формы

Если я делаю так:

if not isnull(me.code) then
me.del=1
me.requery
end if

если нажать кнопку когда не будет записей, пишет runtime error...

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

15.06.2007 21:03:39

All

4316 сообщения

решил

вот так работает:

On Error GoTo err
If Not IsNull(Me.code) And Me.code > 0 Then
If MsgBox("Действительно удалить?", vbYesNo, "внимание") = vbYes Then
Me.del = 1
Me.Requery
End If
Else
MsgBox "Необходимо выделить запись!"
End If
Exit Sub
err:
If err.Number = "2448" Or err.Number = "2427" Then
MsgBox "нет записей"
End If

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

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Проблема ...

Поиск

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

Начало | Forums