Access - Datos de una tabla a otra

 
Vista:

Datos de una tabla a otra

Publicado por yanira (140 intervenciones) el 03/11/2006 22:31:43
En esta funcion encuentro si existe o no una cedula, es decir, si la cedula esta en ambas tablas, hasta ahi todo bien, pero ademas de eso necesito que tome la cedula de la Tb1 y la guarde en la Tb3. Como hago eso?

Function RecuperaNoCargados() As Boolean

Dim Tb1 As Recordset, Tb2 As Recordset, Crit As String
Dim Tb3 As Recordset
Dim strSQL As String


Set Tb1 = CurrentDb.OpenRecordset("TNOVEDADEXCEL", dbOpenSnapshot) 'Sololectura
Set Tb2 = CurrentDb.OpenRecordset("Personal", dbOpenSnapshot) 'Sololectura
Set Tb3 = CurrentDb.OpenRecordset("ErroresCargueExcel", dbOpenDynaset)


Tb1.MoveFirst

Do Until Tb1.EOF
Crit = "NumDocumento=" & Tb1![DOCUMENTO DE IDENTIDAD DEL PACIENTE]
Tb2.FindFirst Crit
If Tb2.NoMatch Then


RecuperaNoCargados = True 'No Existe cedula

Else
RecuperaNoCargados = False

End If

Tb1.MoveNext

Loop
Tb1.Close
Tb2.Close

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

RE:Datos de una tabla a otra

Publicado por Salo (152 intervenciones) el 04/11/2006 14:52:29
Yanira vas bien y des hacer lo siguiente

Tb1.MoveFirst
Do Until Tb1.EOF
Crit = "NumDocumento=" & Tb1![DOCUMENTO DE IDENTIDAD DEL PACIENTE]
Tb2.FindFirst Crit
If Tb2.NoMatch Then 'No existe la cedula
Tb3.addnew
Tb3!Campo1= Tb1!Campo1
Tb3!Campo2= Tb2!Campo2
....
Tb3.Upade

RecuperaNoCargados = True 'No Existe cedula
Else
RecuperaNoCargados = False
End If
Tb1.MoveNext
Loop
Tb1.Close
Tb2.Close
Tb3.Close

Espero te funcione
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar