Hi,
I am relinking Access tbls from BE to FE both are Ms Access db but while executing below code , I am receiving "Run-time error - 3219" on line
"tdf.Connect = strConnect" in below tbl Relinking code.
Can anyone help me please...
I am relinking Access tbls from BE to FE both are Ms Access db but while executing below code , I am receiving "Run-time error - 3219" on line
"tdf.Connect = strConnect" in below tbl Relinking code.
Code:
Dim strDbFile As String
Dim strPassword As String
Dim strConnect As String
strDbFile = "D:\Ashfaque\GREC_BE.accdb"
strPassword = "0631995"
strConnect = "[MS Access];PWD=" & strPassword & ";DATABASE=" & strDbFile
Dim tdf As DAO.TableDef
Dim db As DAO.Database
Set db = CurrentDb
For Each tdf In db.TableDefs
' ignore system and temp tables
If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then
tdf.Connect = strConnect
tdf.RefreshLink
End If
Next
Can anyone help me please...