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.
