Private Sub fldFindBuh_Change()
    Dim s As String: s = Me.fldFindBuh.Text
    Dim bRes As Boolean
    
    If Len(Trim(Nz(s, ""))) = 0 Then
        Me.btnFindBuh.Enabled = False
    Else
        Me.btnFindBuh.Enabled = True
        bRes = modPattern.FindPattern( _
            Me.subElement_Buh.Form.RecordsetClone, Me.subElement_Buh.Form, _
            s, "strName", "iKOD", "strName", True, False _
        )
    End If

End Sub

Private Sub fldFind_Change()
    Dim s As String: s = Me.fldFind.Text
    Dim bRes As Boolean
    
    If Len(Trim(Nz(s, ""))) = 0 Then
        Me.btnFind.Enabled = False
    Else
        Me.btnFind.Enabled = True
        bRes = modPattern.FindPatternArray( _
            Me.subElement.Form.RecordsetClone, Me.subElement.Form, _
            s, Array( _
            "strElementName;strElementDescription;strElementStandart" _
        ))
    End If
По началу долго не мог запустить процедуру - выдавала ошибки, сейчас уже не вспомню какие, либо просто ничего не находила и ставила курсор на первую запись, текущий вариант работает... но поиск производится только по первому столбцу из списка (в этом варианте strElementName), а фокус почему то выставляется на последний столбец (здесь strElementStandart). При этом поиск по другим столбцам, кроме первого, не производится вообще. Может я что-то делаю не так?

Private Sub fldFind_Change()
    Dim s As String: s = Me.fldFind.Text
    Dim bRes As Boolean
    
    If Len(Trim(Nz(s, ""))) = 0 Then
        Me.btnFind.Enabled = False
    Else
        Me.btnFind.Enabled = True
        bRes = modPattern.FindPatternArray( _
            Me.subElement.Form.RecordsetClone, Me.subElement.Form, _
            s, Array( _
            "strElementName;iElementID;strElementName", _
            "strElementDescription;iElementID;strElementDescription", _
            "strElementStandart;iElementID;strElementStandart" _
            ))
    End If

End Sub