Есть у меня справочник работников
ID int , Name varchar(30)
На форме поле со списком.
Иногда удобней вместо фамилии набрать код работника.
В обработчике отсутствия в списке пишу
Private Sub cboRBT_ID_B_NotInList(NewData As String, Response As Integer)
If IsNumeric(NewData) Then
cboRBT_ID_B = CLng(NewData)
Response = acDataErrAdded
End If

Вроде Response = acDataErrAdded должно подавлять собщение о отсутствии в списке (так и происходит в класическом случае от Геца когда в список действительно добавляется значение соотв введенному)
но в моем случае соответствие не добавляется и сообщение появляется,
хотя содержание поля уже то которое нужно.

Как его подавить ?

Может плохо объяснил(кроме Senin Viktor)

Классический случай
Private Sub cboADR_ID_Otkuda_B_NotInList(NewData As String, Response As Integer)
'Когда значения нет в списке
'Добавляю значение в справочник
CNN.Execute "ADR_upd_P '" & NewData & "'"
'устанавливаю значение контрола в соответствии с вновь добавленной строкой справочника
cboADR_ID_Otkuda_B = DLookup("IDVal", "GetNewID")
'Подавляю сообщение отсутств в списке
Response = acDataErrAdded
'Обновляю источник строк
cboADR_ID_Otkuda_B.Requery
End Sub

Мой случай
Набираю в поле со списком работника вместо имени(Иванов) код (234)
Естественно он в списке отсутствует
Private Sub cboRBT_ID_B_NotInList(NewData As String, Response As Integer)
'это код или просто ошибка
If IsNumeric(NewData) Then
'присваиваю код контролу
cboRBT_ID_B = CLng(NewData)
'Подавляю сообщение отсутств в списке(вернее пытаюсь)
Response = acDataErrAdded
End If

Но видимо из-за того что NewData остается "234"
сообщение об отсутствии в списке выводится , хотя контрол уже имеет
нужное мне значение

2Senin Viktor
>по ID Искать текст и впендиривать его в поле-со-списком
Как получить доступ к вводимому тексту ?

Получить Name по ID легко благо оно уже в списке находится (скорость тут не важна.Сначала программа работает , потом работает хорошо)

Но вот как это значение запихнуть в поле
cboRBT_ID_B="НекоеИмя" не катит т.к. поле привязано к числовому ID
а надо поменять введенный текст что-то типа cboRBT_ID_B.Column(1)="НекоеИмя" (только не так конечно)

2 eGorka
undo
попробывал результат точно такой же
содержание контрола то что нужно.
Сообщение не подавляется.

Заменил acDataErrAdded (значит 2) на 0
сообщение подавилось.
только фокус остался в томже поле.

Какие там еще значения Response (с расшифровкой значения) могут быть
ато у меня Help зараза ничего не выдает

Dim SaveRbt As Long
If IsNumeric(NewData) Then
SaveRbt = cboRBT_ID_B
cboRBT_ID_B = CLng(NewData)
If Nz(cboRBT_ID_B.Column(1), "") = "" Then 'Вот сделал проверку
cboRBT_ID_B = SaveRbt
Else
Response = acDataErrContinue
SendKeys "{ENTER}"
End If
End If

Все вроде работает , но после ввода номера
раскрывается список и фокус остается в поле
Как сделать ,чтоб реакция была такая же как после ввода имени
т.е. фокус перескакивал на сл поле
Ато SendKeys "{ENTER}" както режет глаз.

>Убрать "только из списка".
А ты пробывал?
Лично мне акес говорит что этого сделать нельзя ,
т.к. срисоедененное поле не отображается.

>cboRBT_ID_B.Requery пробовал?
Код от 14:09 полностью рабочий
просто мне не нравятся изврачения типа SendKeys "{ESC}" вместо undo
Вот я и думал может можно также заменить SendKeys "{ENTER}"

А cboRBT_ID_B.Requery тут совсем не к месту
Зачем набор заново с сервера тащить если он и так актуальный.