** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - Crear un módulo con código
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCrear un módulo con código

 Responder Responder
Autor
Mensaje
buho Ver desplegable
Administrador
Administrador
Avatar
Abuelo FELIZ, nieto desesperado

Unido: 10/Abril/2004
Localización: Valladolid
Estado: Sin conexión
Puntos: 11321
Enlace directo a este mensaje Tema: Crear un módulo con código
    Enviado: 10/Agosto/2013 a las 08:23
Otra sencilla y que puede servir como punto de partida de como crear un módulo con código, desde código (Y valga la rebuznancia)

Sub CreaModuloBas()
    Dim StrCodigo As String
    Dim MdlModulo As Object
   
    StrCodigo = "Sub MiMensaje()" & vbCrLf
    StrCodigo = StrCodigo & vbTab & "MsgBox ""Hola Mundo""" & vbCrLf
    StrCodigo = StrCodigo & "End Sub"
    Set MdlModulo = Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_ClassModule) 'vbext_ct_StdModule
    MdlModulo.Name = "NombreModulo"
    MdlModulo.CodeModule.InsertLines MdlModulo.CodeModule.CountOfLines + 1, StrCodigo
    Set MdlModulo = Nothing
    DoCmd.Close acModule, "NombreModulo", acSaveYes
End Sub
Por fin he hecho algo bueno, ser abuelo ¡y porque no lo he hecho yo!
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable