With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
Dim tdfLocal As TableDef Set dbCurr = CurrentDb Set tdfLocal = dbCurr.TableDefs("AAList") With tdfLocal strDBPath = "C:\test.mdb" .Connect = ";Database=" & strDBPath .RefreshLink
Dim tdfLocal As TableDef 'Set dbCurr = CurrentDb 'THIS LINE OF CODE CHANGED Set tdfLocal = CurrentDb.TableDefs("AAList") With tdfLocal strDBPath = "C:\test.mdb" .Connect = ";Database=" & strDBPath .RefreshLink
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.