Error 3022 en access

[franko1809]

Me gustaria ayudar pero me marea un poco y mas aun del modo en que esta, me has cansado la vista jeje, como eres nuevo no tienes activo las etiquetas asi que resubo tu codigo y a esperar que alguien te ayude.

Código:

'Productos_por_categoria
Set TPedidoSDest = BDCalzadoDes.OpenRecordset("PedidoS", dbOpenTable)
 
 TPedidoSDest.Index = "PrimaryKey"
 
 Set TPedidoSEnvioDest = BDCalzadoDes.OpenRecordset("PedidoSEnvio", dbOpenTable)
 
 SQL = "Select * from PedidoS WHERE PedidoS.idPedidoC = " & idPedidoCOrig
 
 Set DYPedidoSOrig = BDCalzadoOrig.OpenRecordset(SQL, dbOpenDynaset)
 
 While Not DYPedidoSOrig.EOF
       '********* SACAMOS EL IDMODELO
        idModelo = ObtenerIDModelo(Asignar(DYPedidoSOrig!idModelo, 0))
       idSurtido = ObtenerIDSurtido(Asignar(DYPedidoSOrig!idSurtido, 0))
       idFabrica = ObtenerFabrica(Asignar(DYPedidoSOrig!idFabrica, 0))
        idTarifa = ExportarTarifa(Asignar(DYPedidoSOrig!idTarifa, 0))
   idFabricacion = ExportarFabricacion(Asignar(DYPedidoSOrig!idFabricacion, 0))

    TPedidoSDest.AddNew 'ADDNEW
 
    idPedidoSDest = TPedidoSDest!IDPedidoS
    For j = 1 To DYPedidoSOrig.Fields.Count - 1
         
            Campo = DYPedidoSOrig.Fields(j).Name
            Select Case Campo
                   Case "IDPedidoC": TPedidoSDest.Fields(Campo) = idPedidoCDest
                   Case "IDModelo": TPedidoSDest.Fields(Campo) = idModelo
                   Case "IDSurtido": TPedidoSDest.Fields(Campo) = idSurtido
                   Case "IDFabrica": TPedidoSDest.Fields(Campo) = idFabrica
                   Case "IDTarifa": TPedidoSDest.Fields(Campo) = idTarifa
                   Case "IDFabricacion": TPedidoSDest.Fields(Campo) = idFabricacion
                   Case Else: TPedidoSDest.Fields(Campo) = DYPedidoSOrig.Fields(j)
            End Select
 
    Next j
    TPedidoSDest.Update 'UPDATE
    
 DYPedidoSOrig.MoveNext
 Wend

Código:

Como ya sabes por donde va tu error, te sugiero que crees un proyecto nuevo(a modo de ejemplo) con menos campos, menos case's y menos todo, asi sera menos cansado estar revisando tanto codigo y mas facil dar una solucion, es lo que yo hago como ultima opcion por que al soltar bastante codigo en un foro la mayoria se aburre y no responde