Private Sub Colors_NotInList(NewData As String, _
		Response As Integer)
	Dim ctl As Control
	
' Возвращает объект Control, указывающий на поле со списком.
	Set ctl = Me!Colors
' Приглашение подтвердить ввод нового значения.
	If MsgBox( "Значение отсутствует в списке. Добавить?" , vbOKCancel) = vbOK Then
' Значение аргумента "Response" определяет добавление в список.
		Response = acDataErrAdded
' Добавляет значение аргумента  "NewData"  в источник строк.

ctl.RowSource = ctl.RowSource &  ";"  & NewData
	Else
' При нажатии кнопки "Отмена" подавляет вывод 
' сообщения об ошибке и отменяет изменения.
		Response = acDataErrContinue
		ctl.Undo
	End If
End Sub