Так как действие "Ответить" вызывало ошибку на сервере, отвечаю в новом топике.
Простой выход в данной ситуации - создавать в форме к каждому полю со списком еще одно (невидимое) поле, в свойство данные которых пишите:
=[ПолеСоСписком2].column(1)
....
И уже на эти поля ссылаться в запросах.
Второй путь еще проще - использовать eval, т.е. вместо:
[Forms]![Oposdania]![ПолеСоСписком2].[Column](1)
писать:
Eval("[Forms]![Oposdania]![ПолеСоСписком2].[Column](1)")
Третий путь написать свою функцию типа:
Function GetColumnValue(ctl as Control, ColumnN as Integer) as Variant
GetColumnValue = ctl.Column(ColumnN)
End Function