Проблема такая: делаю базу в Access, в форме реализована атоподстановка(открывется лист с данными из таблицы) но при заполнении базы данных может возникнуть проблемма что при вводе данных данного параметра, например фамилии, нет в таблице. Я написал скрипт типа NotInList, это когда реализуется автозапонение, т.е. данные из формы заносятся в таблицу, но вот дела: данные заносятся, а форма не обновляется, т.е. чтобы увидать занесённые данные нужно закрыть форму.
Вот скрипт который я написал:

Private Sub Код_фамилия_NotInList()
        Dim NewData As String, Response As Integer
       Dim Ответ As Integer
    Ответ = MsgBox("Добавить новую фамилию (" & NewData & ")?", vbYesNo)
    If Ответ = vbYes Then
        Dim rs As Recordset
        Set rs = CurrentDb.OpenRecordset("Фамилии")
        rs.AddNew
        rs!Фамилия = NewData
        rs.Update
        rs.Close
On Error GoTo Err_Код_фамилия_NotInList


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 13, , acMenuVer70

Exit_Код_фамилия_NotInList:
    Exit Sub

Err_Код_фамилия_NotInList:
    MsgBox Err.Description
    Resume Exit_Код_фамилия_NotInList
    Exit Sub
Else
     End Sub
    End If
         
   
End Sub

Access выдаёт ошибку

Помогите исправить...

Исправлено Snakebss (29.05.07 20:14)