Selección automatica unico valor combobox/listbox

[xavi]

Palabras clave: listbox, combobox
Autor: Xavi
Extraído de: Cuando lo busco no lo encuentro. Ahora que lo he encontrado, lo cuelgo aquí
Pregunta
Si un ListBox/ComboBox solo tiene un elemento, que aparezca seleccionado.

Respuesta
Debemos contar los registros del control y, si es igual a 1, utilizar la ItemData para seleccionalo.

Código: [Seleccionar]

    If Me!cboEjemplo.ListCount = 1 Then
        Me!cboEjemplo= Me!cboEjemplo.ItemData(0)
    End If