Фильтрация данных в поиске - Microsoft Office Access - Страница 2

slone2179 · 20.02.2012, 15:14

If флажок Then
s1 = s1 & " and Description like '" & s2 & "'"
Me.RecordSource = s1
flag.Enabled = True

Woodlin · 21.02.2012, 06:20

Код:

If Len(s2) > 0 Then
    If Флажок Then
        s1 = s1 & " and  Description like '" & s2 & "'"
    Else
        s1 = s1 & " and  Description like '*" & s2 & "*'"
    End If
End If

Кстати на флажок надо подвесить вызов процедуры поиск

Код:

Private Sub Флажок_AfterUpdate()
Call fpoisk
End Sub

slone2179 · 21.02.2012, 08:41

Спасибо большое! Хороший подарок к дню Рождения!

21.02.2012, 06:20	#12
Woodlin Форумчанин Регистрация: 30.03.2010 Сообщений: 153	Код: `If Len(s2) > 0 Then If Флажок Then s1 = s1 & " and Description like '" & s2 & "'" Else s1 = s1 & " and Description like '" & s2 & "'" End If End If` Кстати на флажок надо подвесить вызов процедуры поиск Код: `Private Sub Флажок_AfterUpdate() Call fpoisk End Sub`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Фильтрация данных	Savin	БД в Delphi	3	10.06.2010 18:17
Фильтрация данных	skiffter	Помощь студентам	10	17.11.2009 16:44
фильтрация данных	elen1khp	БД в Delphi	6	28.09.2009 20:01
Учетность регистра при поиске данных	Proxx-asb	Общие вопросы Delphi	4	28.05.2009 13:12
Фильтрация данных	Gladiator	БД в Delphi	4	23.05.2009 12:37

20.02.2012, 15:14	#11
slone2179 Форумчанин Регистрация: 22.04.2011 Сообщений: 155	If флажок Then s1 = s1 & " and Description like '" & s2 & "'" Me.RecordSource = s1 flag.Enabled = True

21.02.2012, 08:41	#13
slone2179 Форумчанин Регистрация: 22.04.2011 Сообщений: 155	Спасибо большое! Хороший подарок к дню Рождения!