| |
|
|
| | Событие "Отсутствует в списке" ПоляСоСписком Производитель
обрабатываю так (добавляю новое значение в справочник):
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
|
Во время обработки появляется стандартное сообщение "Введенный текст не соответствует ни одному элементу списка..."
Как его обойти?
Спасибо. | |
| |
| |
| |
|
|
| | Response = acDataErrAdded
Попутно, Вместо:
p = Me.Производитель.Text
задействуй аргумент NewData. | |
| |
| |
| |
|
|
| | 
Спасибо!
| |
| |
| |
| |
|
|
| | Когда соглашаемся добавлять новую позицию в справочник - все работает.
Когда нет... Опять появляется стандартное сообщение...
Как быть? | |
| |
| |
| |
|
|
| | Response = acDataErrContinue | |
| |
| |
|
|
