Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » crear form con objetos y código a través de código

Access - crear form con objetos y código a través de código

Volver
Nuevo Tema
<<>>
 
Vista:

crear form con objetos y código a través de código

Publicado por george (1 intervención) el 25/04/2006 18:05:54
Hola a tod@s :

Necesito saber si se puede generar un nuevo form con objetos y código a través de código. Quiero crear un form a través DE CÓDIGO. Gratchie !!! ; )

Un saludo,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Crear un nuevo formulario con objetos y código mediante VBA

Publicado por Alejandro (4142 intervenciones) el 18/07/2023 17:27:06
Sí, George, es posible generar un nuevo formulario en Access con objetos y código utilizando VBA (Visual Basic for Applications). Aquí tienes un ejemplo de cómo crear un nuevo formulario de esta manera:

1. Abre el Editor de Visual Basic en Access presionando Alt + F11.
2. En el menú, ve a "Insertar" y selecciona "Módulo" para crear un nuevo módulo.
3. En el nuevo módulo, coloca el siguiente código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
 
Sub CrearNuevoFormulario()
    Dim frm As Form
    Dim ctl As Control
 
    ' Crea un nuevo formulario
    Set frm = CreateForm
 
    ' Establece las propiedades del formulario
    With frm
        .Caption = "Nuevo Formulario"
        .Width = 400
        .Height = 300
    End With
 
    ' Agrega un control de etiqueta al formulario
    Set ctl = CreateControl(frm.Name, acLabel, , , 100, 20)
    With ctl
        .Caption = "Etiqueta:"
        .Left = 10
        .Top = 10
    End With
 
    ' Agrega un control de cuadro de texto al formulario
    Set ctl = CreateControl(frm.Name, acTextBox, , , 100, 20)
    With ctl
        .Left = 120
        .Top = 10
    End With
 
    ' Agrega código al evento Load del formulario
    With frm.Module
        .InsertLines 2, "Private Sub Form_Load()" & vbCrLf & _
                        "    Me.Textbox1.Value = ""Hola mundo""" & vbCrLf & _
                        "End Sub"
    End With
 
    ' Abre el formulario
    DoCmd.OpenForm frm.Name, acDesign
 
    ' Libera los objetos
    Set ctl = Nothing
    Set frm = Nothing
End Sub

4. Para ejecutar el código y crear el nuevo formulario, simplemente llama al procedimiento `CrearNuevoFormulario()` desde un botón o cualquier otro evento de tu formulario actual.

Este código crea un nuevo formulario, establece sus propiedades, agrega un control de etiqueta y un control de cuadro de texto, y añade código al evento Load del formulario. El formulario se abre en modo de diseño para que puedas realizar modificaciones adicionales si es necesario.

Puedes ajustar el código según tus necesidades, agregando más controles, estableciendo propiedades adicionales y añadiendo más código a otros eventos del formulario.

Recuerda que este ejemplo se basa en Access y VBA. Si estás utilizando una versión diferente de Access o un lenguaje de programación distinto, es posible que necesites adaptar el código en consecuencia.

¡Espero que esto te ayude a crear nuevos formularios en Access mediante código! ¡Buena suerte!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar