MyTetra Share
Делитесь знаниями!
Список (ListBox) - Проверка выбрано ли значение в списке
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 07 Элементы Управления
Запись: xintrea/mytetra_db_adgaver_new/master/base/1531973186e873mp0tov/text.html на raw.githubusercontent.com

Список (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





Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования