5 строк кода

Как писать приложения на MS Access

Как показать первое значение в поле со списком

Комментариев нет

Здравствуйте, уважаемые читатели.

CM_ListSelectFirst

Поделюсь с вами еще одной удобной функцией. У меня часто возникает ситуация, когда при открытии формы в поле со списком необходимо показать первое значение.

Например, на форме списка пользотваль хочет видеть данные за текущий год. Для этого я добавил на форму поле со списком «Год» (Имя элемента управления P_GOD). В нем выводятся года, за которые есть данные в обратном порядке. А при открытии формы вызвал специальную фукнцию:

Call CM_ListSelectFirst( Me.P_GOD_FLT ) '-- мега функция
'-- увы при программном изменении значения поля события не происходят, 
'-- то придется еще вызвать фукнцию соотвествующую фукнцию
Call SetFilter()

А вот код той самой функции CM_ListSelectFirst():

Public Sub CM_ListSelectFirst(ByRef ctl As Control)
' Скоков С.А. 2009-02-25
' Выбрать первое значение в поле со списком или списке
    With ctl
        If Not (.ControlType = acListBox Or .ControlType = acComboBox) Then
            Exit Sub
        End If
    
        If .ListCount > 0 Then
            .Value = Nz(.ItemData(0))
        End If
    End With
End Sub

P.S. Эта же функция будет работать для списков :-).

До встречи!

(с) Скоков Сергей

Written by Сергей Скоков

Март 10th, 2009 at 2:52 дп

Posted in решения

Leave a Reply