Как по дате в календаре найти нужную запись в Базе данных

29.06.2009, 11:58. **Показов** 1460. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста! Есть форма в которой установлен объект Календарь. Необходимо по клику по дню календаря найти соответствующую запись в базе данных по полю (дата регистрации). Спасибо!

29.06.2009, 13:35

Найти где? В текущей форме или в какой-либо таблице?
Для таблицы (A'97, DAO):

Visual Basic

Private Sub ЭлементActiveX0_AfterUpdate()
 Dim rs As DAO.Recordset
 Set rs = CurrentDb.OpenRecordset('TableName', dbOpenDynaset)
 rs.FindFirst 'DateFieldame = ' & Format(Me.ЭлементActiveX0.Value, '#mm/dd/yyyy#')
 If rs.NoMatch = False Then
  MsgBox 'Found!'
 End If
End Sub

ЭлементActiveX0 - имя календаря

Для поиска в форме можно использовать RecordsetClone:

Visual Basic

Private Sub ЭлементActiveX0_AfterUpdate()
 Me.RecordsetClone.FindFirst 'DateFieldame = ' & Format(Me.ЭлементActiveX0.Value, '#mm/dd/yyyy#')
 If rs.NoMatch = False Then
  MsgBox 'Found!'
 End If
End Sub

29.06.2009, 13:38

Для второго варианта, конечно, вместо

If rs.NoMatch = False Then

необходимо писать

If Me.RecordsetClone.NoMatch = False Then

abramova
		1
	Как по дате в календаре найти нужную запись в Базе данных 29.06.2009, 11:58. Показов 1460. Ответов 2 Метки нет (Все метки) Помогите, пожалуйста! Есть форма в которой установлен объект Календарь. Необходимо по клику по дню календаря найти соответствующую запись в базе данных по полю (дата регистрации). Спасибо!

IgorM
	29.06.2009, 13:38	3
	Для второго варианта, конечно, вместо If rs.NoMatch = False Then необходимо писать If Me.RecordsetClone.NoMatch = False Then