CodeItBetter Programming Another VB Programming Blog

'Database - How to Return the number of records in the table.
Option Explicit
 
Private Sub cmdCount_Click()
Dim db As Database
Dim rs As Recordset
 
    On Error GoTo DataError
 
    ' Open the database.
    Set db = OpenDatabase(txtDatabase.Text)
 
    ' Open the recordset.
    Set rs = db.OpenRecordset("SELECT COUNT (*) FROM " & txtTable.Text)
 
    ' Display the result.
    lblCount.Caption = "Table has " & Format$(rs.Fields(0)) & " records."
 
    rs.Close
    db.Close
 
    Exit Sub
 
DataError:
    MsgBox "Error " & Err.Number & " counting records." & vbCrLf & vbCrLf & Err.Description
End Sub
 
Private Sub Form_Load()
    txtDatabase.Text = App.Path & "\books.mdb"
    txtTable.Text = "Books"
End Sub