ViewRecordNavigator.LastRecord Property

'Declare a BarTender application variable

Dim btApp As BarTender.Application

'Declare a BarTender document variable

Dim btFormat As BarTender.Format

'Declare a BarTender record navigator variable

Dim btNavigator As BarTender.ViewRecordNavigator

'Create a new instance of BarTender

btApp = New BarTender.Application

'Set the BarTender application visible

btApp.Visible = True

'Open a BarTender document

btFormat = btApp.Formats.Open("c:\Format1.btw", False, "")

'Set the record navigator variable

btNavigator = btFormat.ViewRecordNavigator

'Enable the record navigator

btNavigator.Enabled = True

'Display the number of records in the database

MessageBox.Show("There are " + btNavigator.LastRecord.ToString() + " records.")

'End the BarTender process

btApp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges)

// Declare a BarTender application variable

BarTender.Application btApp;

// Declare a BarTender document variable

BarTender.Format btFormat;

// Declare a BarTender record navigator variable

BarTender.ViewRecordNavigator btNavigator;

// Create a new instance of BarTender

btApp = new BarTender.Application();

// Set the BarTender application visible

btApp.Visible = true;

// Open a BarTender document

btFormat = btApp.Formats.Open("c:\\Format1.btw", false, "");

// Set the record navigator variable

btNavigator = btFormat.ViewRecordNavigator;

// Enable the record navigator

btNavigator.Enabled = true;

// Display the number of records in the database

MessageBox.Show("There are " + btNavigator.LastRecord.ToString() + " records.");

// End the BarTender process

btApp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges);