MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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
|Need guidance with Access on how to compare old table with new table and spit out unmatched report||4||34|
|How can I force a specific field to it's default value on a certain date?||18||32|
|Problem with vba code||4||42|
|Back-end Database connect string being set someplace where I can't find it.||10||27|