LEADERSOFT.ru
Разработка на заказ программ и сайтов
Разработка
Заказ программы
Прайс-лист
Техническое задание
Проектная документация
Наши клиенты
Реклама и продвижение
Магазин
Перейти в магазин
Новинки магазина
Бизнес программы
Финансовый учет
Документооборот
Исходные коды
Интернет решения
Обучение
Перейти в раздел
Форумы по разработке
Примеры на Access
Рассылка статей
Магазин IT литературы
Блог
Все статьи
Microsoft Access (VBA)
Microsoft Access (Проекты)
Microsoft ASP.NET
Сервисы Google
Технические задания
Новости IT технологий
Сервисы
Форумы разработчика
Контакты
О компании
Регистрация на сайте
Подписка на новости по Email
Сообщество Google+
Подписка subscribe.ru
Новости в формате Атом
Загрузить
Загрузить каталог программ
Форумы по информационным технологиям
Начало
Forums
Регистрация
|
Вход
Forums
Обновлено ::
06 февраля 2005
Форумы
Поиск
Список форумов
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Связанные...
Тема: Связанные формы
15.06.2007 21:02:51
All
4316 сообщения
Тема: Связанные формы
MS SQL2000(MSDE)+AccessXP.adp На сервере запрос с триггером Instead of.
На клиенте связанная форма,где в качестве источника данных SQL-инструкция (этот запрос и еше одна таблица для фильтрации данных).
Запускаю клиентов на разных машинах и пытаюсь создать конфликт записи при обновлении(блокировка оптимистическая)( присутствует обработчик события OnError для формы,где идет проверка на номер ошибки 7787 и 7878).
Private Sub Form_Error(DataErr As Integer, Response As Integer)
On Error GoTo Form_ErrorErr
Dim strMsg As String
Select Case DataErr
Case adhcErrWriteConflict
strMsg = "Another user has updated this record " & _
"since you began editing it. " & vbCrLf & vbCrLf & _
"The record will be refreshed with the other " & _
"user's changes before continuing."
MsgBox strMsg, vbOKOnly + vbInformation, _
"Record Refresh"
Response = acDataErrContinue
Case adhcErrDataChanged
strMsg = "Another user has updated this record " & _
"since you began viewing it. " & vbCrLf & vbCrLf & _
"The record will be refreshed with the other " & _
"user's changes before continuing."
MsgBox strMsg, vbOKOnly + vbInformation, _
"Record Refresh"
Response = acDataErrContinue
Case Else
Response = acDataErrDisplay
End Select
DoCmd.Hourglass False
Form_ErrorEnd:
Exit Sub
Form_ErrorErr:
MsgBox "Error " & Err.Number & ": " & Err.Description, _
vbOKOnly + vbCritical, "Error Handler Error"
End Sub
Ошибка ловится,но на Response = acDataErrContinue никакой реакции и после выхода из этой процедуры появляется сообщение “Multi-step OLE DB operation generated errors.Check each OLE DB status value,if available.No work was done”
и обновления записи не происходит.Причем происходит это,после того,как через форму была добавлена или удалена запись. Если нет - то все работает нормально.При этом у меня есть и другая форма,которая отличается только набором видимых полей.И эта форма работает всегда корректно.
Можно как-нибудь узнать почему появляется это сообщение и что оно означает?
P.S. Проблемы с базой данных
Автор:
Игорь
от 0:00:00
Источник ...
Страница 1 из 1
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Связанные...
Одноуровневый вид
Древовидная структура
Самый старый из новых
Новейший из старых
Поиск
Список форумов
Начало
|
Forums
Copyright 2002-2016 Leadersoft.ru
::
Leadersoft
::
Соглашение о безопасности
::
Условия использования