Me iria bien disponer de una macro para ajustar el ancho de columnas de
unas consultas que se crean desde una formulario (se trata de busquedas de
campos de una tabla).
JUAN M. AFAN DE RIBERA
======================
te envío una función a la cual le has de pasar como parámetro el nombre de
la consulta en la que quieres ajustar el ancho de sus columnas. Lo que hace
es abrir la consulta y, por cada una de las columnas de la consulta, pasar
una serie de pulsaciones con sendkeys y abrir el menú de ancho de columna,
seleccionando (con las pulsaciones acumuladas de sendkeys) "Ajuste
perfecto". Espero que te sirva. Lo he hecho para Access 2000 (ten en cuenta
que los menús pueden variar un poco entre versiones.
Sub AjustarColumnasConsulta(nomConsulta As String)
Dim qry As DAO.QueryDef
Dim fld As DAO.Field
Dim i As Integer
Echo False
DoCmd.OpenQuery nomConsulta
Set qry = CurrentDb.QueryDefs(nomConsulta)
For Each fld In qry.Fields
For i = 1 To 4
SendKeys "{Tab}"
Next
SendKeys "{Enter}"
CommandBars("Menu Bar").Controls("Formato").Controls("Ancho de columna...").Execute
SendKeys "{Tab}", True
Next
Set qry = Nothing
Echo True
End Sub
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)