Logo_Access_global_380x114Favicon_Access_global_180x180Logo_Access_global_380x114Logo_Access_global_380x114
  • Home
  • University
    • Destellos formativos
  • Labs
  • TV
  • Secciones
    • El mundo de Access
    • Explorando VBA
      • Artículos sobre VBA
      • Un trocito de código
    • Entrevistas
      • Profesionales de Access
    • El rincón de Excel
    • Bases de datos
      • MS SQL
      • MySQL
      • postgreSQL
      • SQLite
    • Clases magistrales
    • Utilidades hechas con Access
  • Access en el mundo
  • ¿Quiénes somos?
  • Cómo colaborar
  • Eventos
✕
            No hay resultados Mostrar todos los resultados
            VBA: tratamiento de errores para dummies
            20/03/2022
            BD: editor de consultas SQL
            22/03/2022
            Mostrar todos

            Access: Redimensionar y posicionar formulario

            Publicado por Luis Viadel
            Categorías
            • Destellos formativos
            Etiquetas
            • Access
            • Formularios
            • VBA
            'Declarar a nivel de módulo
            Option Compare Database
            Option Explicit
            
            'Variables para capturar las dimensiones del formulario de base
            Public Ancho As Single
            Public alto As Single
            'Variables para conocer las dimensiones del formulario antes de redimensionar
            Public anchoformposicion As Single
            Public altoformposicion As Single
            'Variables para guardar los parámetros del interior del formulario base
            Public Dim1X As Integer
            Public Dim1Y As Integer
            'Variables para la guardar la posición X e Y del formulario de base
            Public PosX As Integer
            Public PosY As Integer
            
            Public Function posForm(frm As Form)
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            ' Fuente            : https://access-global.net/access-redimensionar-y-posicionar-formulario
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            ' Título            : posForm
            ' Autor original    : Luis Viadel
            ' Actualizado       : febrero 2015
            ' Propósito         : Conocer la posición de cualquier formulario en la pantalla.
            ' Retorno           : sin retorno
            ' Argumento/s       : La sintaxis de la función consta de los siguientes argumentos:
            '                     Parte                 Modo           Descripción
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            '                     frm              Obligatorio        Nombre del formulario de que queremos saber su posición
            '-----------------------------------------------------------------------------------------------------------------------------------------------
            'Test:              : Para adaptar este código en tu aplicación puedes basarte en este procedimiento test. Copiar el bloque siguiente al
            '                    portapapeles y pega en el editor de VBA. Descomentar la línea que nos interese y pulsar F5 para ver su funcionamiento.
            '
            'Sub PosForm_test()
            '
            '    Call PosForm(Me)
            '
            'End Sub
            '-----------------------------------------------------------------------------------------------------------------------------------------------Dim mu11 As Single, mul2 As Single
            
            PosX = frm.Properties!WindowLeft
            PosY = frm.Properties!WindowTop
                
            Dim1X = frm.Width
            Dim1Y = frm.Section(acDetail).Height
            
            Form_FormPosicion.InsideWidth = Dim1X
            Form_FormPosicion.InsideHeight = Dim1Y
            
            'Calculamos los multiplicadores para poder adaptar los controles
            mu11 = (Dim1X / anchoformposicion) + 0.02
            mul2 = (Dim1Y / altoformposicion) + 0.02
            
            'Adaptamos los controles según los multiplicadores
            Form_FormPosicion.CuadroPuntos.Width = Form_FormPosicion.CuadroPuntos.Width * mu11
            Form_FormPosicion.CuadroPuntos.Height = Form_FormPosicion.CuadroPuntos.Height * mul2
            
            'Si hubiesen más controles, por ejemplo un cuadro de texto, podríamos aumentar el tamaño de letra multiplicando
            '.fontsize por el multiplicador
            
            End Function
            
            
            Ver en el repositorio
            Icono

            PosForm

            1 archivo(s) 448.20 KB
            ¡Descarga el ejemplo!
            Compartir
            36
            Luis Viadel
            Luis Viadel

            Entradas relacionadas

            31/03/2023

            Tratamiento de errores: otras herramientas útiles


            Leer más
            30/03/2023

            Tratamiento de errores: compilación condicional


            Leer más
            29/03/2023

            Tratamiento de errores: errores personalizados


            Leer más

            2 Comments

            1. Luis dice:
              05/01/2023 a las 4:53 am

              Saludos, gracias por el aporte, pero el código me da un error, variable no definida en mu11 y mul2 del mód. Funciones, sí creo las variables mu11 y mul2 como un integer, long o duoble igualmente me da error de división por cero…

              Responder
              • Luis Viadel dice:
                05/01/2023 a las 4:34 pm

                Dim mu11 As Single, mul2 As Single

                Responder

            Deja una respuesta Cancelar la respuesta

            Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

            ETIQUETAS

            Access API BD Botones ComboBox Consultas CountOfLines CStr Diseño DoCmd Excel Exportar Fecha FileSystemObject Filtros For Each...Next Formulario Formularios Funciones Funciones de dominio GetFolder GetWindowRect Google maps Informes InStr Kill Left Listbox Mid Módulos Node ProcCountLines Procedimientos ProcOfLine References Replace Ribbon RunCommand Seguridad Split SysCmd Tablas TreeView VBA VBIDE

            ÚLTIMAS ENTRADAS

            • 0
              Tratamiento de errores: otras herramientas útiles
              31/03/2023
            • 0
              Tratamiento de errores: compilación condicional
              30/03/2023

            ¿QUIERES PUBLICITAR TU EMPRESA AQUÍ?

            SUSCRÍBETE A NUESTRO
            NEWSLETTER

            Recibirás información puntual sobre el mundo de Access y VBA

            ¡Próximamente!

            Promovemos el uso de Access y de la programación en VBA en todo el mundo

            Centro de conocimiento


            Toda la sabiduría de los mejores programadores de Access y VBA a tu alcance.

            Legal

            Política de privacidad

            Condiciones de uso

            Condiciones del redactor

            ®Access Global 2021 | All right reserved
                      No hay resultados Mostrar todos los resultados