Contrasting TABLE.OPEN .CURRENT and .GET Functions
Parent-child relationship operator
TABLE.ACTUAL_FILENAME_GET Method
TABLE.ADD_BLANK_RECORDS Method
TABLE.ADD_FIELDS Method
TABLE.APPEND Method
TABLE.BATCH_BEGIN Method
TABLE.BATCH_END Method
TABLE.BOF Method
TABLE.CHANGE_BEGIN Method
TABLE.CHANGE_END Method
TABLE.CHILD_GET Method
TABLE.CLOSE Method
TABLE.COMPACT Method
TABLE.COPY Method
TABLE.COPY_RECORD_TO Method
TABLE.COPY_RECORDS_TO Method
TABLE.CREATE_BEGIN Method
TABLE.CREATE_CLONE Method
TABLE.CREATE_END
TABLE.CREATE_SHADOW Method
TABLE.CROSSTAB Method
TABLE.CURRENT Method
TABLE.DECRYPT Method
TABLE.DELETE Method
TABLE.DELETE_DUPS Method
TABLE.DELETE_FIELDS Method
TABLE.DELETE_RANGE Method
TABLE.DUPLICATE Method
TABLE.ENCRYPT Method
TABLE.ENCRYPTED Method
TABLE.ENUM_OPEN Method
TABLE.ENUM_SESSION_OPEN Method
TABLE.ENUM_SYNTAX Method
TABLE.EOF Method
TABLE.ERASE Method
TABLE.EVAL Method
TABLE.EVAL_VALID Method
TABLE.EXPORT Method
TABLE.EXTERNAL_CALCS_GET Method
TABLE.EXTERNAL_FIELD_INFO_GET Method
TABLE.EXTERNAL_FIELD_NAME_GET Method
TABLE.EXTERNAL_INDEX_DEF_ENUM Method
TABLE.EXTERNAL_INDEX_DEF_FROM_NAME_GET Method
TABLE.EXTERNAL_INDEX_NAME_GET Method
TABLE.EXTERNAL_RECORD_CONTENT_FROM_KEY_GET Method
TABLE.EXTERNAL_RECORD_CONTENT_GET Method
TABLE.External_Suggest Method
TABLE.EXTERNAL_VARIABLES_GET Method
TABLE.FETCH_EOF Method
TABLE.FETCH_FIND Method
TABLE.FETCH_FIRST Method
TABLE.FETCH_GOTO Method
TABLE.FETCH_LAST Method
TABLE.FETCH_LOC_NEXT Method
TABLE.FETCH_LOC_PREV Method
TABLE.FETCH_NEXT Method
TABLE.FETCH_PREV Method
TABLE.FIELD_ADD Method
TABLE.FIELD_BLANK Method
TABLE.FIELD_GET Method
TABLE.FIELD_INFO_DUMP Method
TABLE.FIELD_NAME_GET Method
TABLE.FIELD_SPACE_USAGE Method
TABLE.FIELD_STATISTICS Method
TABLE.FIELDNAME_CHANGE Method
TABLE.FIELDS_GET Method
TABLE.FILE_MODE_GET Method
TABLE.FILENAME_GET Method
TABLE.GET Method
TABLE.Get_Cursor Method
TABLE.GET_GROUP_NAME Method
TABLE.GET_INDEX_EXTENSION Method
TABLE.GET_MEMO_EXTENSION Method
TABLE.GET_SOURCE_TYPE Method
TABLE.GET_SYNTAX Method
TABLE.HANDLE Method
TABLE.HANDLE_SET Method
TABLE.HANDLES_IN_USE Method
TABLE.IMPORT Method
TABLE.IMPORT_ASCII_TABLE Method
TABLE.IN_USE Method
TABLE.INDEX_ADD Method
TABLE.INDEX_CREATE_BEGIN Method
TABLE.INDEX_CREATE_END Method
TABLE.INDEX_GET Method
TABLE.INDEX_NAME_GET Method
TABLE.INDEX_OPEN Method
TABLE.INDEX_PRIMARY_GET Method
TABLE.INDEX_PRIMARY_PUT Method
TABLE.INDEX_RECORD_GET Method
TABLE.INDEX_TAG_ADD Method
TABLE.INTERSECT Method
TABLE.IS_DELETED Method
TABLE.IS_MARKED Method
TABLE.IS_RECORD_LOCKED Method
TABLE.IS_UNMARKED Method
TABLE.IS_VALID Method
TABLE.ISOPEN Method
TABLE.JOIN Method
TABLE.LINK_EXPR_GET Method
TABLE.LINK_FILTER_EXPR_GET Method
TABLE.LINK_INDEX_FLAGS_GET Method
TABLE.LOGICALRECORD_GET Method
TABLE.LOGICALRECORD_SET Method
TABLE.MARK Method
TABLE.MARK_DUPS Method
TABLE.MARK_DUPS2 Method
TABLE.MARK_RANGE Method
TABLE.MEMO_CHECK Method
TABLE.MERGE_DATA Method
TABLE.MODE_GET Method
TABLE.MOVE Method
TABLE.MOVE_RECORD_TO Method
TABLE.MOVE_RECORDS_TO Method
TABLE.NAME_GET Method
TABLE.NAME_NORMALIZE Method
TABLE.OPEN Method
TABLE.OPEN_SESSION Method
TABLE.OPENMAP Method
TABLE.ORDER Method
TABLE.PACK Method
TABLE.PARENT_GET Method
TABLE.PARENT_LINK_EXPR_GET Method
TABLE.PERSIST Method
TABLE.POPULATE_FROM_STRING Method
TABLE.POPULATE_GRID Method
TABLE.POST Method
TABLE.PREVIOUS_RECORD Method
TABLE.QUERIES_REOPEN Method
TABLE.QUERY_CREATE Method
TABLE.QUERY_DETACH Method
TABLE.QUERY_DETACH_ALL Method
TABLE.QUERY_FROM_RANGE Method
TABLE.QUERY_PRIMARY_PUT Method
TABLE.RANGE_ADD Method
TABLE.RANGE_DROP Method
TABLE.RECALC_CALCFIELDS Method
TABLE.RECNO Method
TABLE.RECORD_CLONE Method
TABLE.RECORD_CONTENT_GET Method
TABLE.RECORD_DATA_GET Method
TABLE.RECORD_DATA_SET Method
TABLE.RECORD_TO_VARS Method
TABLE.RECORDS_DELETED Method
TABLE.RECORDS_GET Method
TABLE.REFERENCE_EXPRESSION_GET Method
TABLE.REFRESH Method
TABLE.RELATED_TABLES_GET Method
TABLE.RELATION_ADD Method
TABLE.RELATION_CHANGE Method
TABLE.RELATION_DROP Method
TABLE.RELATION_GET Method
TABLE.RELATION_TAG Method
TABLE.REMVE_RECS_IN_LIST Method
TABLE.RENAME Method
TABLE.RESET Method
TABLE.RULES_GET Method
TABLE.SEND Method
TABLE.ServerSide_Records_Get Method
TABLE.SESSIONHANDLE Method
TABLE.SET_CREATE Method
Table.SQL_Open Method
Table.SQL_Reset Method
TABLE.SUBTRACT Method
TABLE.Suggest Method
TABLE.SUMMARIZE Method
TABLE.TEMPORARY_CLOSE Method
TABLE.TEMPORARY_OPEN Method
TABLE.to_sql_expression Method
TABLE.to_sql_filter Method
TABLE.to_sql_order Method
TABLE.UNDELETE Method
TABLE.UNMARK Method
TABLE.UNMARK_DUPS Method
TABLE.UNMARK_RANGE Method
TABLE.UPDATE Method
TABLE.UPDATE_PRODUCTION_INDEX Method
TABLE.XML_EXPORT Method
TABLE.ZAP Method
TABLE.ZIP Method
TBL.ENTER_BEGIN Method
TBL.ENTER_END Method
TBL.NAME_REAL_GET Method
TBL.NEED_REFRESH Method

table.IS_RECORD_LOCKED Function

Syntax

Result_Flag as L = Is_Record_Locked()

Description

return TRUE if the record is locked.

Discussion

The <TBL>.IS_RECORD_LOCKED() method returns .T. (TRUE) if the current record is locked (i.e. another user or session has the record in change mode). Using the <TBL>.IS_RECORD_LOCKED() method is easy and fast, in large part because Alpha Anywhere no longer needs to make several attempts to get a lock on a record before reporting an error.

This script checks if the current record is locked before making a change.

dim tbl as P
tbl = table.current()
status = tbl.is_record_locked()
if (.not. status) then
    tbl.change_begin()
    tbl.field1 = var1
    tbl.change_end(.T.)
else
    ui_msg_box("Error", "Record locked by another user")
end if