Проверка - Выбрано ли значение в списке

    If Me.ListТипКод.ListIndex = -1 Then
        MsgBox "Не выбран элемент из списка!", vbExclamation, "Внимание!"
        Exit Sub
    End If

Или:

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