У меня есть поле со списком для года. Суть - надо, чтобы в поле со списком выбирался год (причем у меня есть 20 записей для 2001 года, 40 записей для 2002 года) и надо, чтобы этот год показывался только один раз, т.е. один раз показывался 2001 год, 1 раз показывался 2002 год и т.д. (а Год показывается много раз) и есть второе поле со списком (для Товаров), в котором для выбранного года должны показываться соответствующие записи Товаров.

для поля со списком Год, на AfterUpdate пишу:
Private Sub Год_AfterUpdate()
Dim rst As Recordset, frm As Form
Set frm = Me.Подформа.Form
Set rst = frm.RecordsetClone
rst.FindFirst "([Год]=# " & Format(Me.Год, "yyyy") & "#)"
If rst.NoMatch = False Then
frm.Bookmark = rst.Bookmark
Me.Товар = rst!Товар
Else
MsgBox "Нет данных!"
End If
Exit Sub
End Sub

Ругается на: Me.Год, "yyyy"

Подскажите пожалуйста, что надо исправить, чтобы работало так, как надо?
В таблице, поле Год является текстовым полем, может быть по этому Access не хочет понимать формат "yyyy".
:-)

Спасибо за совет - # убрал, но Access все равно ругается на ту же строку.
А еще мне бы сделать так, чтобы год отображался не по 20 раз для каждого года, а только один раз.
:-)

Я вообще - то примерно так и думал, что "yyyy" не получится (но в тайне надеялся, что боги Access все-таки помогут мне решить данную задачу).
:-)

В источнике строк: SELECT [Запрос].[Год] FROM [Запрос] GROUP BY [Запрос].[Год];

А Год выводится в формате 2001, 2002 и т.п. ( формат YYYY ).

Спасибо большое за советы.
Сделал так:
Private Sub Год_AfterUpdate()
Dim rst As Recordset, frm As Form
Set frm = Me.Подформа.Form
Set rst = frm.RecordsetClone
Год.RowSource = "SELECT DISTINCT (Год(operation_date)) from Запрос "
If rst.NoMatch = False Then
frm.Bookmark = rst.Bookmark
Me.Товар.Requery
Else
MsgBox "Нет данных!"
End If
Exit Sub
End Sub

Для второго поля со списком для товаров сделал:
На AfterUpdate:
Private Sub Товар_AfterUpdate()
recordFind
End Sub

На Enter:
Private Sub Товар_Enter()
Me.Товар.RowSource = "SELECT Товар FROM [Запрос] WHERE (((Год)=[Forms]! [Моя форма]![Год]));"
End Sub

И опять не работает:
Ругается на: Me.Товар.RowSource

Подскажиет пожалуйста, что я опять неправильно сделал?
:-)

Спасибо! Пробел убрал - но не помогло, опять ругается на ту же строку.
Private Sub Товар_Enter()
Me.Товар.RowSource = "SELECT Товар FROM [Запрос] WHERE (((Год)=[Forms]![Моя форма]![Год]));"
End Sub
Access пишет:
"Method or data member not found".
Подскажите пожалуйста, что у меня опять неправильно?
:-)

Очччччень прошу, помогите пожалуйста!
Неужели никто не знает ответ на мой вопрос!!!

Не, Товар это точно поле со списком (комбобокс).
С головой у меня, пока что, все в порядке.
:-)

Спасибо большое за совет.
Написал:
Me.Товар.RowSource = "SELECT Товар FROM [Запрос] WHERE Год=" & [Forms]![Моя форма]! [Год]

Access ругается на
[Год] ?????
Что за ***!
Есть ли справедливость на этом свете? Неужели моя форма так никогда и не будет работать?

А как посмотреть, что получилось в ddd (ч/з Immediate не получилось)?
Ругается на:
Me.Товар.RowSource = ddd

В Add Watch для ddd:
Value: Can't compile module
Type: Empty
P.S.
Наверно надо
dim ddd as string
а не
dim dddd as string