General information
Category:
Forms & Form designer
Hi Dallas,
I think you need to check if the TABLEUPDATE() has failed and act on it.
Like :
lUpdate=TABLEUPDATE(…)
IF NOT lUpdate
=TABLEREVERT(…)
ENDIF
Yelena
>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.
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only