Estimados
Tengo este código y me da error "3146 en tiempo de ejecución, ODBC fallo la llamada" en la instrucción
rs.update
Uso Access 2007 y vba.
Código vb:
Ver originalSq = "Select * FROM Traspaso_XClasif;"
Set rs = db.OpenRecordset(Sq)
Do While Not rs.EOF
ID = rs!PRO_ID
Set db = CurrentDb
'If (rs!PRO_TT = "S") And (rs!PRO_MAQUINA = 2 Or rs!PRO_MAQUINA = 3) And (rs!PRO_TIPO = 1) Then
Sq2 = "Select SP_PRODUCCION_DR.* FROM SP_PRODUCCION_DR WHERE SP_PRODUCCION_DR.PRO_ID =" & ID & _
" AND (SP_PRODUCCION_DR.PRO_MAQUINA=2 OR SP_PRODUCCION_DR.PRO_MAQUINA=3) AND SP_PRODUCCION_DR.PRO_TIPO=1;"
Set rs2 = db.OpenRecordset(Sq2)
If Not rs2.EOF Then
rs2.Edit
rs2("PRO_TIPO") = 9
rs2("PRO_MAQUINA") = 1
rs2.Update
End If
rs2.Close
'End If
rs.MoveNext
Loop
rs.Close
db.Close
Revise los campos y están bien, la primera tabla "Traspaso_XClasif" es local, la segunda SP_PRODUCCION_DR esta en una base de datos SQL los accesos están bien.
Atte.
Lba