Ошибка при работе с формой.

[myprog]

Доброго времени суток!!!!

Обращаюсь к Вам за помощью.

Ситуация:
Таблица- МАСТЕРА
Поля:
- ТабНомер - текст
- ФИОПолное - текст
- ФИОСокр - текст
- Должность - текст

Форма построена на базе этой таблицы с помощью мастера тип ЛЕНТОЧНЫЙ

Для получения ФИОСокр создана процедура:

Public Function Инициалы(ФИО As String) As String

Dim Фамилия As String
Dim Имя As String
Dim Отчество As String
Dim ПозицияПробела As String

    ФИО = УбратьПробелы(ФИО)
    If Len(ФИО) <= 0 Then
        MsgBox ("Критическая ошибка!!!" & Chr(13) & "Не указаны данные, или строка состоит из пробелов!!!")
        Exit Function
    End If
    ПозицияПробела = InStr(ФИО, " ")
    If ПозицияПробела = 0 Then
        MsgBox ("Для данного работника введена только фамилия." & Chr(13) & "Не указаны: ИМЯ, ОТЧЕСТВО.")
        Фамилия = Trim(ФИО)
    Else
        Фамилия = Trim(Left(ФИО, ПозицияПробела))
        ФИО = Trim(Replace(ФИО, Фамилия, ""))
        ПозицияПробела = InStr(ФИО, " ")
        If ПозицияПробела = 0 Then
            MsgBox ("Для данного работника введена только фамилия и имя." & Chr(13) & "Не указаны: ОТЧЕСТВО.")
            Имя = Trim(ФИО)
            Имя = Left(Имя, 1) & "."
        Else
            Имя = Trim(Left(ФИО, ПозицияПробела))
            ФИО = Trim(Replace(ФИО, Имя, ""))
            Имя = Left(Имя, 1) & "."
            Отчество = Trim(ФИО)
            Отчество = Left(Отчество, 1) & "."
        End If
    End If
    
    Инициалы = Trim(Фамилия & " " & Имя & Отчество)
    
End Function

А для элемента формы ФИОПолное назначена обработка выхода:

Private Sub ФИОПолностью_Exit(Cancel As Integer)

Dim rst As DAO.Recordset
Dim strSql As String
    
    If IsNull(Form_Мастера.ФИОПолное.Value) Then Exit Sub
    
    ФИО = Инициалы(Form_Мастера.ФИОПолное.Value)
    
    strSql = "UPDATE [МАСТЕРА] SET [МАСТЕРА].[ФИОИнициалы]=""" & ФИО & """ WHERE ((([МАСТЕРА].[ТабелныйНомер])=""" & Form_Мастера.ТабелныйНомер.Value & """));"
    CurrentDb.Execute strSql
    Form_Мастера.Requery

End Sub

Так вот, при вводе ФИО и переходе к другим полям появляется сообщение:


Что не так? Кто знает как решить данную проблему?
(на сайте с которого взята картинка ответа нет, или я не увидел)

Всем СПАСИБО!!!

[Teslenko_EA]

Здравствуйте myprog.
Описанная ситуация возникает при попытке одновременного редактирования записи.
"..Что не так?.." - простое объяснение может быть таким: виновна блокировка.
источник данных подключенный к форме, получает информацию о том что текущая запись формы изменена (возможно не руками а кодом) - перешла в состояние редактирования (блокирована) и в тоже время DAO выполняет запрос пытающийся внести изменения в текущую запись. MS Access в замешательстве у какого изменения выше приоритет - вот он и спрашивает как поступить.

"..как решить данную проблему?.." - используйте для получения информации из источника данных формы не обращение к объектам формы, а чтение полей рекордсета, без блокировки текущей записи, можно с отменой "случайных" изменений - Me.Undo. Это позволит оставить запись не блокированной для беспроблемного выполнения обновления запросом.
Евгений.