Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub Report_Open(Cancel As Integer) Dim MyDb As DAO.Database, MyQry As QueryDef, MyRS As DAO.Recordset Set MyDb = CurrentDb() Set MyQry = MyDb.CreateQueryDef("") MyQry.Connect = "ODBC;DSN=DSNName;DATABASE=DBName" MyQry.SQL = "spApplicantFlow '05/01/2007', '04/30/2008'" MyQry.ReturnsRecords = True Set MyRS = MyQry.OpenRecordset() MyRS.MoveFirst Debug.Print MyRS!BranchName MyQry.Close MyRS.Close MyDb.Close End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.