Меняю источник поля со списком

cboKA_ID_Plat_B.RowSource = "exec dbo.KA_Vibor 3," & bytStatus_prm & "," & cboDp_ID_B

После этого пытаюсь проверить есть ли в новом списке соответствие значению находящемуся в поле

'Затираю КА если он не вписывается в источник
If Not IsNull(cboKA_ID_Plat_B) And Nz(cboKA_ID_Plat_B.Column(1), "") = "" Then
MsgBox "КА № " & cboKA_ID_Plat_B & " Не может быть плательщиком"
cboKA_ID_Plat_B = Null
End If

Проблемма в том , что после смены источника значения в списке появляются не сразу а Nz(cboKA_ID_Plat_B.Column(1), "") <> "" только после того как список заполнится

Как дождаться пока список в поле заполнится ?
что-то типа
Do While Not (cboKA_ID_Plat_B.ИсточникЗаполнен)
DoEvents
Loop

Это ничего не дает кроме небольшой и не всегда достаточной (и не всегда нужной) задержки. Нужен критерий заполненности когда Column(1) пустой не потому что не успел заполнится список , а потому что после смены источника в списке нет соответсвия содержимому поля.

Сделал искуственную задержку после обновления источника

For i = 0 To 100
If Nz(cboKA_ID_Plat_B.Column(1), "") <> "" Then Exit For
DoEvents
Next i
В принципе проблемму решило , но в случае отсутствия соответствия в списке
приходится ждать пока цикл завершится сам (без Exit For) Получается раздражающая задержка . И количество циклов выбрано имперически. Ничто не мешает циклу закончится при еще не заполненном списке.

Что называется не вылечил , а загнал в глубь.
может есть у кого мысли?

Тут блинклинтон еще одна хохма обозначилась
Если смена RowSource контрола происходит по событию этогоже контрола , то список остается не заполненным пока не завершится процедура обработки
этого события.