ник: Lukas
Private Sub Calendar_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[DateItem] = " & Format$(Me![Calendar], "\#mm\/dd\/yyyy\#")
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
|
Слегка измененный вариант поиска записи на ленточной форме, предлагаемый мастером добавления ComboBox.
Только штатный календарь у меня не отрабатывает событие Calendar8_Updated.
