DatasheetBestFit

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 DatasheetBestFit

Có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)