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


0