| **Navigation:**  [[abc library reference.htm|ABC Library Reference]] > FormVCRClass > FormVCRClass Properties >====== ViewPosition (store the current record position) {{c6h0009.jpg|C6H0009.jpg}} ====== | [[toolbaritem formvcr toolbartarget object vcr.htm|{{btn_prev_n.gif|Previous page}}]][[abc library reference.htm|{{btn_home_n.gif|Return to chapter overview}}]][[formvcrclass methods.htm|{{btn_next_n.gif|Next page}}]] |
|  ||

|  | **ViewPosition** | **STRING(1024)** |

{{blk2blue.jpg|blk2blue.jpg}}

The **ViewPosition **property stores the unique position of the current record.

**Implementation:**

Position returns the POSITION of the primary key if there is one; otherwise it returns the file POSITION. See the //Language Reference// for more information on [[position  return record sequence position .htm|POSITION]].

**Example:**

**FormVCRClass.TakeEvent         PROCEDURE**

**VSP BYTE,AUTO**

** CODE**

**    SELF.Window.Update()**

**    IF EVENT()=EVENT:Accepted THEN**

**       CASE ACCEPTED()**

**       OF SELF.Window.OkControl**

**       OROF SELF.Window.SaveControl**

**           SELF.****ViewPosition****=POSITION(SELF.View)**

**           SELF.SaveRequired = True**

**           IF SELF.OnFirstRecord THEN**

**              SELF.MoveDirection = Event:ScrollDown**

**           END**

**       ELSE**

**          IF NOT 0{PROP:AcceptAll} THEN**

**             SELF.TakeAcceptedLocator()**

**          END**

**       END**