Sub Test() Dim xlObj As Object, xltPath As String, xlWs As Object Dim dbs As DAO.Database Dim rs As DAO.Recordset Dim rs2 As DAO.Recordset Set dbs = DAO.OpenDatabase("D:\1Measurements\Base.mdb") Set rs = dbs.OpenRecordset("Query1") Set rs2 = dbs.OpenRecordset("Query2") Dim TotalRecQuery1 As Long Dim TotalRecQuery2 As Long TotalRecQuery1 = DCount("*", "rs") TotalRecQuery2 = DCount("*", "rs2")
|MS Access Define a New Field Name In A Query When Special Characters Are Used In The Field Name||14||28|
|How to include a comma in a currency field within an expression in a query in Access 2010||3||28|
|How to format a date field in an expression within a query in Access 2010||5||34|
|Error: Operation must use an updateable query||2||9|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!