ник: Гоблин
Как-то примерно так:
For i = 0 To Me.Список.ListCount
Me.Список.Value = Me.Список.ItemData(i)
If Me.Список.Column(...) = Me.Полевводанакидывания Then
MsgBox ("Данная хрень уже есть")
Me.Полевводанакидывания = ""
GoTo l
Else
End If
Next i
CurrentDb.Execute "insert into [Табла] (Поле, ЕщеПоле) values (...... запрос на добавление короче)
l:
end sub
А несвязанный ни с чем это как? Накидывать тогда не в таблицу, а в сам список добавлять без запроса на добавление в таблу придется.