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