GOTO SELECTED RECORD

version 2004 (Modified)

GOTO SELECTED RECORD ({table; }record)

GOTO SELECTED RECORD moves to the specified record in the current selection of table and makes that record the current record. The current selection does not change. The record parameter is not the same as the number returned by Record number; it represents the record's position in the current selection. The record's position depends on how the selection is made and whether or not the selection is sorted.

If there are no records in the current selection, or the number is not in the selection, then GOTO SELECTED RECORD does nothing.

If you pass 0 in position, there will no longer be a current record in table. When the "single" selection mode is chosen, this allows you to deselect all the records in a list, in particular in the case of included subforms.

The following example loads data from the field [People]Last Name into the atNames array. An array of long integers, called alRecNum, is filled with numbers that will represent the selected record numbers. Both arrays are then sorted:

      ` Make any selection for the [People] table here
      ` ...
      ` Get the names
   SELECTION TO ARRAY ([People]Last Name;atNames)
      ` Create an array for the selected record numbers
   $vlNbRecords:=Size of array (atNames)
   ARRAY LONGINT (alRecNum;$vlNbRecords) 
   For ($vlRecord; 1; $vlNbRecords) 
      alRecNum{$vlRecord}:=$vlRecord 
   End for 
      ` Sort the arrays in alphabetical order
   SORT ARRAY (atNames; alRecNum; >)

If the atNames array is displayed in a scrollable area, the user can click one of the items. Since the sorting of the two arrays is synchronized, any element in alRecNum provides the selected record number for the record whose name is stored in the corresponding element in atNames.

The following object method for atNames selects the correct record in the [People] selection, according to the name chosen in the scrollable area:

   Case of
      : (Form event=On Clicked)
         If (atNames#0)
            GOTO SELECTED RECORD (alRecNum{atNames})
         End if
   End case

Selected record number.