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.
Public Function FixTableLink() Dim db As Database strPath = CurrentProject.Path strPath = strPath & "\CooktownHistoryDb.mdb_be" strConnect = "DATABASE=" & strPath Set db = CurrentDb For Each tbl In db.TableDefs If Nz(DLookup("Type", "MSysObjects", "Name = '" & tbl.name & "'"), 0) = 6 And tbl.Connect <> strConnect Then tbl.Connect = strConnect tbl.RefreshLink End If Next tbl End Function
|Is it possible to reset DSum?||12||43|
|Excel 2016 Not Responding Issues||6||28|
|How to base a filter depending on fields contents?||15||49|
|Format Meeting Request through VBA||5||21|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!