Grabar datos en tabla vinculada
Publicado por YOQUESE (6 intervenciones) el 08/12/2007 16:15:25
En mensajes anteriores me disteis la solucion a un problema de BDD en la que me indicasteis quew utilizara tablas vinculadas de otra BDD.
Gracias a ese consejo he conseguido parate de lo que quería, pero ahora al intentar grabar en una tabla vinculada utilizando parte del siguiente codigo:
***********************************************************************************
Dim Ent As Recordset
Dim db As Database
Dim Sal As Recordset
Dim Fecha As Date
Dim NUMERO_DE_FACTURA, dni As String
Set db = CurrentDb
'Set Ent = db.OpenRecordset("HOJA EXCEL")
Set Sal = db.OpenRecordset("T_MOV_CREAL1")
Sal.Index = "PrimaryKey" 'Define el índice activo.
'formulario solicitud de notificacion de alta de personal
'Ent.MoveFirst
'Ent.MoveLast
'Ent.MoveFirst
'GRABADOS = 0
'Do Until Ent.EOF
'formamos la clave
dni = Forms![formulario solicitud de notificacion de alta de personal]![Texto44]
Sal.Seek "=", dni
If Sal.NoMatch Then
'grabo registro nuevo
'en caso contrario actualizo el registro
***********************************************************************************************
cuando la tabla es vinculada, no puedo utilizar el índice,
Sal.Index = "PrimaryKey" 'Define el índice activo.
¿como puedo grabar datos en una tabla si no puedo definir el índice?
No quisiera leerme todo el fichero de salida para ver si existe el registro o n o.
Gracias a ese consejo he conseguido parate de lo que quería, pero ahora al intentar grabar en una tabla vinculada utilizando parte del siguiente codigo:
***********************************************************************************
Dim Ent As Recordset
Dim db As Database
Dim Sal As Recordset
Dim Fecha As Date
Dim NUMERO_DE_FACTURA, dni As String
Set db = CurrentDb
'Set Ent = db.OpenRecordset("HOJA EXCEL")
Set Sal = db.OpenRecordset("T_MOV_CREAL1")
Sal.Index = "PrimaryKey" 'Define el índice activo.
'formulario solicitud de notificacion de alta de personal
'Ent.MoveFirst
'Ent.MoveLast
'Ent.MoveFirst
'GRABADOS = 0
'Do Until Ent.EOF
'formamos la clave
dni = Forms![formulario solicitud de notificacion de alta de personal]![Texto44]
Sal.Seek "=", dni
If Sal.NoMatch Then
'grabo registro nuevo
'en caso contrario actualizo el registro
***********************************************************************************************
cuando la tabla es vinculada, no puedo utilizar el índice,
Sal.Index = "PrimaryKey" 'Define el índice activo.
¿como puedo grabar datos en una tabla si no puedo definir el índice?
No quisiera leerme todo el fichero de salida para ver si existe el registro o n o.
Valora esta pregunta


0