Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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
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.