ник: shaucha
Событие "Отсутствует в списке" ПоляСоСписком Производитель
обрабатываю так (добавляю новое значение в справочник):
Dim p As String
p = Me.Производитель.Text
Dim Msg, Style, Title, Res
Msg = "Хотите добавить нового Производителя?" & Chr(10) & Chr(34) & p & Chr(34)
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Справочник производителей"
Res = MsgBox(Msg, Style, Title)
If Res = vbYes Then
Dim tbl As DAO.Recordset
Set tbl = CurrentDb.OpenRecordset("tblDir_Prod")
Dim l As Long
With tbl
.AddNew
!Prod = p
.Update
.MoveLast
l = !ProdID
End With
Me.Производитель = l
Else
Me.Производитель = 0
End If
Me.Производитель.Requery
|
Во время обработки появляется стандартное сообщение "Введенный текст не соответствует ни одному элементу списка..."
Как его обойти?
Спасибо.