Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Апр

Фильтр на форме в Access

Posted by obzor under VBA

Столкнулся с проблемой, когда попытался настроить фильтр на форме. В идеале в ComboBox нужно выбрать поле фильтра, затем ввести данные в TextBox и нажатием кнопки фильтровать.

Код:


Dim strFind As String
Dim strFind2 As String
    
        strFind = Nz(Me.Поле14.Text, "")
        strFind2 = Nz(Me.ПолеСоСписком5.Text, "")
        If strFind <> "" Then
        
            Forms![Форма1]![Форма2].Form.Filter = " strFind2 Like '*" & strFind & "*'"
            Forms![Форма1]![Форма2].Form.FilterOn = True
            
        Else
        
            Forms![Форма1]![Форма2].Form.FilterOn = False
            Me.Поле14.SetFocus
            
        End If

Форма 1 — та на которой расположены поля и кнопки, Форма 2 — табличная форма на которой нужно фильтровать данные.
После нажатия на кнопку не происходит ничего, ни ошибок, ни результата.

Aleksandr H.

Код:


Private Sub Поле3_Change()

On Error GoTo Поле3_Err
    Dim strFind As String
    Dim strFind2 As String
    Dim rs As Recordset
    Dim s As String
        strFind = Nz(Me.Поле3.Text, "")
        strFind2 = Nz(Me.ПолеСоСписком1, "")
        
        If strFind <> "" Then
            If strFind2 Like "Пол" Then
                s = "SELECT КОД FROM Принадлежность WHERE [Пол] like '*" & strFind & "*'"
                Set rs = CurrentDb.OpenRecordset(s)
                strFind = rs.Fields("Код")
                Set rs = Nothing
            End If
            Forms![Общая]![Форма 1].Form.Filter = " [" & strFind2 & "] Like '*" & strFind & "*'"
            Forms![Общая]![Форма 1].Form.FilterOn = True
            Me.Поле3.SelStart = 200
        Else
        
            Forms![Общая]![Форма 1].Form.FilterOn = False
            Me.Поле3.SetFocus
            
        End If
Поиск_Exit:

Exit Sub

Поле3_Err:

    Forms![Общая]![Форма 1].Form.FilterOn = False
    Me.Поле3 = Null
    MsgBox "Совпадений не обнаружено!", vbCritical, "Поиск"
    Resume Поиск_Exit
    
End Sub

тема на форуме

Последние записи

made in programmersforum 8

Фильтр на форме в Access

Похожие статьи

Купить рекламу на сайте за 1000 руб

пишите сюда - alarforum@yandex.ru