Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub LinkedTables()
Dim t As TableDef
For Each t In CurrentDb.TableDefs
MsgBox t.Name & " : " & t.Connect
Next
End Sub