Access - Cuadro combinado extensible

   
Vista:

Cuadro combinado extensible

Publicado por maribajar (7 intervenciones) el 13/05/2010 19:07:06
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cuadro combinado extensible

Publicado por mi menda (1111 intervenciones) el 13/05/2010 20:11:06
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar