Fallo de compilacion VBA
Publicado por KoBe (1 intervención) el 25/05/2007 10:08:54
Buenas a tod@s. Tengo un problema con una aplicacion de Access (Factorywin, por si alguien la conoce). Al hacer unos cambios en un informe del programa, creo un .mde porque el programa usa este tipo de bases de datos. Al sustituir el .mde antiguo por el nuevo y arrancar la aplicacion, me dice que MSACCESS.exe ha generado un error y se cerrará, etc etc. Si abro la base de datos "fuente" del programa, veo que me lanza este error (que no entiendo porqué):
Error de compilacion:
La biblioteca de tipos o el asistente solicitado no es un proyecto de VBA.
Private Sub Form_Open(Cancel As Integer)
Dim NmbEmpresa As String
Dim CodEmpresa As String
NmbEmpresa = DLookup("NmbEmpresa", "EMPRESA ADJUNTA")
accesofw NmbModulo, NmbEmpresa
DoCmd.Maximize
CodEmpresa = DLookup("codigo", "EMPRESA ADJUNTA")
empresa = CodEmpresa
Nmb_empresa = NmbEmpresa
sesion = "Sesión iniciada por el usuario " & CurrentUser() & ", en fecha " & Now
SeguridadModulosCliente
If EsSuperUsuario(CurrentUser()) Then 'Si es SUPERUSUARIO de FactoryWin
ActivarMenu "menu general", "Seguridad"
ActivarComando "menu general", "Parámetros", 1
ActivarComando "menu general", "Opciones", 3
If CurrentUser() = SuperUsuario() Then ' Si es PEGASUS
ActivarComando "menu general", "Seguridad", 3
Else
DesActivarComando "menu general", "Seguridad", 3
End If
Else
DesActivarMenu "menu general", "Seguridad"
DesActivarComando "menu general", "Parámetros", 1
DesActivarComando "menu general", "Opciones", 3
End If
Dim Bd As Database, DatosEmpresa As Recordset
Set Bd = CurrentDb()
Set DatosEmpresa = Bd.OpenRecordset("DIRECTORIOS FW")
DirectorioProgramas = DatosEmpresa![unidad] & ":\" & DatosEmpresa![Directorio Fw Cliente] & "\" & DatosEmpresa![Directorio Empresa] & "\" & DatosEmpresa![Directorio Programas]
InicialesProgramas = DatosEmpresa![Siglas Programas]
BaseDatosSistema = SysCmd(acSysCmdGetWorkgroupFile)
DatosEmpresa.Close
Set DatosEmpresa = Nothing
Me.KeyPreview = True
End Sub
En el código, lo que está en negrita y subrayado es el fallo. Entiendo que es que falta ese modulo o parte del programa, pero no estoy seguro. Si se os ocurre algo...
Salu2 y gracias
Error de compilacion:
La biblioteca de tipos o el asistente solicitado no es un proyecto de VBA.
Private Sub Form_Open(Cancel As Integer)
Dim NmbEmpresa As String
Dim CodEmpresa As String
NmbEmpresa = DLookup("NmbEmpresa", "EMPRESA ADJUNTA")
accesofw NmbModulo, NmbEmpresa
DoCmd.Maximize
CodEmpresa = DLookup("codigo", "EMPRESA ADJUNTA")
empresa = CodEmpresa
Nmb_empresa = NmbEmpresa
sesion = "Sesión iniciada por el usuario " & CurrentUser() & ", en fecha " & Now
SeguridadModulosCliente
If EsSuperUsuario(CurrentUser()) Then 'Si es SUPERUSUARIO de FactoryWin
ActivarMenu "menu general", "Seguridad"
ActivarComando "menu general", "Parámetros", 1
ActivarComando "menu general", "Opciones", 3
If CurrentUser() = SuperUsuario() Then ' Si es PEGASUS
ActivarComando "menu general", "Seguridad", 3
Else
DesActivarComando "menu general", "Seguridad", 3
End If
Else
DesActivarMenu "menu general", "Seguridad"
DesActivarComando "menu general", "Parámetros", 1
DesActivarComando "menu general", "Opciones", 3
End If
Dim Bd As Database, DatosEmpresa As Recordset
Set Bd = CurrentDb()
Set DatosEmpresa = Bd.OpenRecordset("DIRECTORIOS FW")
DirectorioProgramas = DatosEmpresa![unidad] & ":\" & DatosEmpresa![Directorio Fw Cliente] & "\" & DatosEmpresa![Directorio Empresa] & "\" & DatosEmpresa![Directorio Programas]
InicialesProgramas = DatosEmpresa![Siglas Programas]
BaseDatosSistema = SysCmd(acSysCmdGetWorkgroupFile)
DatosEmpresa.Close
Set DatosEmpresa = Nothing
Me.KeyPreview = True
End Sub
En el código, lo que está en negrita y subrayado es el fallo. Entiendo que es que falta ese modulo o parte del programa, pero no estoy seguro. Si se os ocurre algo...
Salu2 y gracias
Valora esta pregunta


0