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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Маленький...

Тема: Маленький вопрос про Undo

15.06.2007 21:09:36

All

4316 сообщения

Тема: Маленький вопрос про Undo

Вот текст обработки события для поля со списком

Private Sub Документ_BeforeUpdate(Cancel As Integer)
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("SELECT [Документ] FROM Поставки")
rst.MoveFirst
rst.FindFirst "Документ = '" & Me!Документ & "'"
If rst.NoMatch = False Then
MsgBox ("Такой номер уже отмечен!")
Me!Документ.Undo
End If
End Sub

Суть вопроса в том что после Undo старое значение в поле не возвращается, а остается ново-выбраное.
А по идее должно все вернуться на свои места.
Или я не прав?

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

15.06.2007 21:09:36

All

4316 сообщения

RE: Маленький вопрос про Undo

В этом случае надо использовать Cancel=True

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

15.06.2007 21:09:36

All

4316 сообщения

RE: Маленький вопрос про Undo

Если я применяю только Cancel=True, то мосле MsgBox ("Такой номер уже отмечен!") нужно нажимать Esc.
Еслиже написать
.....
MsgBox ("Такой номер уже отмечен!")
Cancel=True
Me!Документ.Undo
.....
то все возвращается на свои места.

Это так и должно быть или у меня что-то в настройках не так?

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

15.06.2007 21:09:36

Таисия

1 сообщения

RE: Маленький вопрос про Undo