Get no of records

Brian Element's picture
Submitted by Brian Element on Sat, 07/14/2012 - 19:29

This function will get the number of records in a database.

Snippet: 
Function getNoOfRecords (file As String)
	Dim db As database
	Dim temp_count As Long
	
	Set db = Client.OpenDatabase(file)
	temp_count = db.Count

	Set db = Nothing
	getNoOfRecords = temp_count

End Function