| |
 58 Кб. |
|
| | Доброго времени суток.
Возможно ли сделать поиск (фильтр) в форме по двум ключевым полям (без использования нажатия кнопки), например как в этом примере, только здесь по одному полю:
Private Sub ClientForFilter_Change()
Dim strFind As String
strFind = Nz(Me.ClientForFilter.Text, "")
If strFind <> "" Then
Me.Filter = "[Название] Like '" & strFind & "*'"
Me.FilterOn = True
Me.ClientForFilter.SelStart = 200
Else
Me.FilterOn = False
End If
End Sub
|
Проблема решена
применил вот это
Private Sub P_lostfocus()
Dim G
Dim P
G = Nz(Me.G)
P = Nz(Me.P)
If G <> "" And P <> "" Then
Me.Filter = "[Гр] Like '" & G & "*' AND [Пара] Like '" & P & "*'"
Me.FilterOn = True
Else
Me.FilterOn = False
End If
End Sub
|
| |
| |
|
