TopPicLogo TopPicText

Список (ListBox) - Проверка выбрано ли значение в списке

If Me!MyList.ItemsSelected.Count = 0 Then
    MsgBox "Вы не выбрали Значение!!!"
Else
    AnyVariable = Me!MyList
End If


Универсальный вариант:

Public Function ListBoxCheck(objListBox As ListBox, Optional strErrMes As String = "") As Boolean
'es - 07.10.2011
'Проверка указанного в аргументе обьекта списка (ListBox) на значение
'--------------------------------------------------------------------
On Error GoTo ListBoxCheckErr
    If objListBox.ItemsSelected.Count = 0 Then
        If strErrMes = "" Then strErrMes = "Значение в списке " & objListBox.Name & " не выбрано!"
        MsgBox strErrMes, vbExclamation, "Нет обязательного значения!"
        ListBoxCheck = False
    Else
        ListBoxCheck = True
    End If
ListBoxCheckBye:
    Exit Function
ListBoxCheckErr:
    MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in procedure ListBoxCheck", vbCritical, Error!
    Resume ListBoxCheckBye
End Function


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