DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" WindowType = 1 Name = "Form1" ADD OBJECT command1 AS commandbutton WITH ; Top = 36, ; Left = 72, ; Height = 25, ; Width = 61, ; Caption = "Command1", ; Name = "Command1" PROCEDURE Load SET EXCLUSIVE OFF SET MULTILOCKS ON ENDPROC PROCEDURE command1.Click USE Table1 =CURSORSETPROP("Buffering",5) APPEND BLANK REPLACE Table1.anyfield WITH "Hello" BEGIN TRANSACTION =TABLEUPDATE(.T.,.T.) WAIT WINDOW "Holding Transaction Open" END TRANSACTION ENDPROC ENDDEFINEDo you really need to perform so many operations within the transaction ?