Access - no siempre graba registro

   
Vista:

no siempre graba registro

Publicado por vz (1 intervención) el 25/09/2008 08:06:39
buenos días,
Tengo problemas con una parte del código en la que graba un registro en una tabla SQL.
En algunos equipos, con el mismo código, graba y en otros no.
Y en los equipos en los que no llega a grabar el registro, lo hace bien con otras tablas.
No sé si me he explicado bien.
Os adjunto el código, aunque no sé si puede ser un problema del SQL, de la conexión o de la versión de SO????

Private Sub GenerarAlbaranLineaDetallRAN(OBJADO As clsADO, rcs As ADOR.Recordset, rcsLinea As ADOR.Recordset)
Dim rcsRan As ADOR.Recordset
Dim rcsPedido As ADOR.Recordset
Dim sql As String

sql = "SELECT * FROM dbo.tbLogisticaCabecera INNER JOIN"
sql = sql & " dbo.TbLogisticaLinea ON dbo.tbLogisticaCabecera.IdLogistica = dbo.TbLogisticaLinea.IdLogistica"
sql = sql & " where dbo.tbLogisticaCabecera.IdArticulo = '" & rcs.Fields("IdArticulo") & "'"
sql = sql & " and dbo.TbLogisticaLinea.RutaTransporte = '" & rcs.Fields("RutaTransporte") & "'"

Set rcsPedido = OBJADO.CrearRecordset("tbPedidoVentaRANLinea", "IdArticulo = '" & rcs.Fields("IdArticulo") & "' and PedidoCliente = '" & rcs.Fields("rutatransporte") & "'")
If Not rcsPedido Is Nothing Then
If rcsPedido.RecordCount > 0 Then
While Not rcsPedido.EOF

Set rcsRan = OBJADO.CrearRecordsetVacio("TbAlbaranVentaLineaDetalleRAN")
rcsRan.AddNew
rcsRan.Fields("IdLineaALbaran") = rcsLinea.Fields("IdLineaAlbaran")
rcsRan.Fields("IdALbaran") = rcsLinea.Fields("IdAlbaran")
rcsRan.Fields("RanNumber") = Nz(rcsPedido.Fields("RanNumber"), "")
rcsRan.Fields("UltimoRanNumber") = rcsPedido.Fields("UltimoRanNumber")
rcsRan.Fields("Cantidad") = rcsPedido.Fields("QPedida")
rcsRan.Fields("RutaTransporte") = rcs.Fields("RutaTransporte")
rcsRan.Fields("FechaInicioRecogida") = rcsPedido.Fields("FechaInicioRecogida")
rcsRan.Fields("HoraInicioRecogida") = rcsPedido.Fields("HoraInicioRecogida")
rcsRan.Fields("FechaFinRecogida") = rcsPedido.Fields("FechaFinRecogida")
rcsRan.Fields("HoraFinRecogida") = rcsPedido.Fields("HoraFinRecogida")
rcsRan.Fields("FechaMinLLegada") = rcsPedido.Fields("FechaMinLLegada")
rcsRan.Fields("HoraMinLLegada") = rcsPedido.Fields("HoraMinLLegada")
rcsRan.Fields("FechaMaxLLegada") = rcsPedido.Fields("FechaMaxLLegada")
rcsRan.Fields("HoraMaxLLegada") = rcsPedido.Fields("HoraMaxLLegada")
rcsRan.Update
rcsPedido.MoveNext

OBJADO.GrabarRecordset rcsRan

Wend
End If
End If

Set rcsPedido = Nothing
Set rcsRan = Nothing
End Sub


Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder