Access - Cuadro combinado extensible

Hola,
Tengo una duda y no se si se podrá solucionar.
Yo tengo un cuadro combinado que tiene un ancho, pero se puede que al dar la flecha para que aparezcan los demas valores este se haga tan grande como el valor del campo que más ocupe.
Por lo menos que cuando se abra el cuadro se ven todos los valores aunque cuando ya se ha elegido no se ve en la columna completamente.

Hola

En la sección Declaraciones del Formulario

Private valorDefecto As Single

Al recibir el enfoque

Private Sub CuadroCombinado_GotFocus()
Dim ValorMasGrande As Single

' Sí en el combo tienes algún criterio de selección, se lo debes poner también
' en la función DMax()

ValorMasGrande= DMax("Len(NombreCampoEnTabla)", "NombreTabla")
valorDefecto = Me.CuadroCombinado.Width
Me.CuadroCombinado.Width = ValorMasGrande * 125
End Sub

Al perder el enfoque

Private Sub CuadroCombinado_LostFocus()
Me.CuadroCombinado.Width = valorDefecto
End Sub

El valor 125 lo tendrás que cambiar, pues dependiendo del tipo de letra y tamaño que tengas en el cuadro combinado, puede ser mayor o menor.

Un saludo