Господа, проблема следующая:

Дано

1)База Access,в одной из таблиц которой каждый месяц забивается информация о продажах.
2)Запрос, который выдаёт все наличиствующие даты в БД
3)Форма с ListBox-ом, к которой привязан запрос.

Нужно:
Запустить форму из макроса и передать на переменную выбранное значение

Код

Sub xyz()

Dim frm as Form
Dim ctr as Listbox
Sim dtmSelected as Date

DoCmd.openframe "frm_Data"

set frm=Form!frm_Data
set ctr=frm!ListData


dtmSelected=ctr

End Sub


Суть проблемы: аксес не даёт возможности выбрать значение из списка.