How do you keep an app going after trapping a multiuser error (1585). The error line points to Read Events, the next line is exit to desktop.

Dallas

Main.prg

MultiLocks on
Exclusive off
1 On error do errortrap (do case for error 1585 – tablerevert() otherwise for everything else)
2 On shutdown do Leaving (messagebox prompt for y/n)
3 Do menu (clear events in File | exit)
4 Do form Myform (init - cursorproptery(buffering, 3, one) 3 many
5 Read events
6 Return (Exit to desktop)

Myform
6 fields (‘one’ with navigation Top, Bottom, Previous, Next)
1 grid (‘many’ all columns ready for edit’)

1st user
Edit 1 field … edit field, click out of field, new value saved
Edit grid … edit any column, click out of column, new value saved
No errors – No problems

Mulit user –
Edit 1 field … edit field, click out of field, wait for 2nd user to change same field
Edit 1 field … 2nd user
1st user, click off field, new value saved
2nd user, click off field
Error message 1585 trapped and displayed by On error
Error line is line 5 Read events
Next line 6 (exit to desk top)

Question. How do you keep the app going after trapping the 1585 error.