Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
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
|How can I sort the data shown in Sheet 1 and copy it to Sheet 2?||8||22|
|VBS Script not working correctly.||1||16|
|Save Email Attachments using VBA Excel||3||44|
|Determining control field type (from the form control)||4||12|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!