-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Прерывается команда SAVE при работе нескольких пользователей

Понедельник, 11 Августа 2014 г. 14:13 + в цитатник
Уважаемые форумчане!
Проблема следующего характера: есть БД, в которой могут работать несколько пользователей одновременно (хранится на шаре). Есть форма для занесения в таблицу новой строки. На кнопку, которая закрывает эту форму, повесил следующий код:

Private Sub Êíîïêà38_Click()
If (Me.&#199;&#224;&#228;&#224;&#247;&#224; <> "") And (Me.&#196;&#224;&#242;&#224;&#205;&#224;&#247;&#224;&#235;&#224;&#199;&#224;&#228;&#224;&#247;&#232; <> "") And (Me.&#196;&#224;&#242;&#224;&#206;&#234;&#238;&#237;&#247;&#224;&#237;&#232;&#255;&#199;&#224;&#228;&#224;&#247;&#232; <> "") And (Me.&#206;&#242;&#226;&#229;&#242;&#241;&#242;&#226;&#229;&#237;&#237;&#238;&#229;&#203;&#232;&#246;&#238; <> "") And (Me.&#200;&#241;&#239;&#238;&#235;&#237;&#232;&#242;&#229;&#235;&#252; <> "") And (Me.&#207;&#240;&#238;&#246;&#229;&#237;&#242;&#194;&#251;&#239;&#238;&#235;&#237;&#229;&#237;&#232;&#255; <> "") And (Me.&#207;&#240;&#238;&#229;&#234;&#242; <> "") Then
    DoCmd.Save
    DoCmd.Close
Else
    If MsgBox("Âû íå çàïîëíèëè âñå îáÿçàòåëüíûå ïîëÿ. Äàííûå áóäóò ïîòåðÿíû. Ïðîäîëæèòü çàêðûòèå ôîðìû?", vbYesNo, "Ïîäòâåðæäåíèå çàêðûòèÿ ôîðìû") = vbYes Then
        Me.Form.Undo
        DoCmd.Close
    Else
        MsgBox "Çàïîëíèòå âñå îáÿçàòåëüíûå ïîëÿ"
    End If
End If
End Sub


Т.е. я хочу сначала проверить, все ли обязательные поля заполнены и, если все Ок, то сохранить форму и закрыть ее.
Проблема появляется, если несколько пользователей открыли БД. При этом необязательно, что они одновременно используют форму по добавлению новых данных в таблицу.
Когда пользователь нажимает на кнопку, код которой описан выше, появляется ошибка "Run-time error '2501': Прервано выполнение макрокоманды Save."
При этом данные все-равно сохраняются.
Если пользователь открыл БД один, никаких ошибок не происходит.

Подскажите, пожалуйста, где копать? Что не так?

P.S. Неделю назад ошибки никакой не было, все работало исправно...

Спасибо!

http://www.sql.ru/forum/1110048/preryvaetsya-komanda-save-pri-rabote-neskolkih-polzovateley


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку