I tried to apply the Count function in place of the code below but without success. Suggested simpler code example would be welcome.
Thanks,
Bill
Code:Public Function basecount() As Integer Dim rsBaseUse As DAO.Recordset Dim strSQL As String strSQL = "SELECT * FROM QBaseUse" Set rsBaseUse = DBEngine(0)(0).OpenRecordset(strSQL) rsBaseUse.MoveLast basecount = rsBaseUse.RecordCount rsBaseUse.Close Set rsBaseUse = Nothing End Function