We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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")
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Please Explain What Reading a Zip file Back In Means||11||68|
|Specify the table containg the records you want to delete||14||31|
|Access Excel ADO SQL question||8||11|