В 2007 Access не работает код.

[saintrough]

Идея заключается в следующем: существует уже написанный код для добавления элемента в источник через поле со списком, но при попытке ввести новую запись выдаёт ошибку, почему-то ему не нравится один пункт.. помогите разобраться и исправить недочёт(

Private Sub КодГород_NotInList(NewData As String, Response As Integer)
If MsgBox("Ввести новый город?", 36, "Такого города в списке нет!") = 6 Then
    DoCmd.DoMenuItem A_FORMBAR, A_EDIT, A_UNDOFIELD
        Dim d As Database, R As Recordset
        Set d = DBEngine.Workspaces(0).Databases(0)
        Set R = d.OpenRecordset("СловарьГород")
            R.AddNew
            R![Город] = NewData
            R.Update
            R.MoveLast
            Char = R![КодГород]
            R.Close
            Me![КодГород] = Char
            Me![КодГород].Requery
    Else
         Me![КодГород].Text = "_"
 End If
 Response = DATA_ERRCONTINUE

End Sub



При дебаге выделяет строчку  R![Город] = NewData

[HandKot]

и что пишется в ошибке?

[saintrough]

пишет, что введенный текст не соответствует ни одному из элементов в списке и просит выбрать элемент из списка...

[saintrough]

Спасибо за участие, уже разобрался