Public Sub GetBackEndPath()
Dim strPath As String
Dim tdf As TableDef
Set tdf = CurrentDb.TableDefs("tblOpenLink")
' Runtime error 3420 'Object invalid or
' no long set on following instruction
strPath = Mid(tdf.Connect, InStr(tdf.Connect, "=") + 1)
Open in new window
Get your personalized solution.
Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.
*This site is protected by reCAPTCHA and the Google
Terms of Service apply.
Please enter a first name
Please enter a last name
8+ characters (letters, numbers, and a symbol)
Take hold of your future.