Adicionar registros a una tabla

derechas
27 de Marzo del 2003
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.

Amarillo
27 de Marzo del 2003
Tuve ese problemita tambien, y lo que hay que hacer es ir a Herramientas, References y una vez alli marcar el check box Microsoft DAO Object Library. Ese el asunto.Tu tienes Office 2000 probablemente. No es asi?