Автозаполнение полей формы

[Forest62]

Доброго времени суток. Есть таблица с изготовленной продукцией с полями "дата" и "номер партии", а также форма для заполнения таблицы отгрузок.
Я сделал так чтобы при заполнении формы "Отгрузки" при вводе "номера партии" поля заполнялись автаматически беря данные из таблици с изготовленной продукцией.
Вот код обработки событий:

Private Sub партия_AfterUpdate()
If Len([партия] & "") > 0 Then
    [тип продукции] = DLookup("[тип продукции]", "формовка", "[номер партии]='" & [партия] & "'")
End If
End Sub

Год прошел без проблем, а вот то что с нового года партии начинаются сначала не учел. Помогите дописать код что бы партия сверялась по актуальному году.

[Myhaylo]

Private Sub партия_AfterUpdate()
Dim data As Date
data=значение
If Len([партия] & "") > 0 Then
[тип продукции] = DLookup("[тип продукции]", "формовка", "Дата=#" & Format(data, "mm.dd.yyyy") & "# AND [номер партии]='" & [партия] & "'")
End If
End Sub