Muchas gracias de antemano como siempre he colocado el código de esta manera:
Dim rstOrigen As DAO.Recordset
Dim rstDestino As DAO.Recordset
Set rstOrigen = CurrentDb.OpenRecordset("CCuotaSocioActual")
Set rstDestino = CurrentDb.OpenRecordset("TPagoCuota")
Do Until rstOrigen.EOF
rstDestino.AddNew
rstDestino("Socio") = rstOrigen("Socio")
rstDestino("Nombre") = rstOrigen("Nombre")
rstDestino("Tipo") = rstOrigen("Tipo")
rstDestino("Descuento") = rstOrigen("Descuento")
rstDestino("Importe") = rstOrigen("Importe")
rstDestino("Mensualidad") = rstOrigen("Mensualidad")
rstDestino.Update
rstOrigen.MoveNext
Loop
rstDestino.Close
rstOrigen.Close
Set rstOrigen = Nothing
Set rstDestino = Nothing
Me da un error en tiempo de ejecución '3265' no se encontró el elemento en esta
Colección y me señala la línea
rstDestino("Mensualidad") = rstOrigen("Mensualidad")
No se como tengo que ponerle en el recordset ya que en la tabla de destino el campo se llama así pero en el formulario es un texbox independiente (llamado Mensualidad) ya que es un campo que no esta en la consulta.
Si la comento me funciona perfectamente.