lcTeiBewegID = "EIN_0S911KT8F" LOCAL loDS1 As Session, ; loDS2 As Session, ; laError[1] loDS1 = CREATEOBJECT("Session") SET DATASESSION TO loDS1.DataSessionID OPEN DATABASE ERP_VIEWS VP_AusTeiBewegID = lcTeiBewegID SET EXCLUSIVE OFF USE "lv_teiausbaubybeweg" IN 0 SHARED CURSORSETPROP("Buffering", 3) loDS2 = CREATEOBJECT("Session") SET DATASESSION TO loDS2.DataSessionID SET EXCLUSIVE OFF OPEN DATABASE ERP_VIEWS VP_AusTeiBewegID = lcTeiBewegID USE lv_teiausbaubybeweg IN 0 SHARED CURSORSETPROP("Buffering", 3) *-- Reproduce 500 Times FOR lnLv = 1 TO 500 *-- DS 2 SET DATASESSION TO loDS2.DataSessionID IF REQUERY("lv_teiausbaubybeweg") != 1 ASSERT .F. MESSAGE "Requery Error" EXIT ENDIF *-- Do any replace REPLACE lv_teiausbaubybeweg.mschtxt_d WITH SYS(2015) REPLACE lv_teiausbaubybeweg.mschtxt_e WITH SYS(2015) *-- Tableupdate IF !TABLEUPDATE(.T., .F., "lv_teiausbaubybeweg") AERROR(laError) ASSERT .F. MESSAGE "Update failed with " + TRANSFORM(laError[1]) + ": " + laError[2] ENDIF *-- And DS 1 SET DATASESSION TO loDS1.DataSessionID IF REQUERY("lv_teiausbaubybeweg") != 1 ASSERT .F. MESSAGE "Requery Error" EXIT ENDIF *-- Do any replace REPLACE lv_teiausbaubybeweg.mschtxt_d WITH SYS(2015) *-- Tableupdate IF !TABLEUPDATE(.T., .F., "lv_teiausbaubybeweg") AERROR(laError) ASSERT .F. MESSAGE "Update failed with " + TRANSFORM(laError[1]) + ": " + laError[2] ENDIF ENDFOR SET DATASESSION TO loDS1.DataSessionID CLOSE DATABASES ALL SET DATASESSION TO loDS2.DataSessionID CLOSE DATABASES ALL *-- I never get an error, trying to reproduce this MESSAGEBOX("Everything went OK!") CLOSE ALL