Visual Basic - Fallo de compilacion VBA

Life is soft - evento anual de software empresarial
 
Vista:

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
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