juntar registros en uno solo

[135...@gmail.com]

Hola Juan:

Usando un codigo tuyo que he visto, lo he modificado asi:

rivate Sub Form_Open(Cancel As Integer)

Dim mirs As DAO.Recordset

Dim tmprs As DAO.Recordset

Dim c As String

Dim v As String

Dim p As String

Set mirs = CurrentDb.OpenRecordset("Tabla2")

Set tmprs = CurrentDb.OpenRecordset("3")

mirs.MoveFirst

c = mirs.codpla

Do While Not mirs.EOF

    If c = mirs.codpla Then 'el mismo cliente

        v = v & mirs.ingr

        p = p & mirs.cod & "/"

        mirs.MoveNext 'vamos al siguiente registro

    Else 'Cargamos el registro temporal y actualizamos el valor Cliente

        tmprs.AddNew 'agregamos un registro nuevo a la temporal

        tmprs.codpla = c

        tmprs.cod = p

        tmprs.ingr = v

        tmprs.Update

        c = mirs.codpla

    End If

Loop

End Sub

pero me da error en c = mirs.codpla. Dice que no se encontro el metodo o el miembro

¿puedes ayudarme?

Gracias y saludos,

Felix