Get no of records

Brian Element

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