Cadrada
27 de Enero del 2005

Buenos d铆as, tengo el siguiente problema:

Estoy actualizando una tabla y para eso deseo utilizar el seek de una BD, pero me aparece un error cuando trato de hacer el proceso. El c贸digo es el siguiente:

Set rst1 = dbs.OpenRecordset("Select * From TbVtRealJDE Where Fecha Between " & wfji & " And " & wfjf, dbOpenDynaset)
Set rst2 = dbs.OpenRecordset("TbBaseDist", dbOpenTable)

rst1.MoveFirst
Do While Not rst1.EOF

With rst2
.Index = "PrimaryKey"
.Seek "=", rst2!IdCliente = rst1!IdCliente, rst2! IdProducto = rst1!IdProducto
If .NoMatch Then
.AddNew
!IdCliente = rst1!IdCliente
!IdProducto = rst1!IdProducto
!uvr = rst1!Unidades
!vvr = rst1!Valores
Else
.Edit
wu = (!uvr + rst1!Unidades)
wv = (!vvr + rst1!Valores)
!uvr = wu
!vvr = wv
End If
!Actualizado = Now()
.Update
End With
rst1.MoveNext
Loop
'
rst1.Close
rst2.Close

Previamente he definido los Recordset.

Los nombres de campos en el recordset 1 y 2 con iguales, esto me genera inconvenientes?

El error que me aparece en pantalla es

3219: Invalid Operation

Agradezco cualquier colaboraci贸n al respecto.

Cordial saludo