Guardar propiedades de controles en formulario VBA

Hola a todos.

 

 

Estoy editando el formato de mis formularios a través de una función VBA que cargo en el OnLoad de cada formulario poara darle homegeneidad a los p[royectos, y en el caso de querer cambiar algo, pues con hacerlo en la función, se haría para todo el proyecto. El código es el siguiente:

 

 

-----

Public Sub fncCabeceraFormulario(miForm As Form)

    On Error GoTo fncCabeceraFormulario_Error

    

    'maquetacion de cabecera

    With miForm

        .Section(0).BackColor = LN_BLANCO

        .Section(1).BackColor = LN_GRIS_CLARO

        .Section(2).BackColor = LN_BLANCO

    End With

    

    If ControlExists("lblTitel", miForm) Then

        With miForm.lblTitel 'Item 1

            .Left = 128

            .Top = 128

            .Height = 550 '509

            .ForeColor = LN_ROJO_ACCESS

            .FontName = "Calibri"

            .FontSize = 22

        End With

    End If

    If ControlExists("lnTitel", miForm) Then

        With miForm.lnTitel 'Item 10

            .Left = miForm.lblTitel.Left

            .Top = miForm.lblTitel.Top + miForm.lblTitel.Height + 32

            .Width = 10500

            .Height = 0

            .BorderColor = LN_ROJO_ACCESS

        End With

    End If

    If ControlExists("btnExit", miForm) Then

        With miForm.btnExit 'Item 7

            .Left = miForm.lnTitel.Left + miForm.lnTitel.Width - .Width

            .Top = miForm.lblTitel.Top

            .Height = miForm.lblTitel.Height

            .Width = .Height

        End With

    End If

    If ControlExists("btnNew", miForm) Then

        With miForm.btnNew

            .Left = miForm.btnExit.Left - .Width

            .Top = miForm.btnExit.Top

            .Height = miForm.btnExit.Height

            

            .Width = .Height

        End With

    End If

    On Error GoTo 0

    Exit Sub

 

 

fncCabeceraFormulario_Error:

 

 

    '    MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure fncCabeceraFormulario, line " & Erl & "."

    TSCs_ReportUnexpectedError "fncCabeceraFormulario", miForm.Name, "Error al formatear la cabecera"

 

 

End Sub

 

-----

 

 

Las preguntas son:

 

1.

existe algún modo de guardar esos cambios en el formulario para que al abrirlo en modo diseño se muestren los cambios?

 

 

2.

estoy llamando los colores por su numero (p.ej.LN_BLANCO = 16777215)

hay un modo mejor de hacerlo (constantes de access o algo así)

 

Gracias a todos

Gracias Xavi.

 

El problema con el que me encuentro es que al hacerlo desde el Load, hay retardo por lo que se muestra primero con el formato previo y luego se carga el formato del load.

De ahí la pregunta de si se pueden guardar los cambios; para evitar el bailoteo de los controles y para poder visualizar posteriormente en la vista diseño el formato final.

Muchas gracias.

Muchas gracias Maverick2019

eso es.

Mas que hacerlo cada vez que se cargan los formularios te podrías hacer una rutina propia del 'informático', que lanzarías sólo cuando tengas cambios en el proyecto:

- recorres la colección AllForms

- abres cada formulario

- haces los cambios

- salvas y sales

- siguiente formulario

 

 

Así al realizarlo sólo cuando haya cambios, evitas los problemas de tiempos de carga, parpadeos, etc ...

 

 

 

 

Finalmente el código queda así.

 

rutina de informático que recorre todos los formularios pero edita solo los que tienen un tag con el fin de evitar incompatibilidades.

 

 

Comparto el código

 

 

Public Sub fncCabeceraFormulario(miForm As Form)

    On Error GoTo fncCabeceraFormulario_Error

    

    'maquetacion de cabecera

    With miForm

        .Section(0).BackColor = LN_BLANCO

        .Section(1).BackColor = LN_GRIS_CLARO

        .Section(2).BackColor = LN_BLANCO

    End With

    

    If ControlExists("lblTitel", miForm) Then

        With miForm.lblTitel 'Item 1

            .Left = 128

            .Top = 128

            .Height = 550 '509

            .ForeColor = LN_ROJO_ACCESS

            .FontName = "Calibri"

            .FontSize = 22

        End With

    End If

    If ControlExists("lnTitel", miForm) Then

        With miForm.lnTitel 'Item 10

            .Left = miForm.lblTitel.Left

            .Top = miForm.lblTitel.Top + miForm.lblTitel.Height + 32

            .Width = 10500

            .Height = 0

            .BorderColor = LN_ROJO_ACCESS

        End With

    End If

    If ControlExists("btnExit", miForm) Then

        With miForm.btnExit 'Item 7

            .Left = miForm.lnTitel.Left + miForm.lnTitel.Width - .Width

            .Top = miForm.lblTitel.Top

            .Height = miForm.lblTitel.Height

            .Width = .Height

        End With

    End If

    If ControlExists("btnNew", miForm) Then

        With miForm.btnNew

            .Left = miForm.btnExit.Left - .Width

            .Top = miForm.btnExit.Top

            .Height = miForm.btnExit.Height

            

            .Width = .Height

        End With

    End If

    

    Debug.Print miForm.Name & " editado"

 

 

    

    On Error GoTo 0

    Exit Sub

 

 

fncCabeceraFormulario_Error:

 

 

    '    MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure fncCabeceraFormulario, line " & Erl & "."

    TSCs_ReportUnexpectedError "fncCabeceraFormulario", miForm.Name, "Error al formatear la cabecera"

 

 

End Sub

Public Sub fncCabeceraFormularioEdicion()

    On Error GoTo fncCabeceraFormulario_Error

    

    Dim obj As AccessObject, dbs As Object

    Dim miForm As Form

    Set dbs = Application.CurrentProject

 

 

    For Each obj In dbs.AllForms

 

 

            DoCmd.OpenForm obj.Name, acDesign, , , , acHidden

            Set miForm = Forms(obj.Name)

            Debug.Print miForm.Name & " - " & miForm.Tag

            If miForm.Tag Like "editable" Then

                fncCabeceraFormulario miForm

                DoCmd.Close acForm, obj.Name, acSaveYes

            Else

                DoCmd.Close acForm, obj.Name

            End If

 

 

        

    Next obj

    

    Set miForm = Nothing

    

    On Error GoTo 0

    Exit Sub

 

 

fncCabeceraFormulario_Error:

 

 

    TSCs_ReportUnexpectedError "fncCabeceraFormularioEdicion", "Modul_Funciones_Globales", "Error al formatear la cabecera"

    

 

 

End Sub

 

 

 

 

 

Gracias a todos

 

 

SE PUEDE CERRAR EL HILO