SoloCodigo

Este es un ejemplo de codigo que se encuentra en la base de datos de pedidos, la cual se encuentra entre los ejemplos que trae Ms Access.

El problema es que funciona bien en la bas de datos que ya esta creada, pero si intento copiar ese codigo a otra base de datos no funciona. Me explico no quiero copiar todo el codigo exactamente igual, solo quiero declarar variables de tipo datablase y table.

Este codigo al probarlo en mi aplicación me saca un mensaje que dice " Imposible encotrar el proyecto o la biblioteca " . No entiendo porque si es el mismo equipo y el mismo Access 97 funciona distinto un programa del otro.


Private Function ActualizarVínculos(cadNombreArchivo As String) As Boolean
' Actualizar los vínculos a la base de datos suministrada. Devolver True si no se produce ningún error.

    Dim bd As Database
    Dim entCuenta As Integer
    Dim tdf As TableDef

    ' Pasar por todas las tablas de la base de datos.
    Set bd = CurrentDb
    For entCuenta = 0 To bd.TableDefs.Count - 1
        Set tdf = bd.TableDefs(entCuenta)

        ' Si la tabla tiene una cadena de conexión, es una tabla vinculada.
        If Len(tdf.Connect) > 0 Then
            tdf.Connect = ";DATABASE=" & cadNombreArchivo
            Err = 0
            On Error Resume Next
            tdf.RefreshLink         ' Volver a vincular la tabla.
            If Err <> 0 Then
                ActualizarVínculos = False
                Exit Function
            End If
        End If
    Next entCuenta

    ActualizarVínculos = True       ' Vinculación terminada.
   
End Function


Lo que yo tengo es una aplicación en donde hago servico a computadores,  imprimo un reporte del ultimo servicio, y guardo en una tabla historial lo que se le hace a cada equipo. El problema esta en guardar la historia, pues yo tengo un formulario en donde recibo el problema del equipo y su solucion. Despues de recibir estos campos, lo quiero guardar en una tabla de historias junto con el numero serial del equipo y la fecha actual, siendo estos ultimos la llave de la tabla historial.

En un manual de Ms Access 2.0 encontre el siguiente ejemplo para adicionar nuevos registros.

Dim DB as database, Tt as table
Set DB = CurrenteDB()
Set T = DB.Opentable("Shippers")
T.AddNew
T![Company Name] = "Global Parcel Service"
T.Update
T.Close

Lo que yo entiendo es que cambiando el nombre de la tabla y los campos, debo poder tomar la informacion que esta escrita en campos de texto de un formulario y salvarla en la tabla. Sin embargo me sigue marcando siempre el mismo error  "Imposible encotrar el proyecto o la biblioteca", sombreando la palabra database. .

Yo creo que lo que necesito es adicionar uno de esos controles ActiveX a la base de datos pero no tengo idea de cual pueda ser.