Pregunta
¿Qué código tengo que utilizar para que las columnas de una consulta, tabla o formulario en vista hoja de datos se muestren con «ajuste perfecto»? En la ayuda sobre la propiedad ColumnWidth de las columnas de una hoja de datos habla de ocultar columnas, mostrarlas con el ancho predeterminado, o ajustarlas al ancho que yo le ponga, pero no dice nada de la utilidad que aparece en el menú Formato – Ancho de columna… – (cuadro de diálogo) «Ajuste perfecto».
Respuesta
El procedimiento DatasheetBestFit asigna la propiedad ajuste perfecto a todas las columnas de la hoja de datos que esté activa en ese momento.
Ejemplo de uso:
El siguiente código muestra en pantalla la consulta «Consulta1» y después llama al procedimiento DatasheetBestFit para ajustar el ancho de sus columnas
Ejemplo de uso
DoCmd.OpenQuery "Consulta1"
Call DatasheetBestFitCódigo
'---------------------------------------------------------
'
' DatasheetBestFit
'
' Código escrito originalmente por Juan M Afán de Ribera.
' Estás autorizado a utilizarlo dentro de una aplicación
' siempre que esta nota de autor permanezca inalterada.
' En el caso de querer publicarlo en una página Web,
' por favor, contactar con el autor en
'
' accessvbafaq@ya.com
'
' Este código se brinda por cortesía de
' Juan M. Afán de Ribera
'
Sub DatasheetBestFit()
Dim ctl As Control
Const BestFit = -2
On Error Resume Next
With Screen.ActiveDatasheet
For Each ctl In .Controls
ctl.ColumnWidth = BestFit
Next
End With
End Sub
'---------------------------------------------------------Créditos
con el fin de dar a conocer el trabajo de uno de los más grandes en el mundo de Access en español, y tras solicitar su permiso, replico este artículo de Juan M Afán de Ribera. Todos los derechos y autoría corresponden a él. Access & VBA FAQ – DatasheetBestFit (archive.org)
