Access - Código para leer una tabla y anexar datos a otra.

Public Sub ActualizarTabla()

    Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset

    'Definimos sendas variables para referirnos a los

    'conjuntos de registros correspondientes a las dos tablas

    Set Rst1 = CurrentDb.OpenRecordset("Tabla1")

    Set Rst2 = CurrentDb.OpenRecordset("Tabla2")

    'Abrimos las dos tablas asignándo sus registros a las variables

    'siendo el primero el que corresponde a la tabla origen

    'y el segundo a la de destino.

    Do While Not Rst1.EOF

        'Para cada registro de la tabla origen

        If condiciones Then 'Si se dan las condiciones

            Rst2.AddNew     'Añadimos un registro en la

                            'tabla destino

            Rst2!Campo1 = Rst1!Campo1   'Asignamos valores a los campos

            ...

            ...

            Rst2.Update     'Grabamos el registro

        End If

        Rst1.MoveNext       'Pasamos al siguiente registro de la tabla origen

        DoEvents            'Por si acaso

    Loop

    Rst1.Close  'Cerramos los recordsets

    Rst2.Close

    Set Rst1 = Nothing  'Vaciamos las variables

    Set Rst2 = Nothing

End Sub

Public Sub ActualizarTabla()

    Dim Colab As DAO.Recordset, DetFolio As DAO.Recordset, ComColab As DAO.Recordset

    'Definimos sendas variables para referirnos a los

    'conjuntos de registros correspondientes a las tres tablas

    Set Colab = CurrentDb.OpenRecordset("Colaboradores")

    Set DetFolio = CurrentDb.OpenRecordset("Detalle Folio")

    Set ComColab = CurrentDb.OpenRecordset("Comision Colaboradores")

    'Abrimos las tres tablas asignándo sus registros a las variables

    'siendo el primero el que corresponde a la tabla de empleados, el segundo a la del registro de comisiones

    'y el tercero donde se guardaran los datos, segun cumpla con las condicionantes que siguen adelante.

    Do While Not Colab.EOF

        Do While Not DetFolio.EOF

           If DetFolio!Fotografo = [Colab!Nombre Colaborador] Then

           ComColab!F_Comision = DetFolio!DR_FComision

           Else

           ComColab!F_Comision = 0

           End If

           If DetFolio!DR_Vendedor = [Colab!Nombre Colaborador] Then

           ComColab!V_Comision = DetFolio!DR_VComision

           Else

           ComColab!V_Comision = 0

           End If

           If DetFolio!DR_Cajero = [Colab!Nombre Colaborador] Then

           ComColab!C_Comision = DetFolio!DR_CComision

           Else

           ComColab!C_Comision = 0

           End If

           ComColab.AddNew

           ComColab.Update

           Det.Folio.MoveNext

           DoEvents

        Loop

        DoEvents

     Loop

   Close Colab

   Close DetFolio

   Close ComColab

   Set Colab = Nothing

   Set DetFolio = Nothing

   Set ComColab = Nothing

End Sub