Разное

Iska · Отправлено: **03:56, 26-01-2013** | #2

Bio_Hazard, добавьте:

Код:

Private Sub filter_Change()
    If IsNull(Me![filter].Text) Or IsEmpty(Me![filter].Text) Then
        Me![Список32].RowSource = "SELECT login.ID_login, login.web FROM login ORDER BY login.web;"
    Else
        Me![Список32].RowSource = "SELECT login.ID_login, login.web FROM login WHERE login.web LIKE '" & Me![filter].Text & "*' ORDER BY login.web;"
    End If
End Sub

Bio_Hazard · Отправлено: **09:49, 26-01-2013** | #3

Iska, Спасибо большое! Работает!