TopPicLogo TopPicText

Универсальный поиск в подчиненной форме

Public Function SetFormRecord(frm As Object, Optional strCriteria As String, Optional blToFirst As Boolean = False)
'es 22.11.04
'Производит поиск записи по заданным критериям в форме(подчиненной форме)
'и ставит фокус на найденную запись - если она найдена 
'если искомое не найдено - переход на Первую|Последнюю запись в зависимости
'от аргумента blToFirst (по умолчанию переход на последнюю запись)
'------------------------------------------------------------------------------
On Error GoTo SetFormRecordErr
    With frm
        .RecordsetClone.FindFirst strCriteria
        If .RecordsetClone.NoMatch Then
            If blToFirst = False Then
                .RecordsetClone.MoveLast
            Else
                .RecordsetClone.MoveFirst
            End If
        End If
        .Bookmark = .RecordsetClone.Bookmark
    End With
SetFormRecordBye:
    On Error Resume Next
    Set frm = Nothing
    Exit Function
SetFormRecordErr:
    Err.Clear
    Resume SetFormRecordBye
End Function



Пример использования:

'курсор на конкретную запись ...
    SetFormRecord Me!objSubForm.Form, "GoodID = 25"


Чаще всего имеем дело с переменной

    SetFormRecord Me!objSubForm.Form, "GoodID = " & varGoodID 

Achtung!
Работаем с обьектом Form ("Форма"), а не с обьектом "Подчинённая Форма"  т.е. - указание:
Me!Имя_обьекта_Подчинённая_Форма.Form = обязательно (или переписываем код)

Назад ToTop
L.E. 22.12.2012
Рейтинг@Mail.ru