Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden using our free interactive tool and use it to determine the right price for your IT services. Start calculating Now!
Re Link data
Hi EE
I have the following code to re-link data
Dim strPathBE As String
Dim tdf As TableDef
With FileDialog(msoFileDialogFi
If Not .Show Then Exit Sub
strPathBE = .SelectedItems(1)
End With
With CurrentDb
For Each tdf In .TableDefs
If tdf.Attributes And dbSystemObject Then
ElseIf Len(tdf.Connect) = 0 Then
ElseIf Left(tdf.Connect, 1) <> ";" Then
Else
tdf.Connect = ";DATABASE=" & strPathBE
tdf.RefreshLink
End If
Next tdf
Me!txtLoc = strPathBE
End With
It works if data has no password. I assume it needs some extra code to handle password.
something at the end of this line perhaps
tdf.Connect = ";DATABASE=" & strPathBE (Password)
Any help appreciated
chestera
I have the following code to re-link data
Dim strPathBE As String
Dim tdf As TableDef
With FileDialog(msoFileDialogFi
If Not .Show Then Exit Sub
strPathBE = .SelectedItems(1)
End With
With CurrentDb
For Each tdf In .TableDefs
If tdf.Attributes And dbSystemObject Then
ElseIf Len(tdf.Connect) = 0 Then
ElseIf Left(tdf.Connect, 1) <> ";" Then
Else
tdf.Connect = ";DATABASE=" & strPathBE
tdf.RefreshLink
End If
Next tdf
Me!txtLoc = strPathBE
End With
It works if data has no password. I assume it needs some extra code to handle password.
something at the end of this line perhaps
tdf.Connect = ";DATABASE=" & strPathBE (Password)
Any help appreciated
chestera
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
first open the BE
Dim strPathBE As String
Dim tdf As TableDef
dim strPwd As String
dim dbBE as Dao.database
strPwd="yourPassword"
With FileDialog(msoFileDialogFi
If Not .Show Then Exit Sub
strPathBE = .SelectedItems(1)
End With
'open the back end
Set dbBE = DBEngine(0).OpenDatabase(s
'Set Connect property
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
Dim strPathBE As String
Dim tdf As TableDef
dim strPwd As String
dim dbBE as Dao.database
strPwd="yourPassword"
With FileDialog(msoFileDialogFi
If Not .Show Then Exit Sub
strPathBE = .SelectedItems(1)
End With
'open the back end
Set dbBE = DBEngine(0).OpenDatabase(s
'Set Connect property
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
Rey Obrero
getting error message "Object variable or with block variable not set. on the following line
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
alan
getting error message "Object variable or with block variable not set. on the following line
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
alan
with dbBE
For Each tdf In .TableDefs
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
next
end with
For Each tdf In .TableDefs
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
next
end with
oops, use this
with currentdb
For Each tdf In .TableDefs
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
next
end with
with currentdb
For Each tdf In .TableDefs
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
next
end with
Rey Obrero
Getting Invalid Operation tdf Connect line
Dim strPathBE As String
Dim tdf As TableDef
Dim strPwd As String
Dim dbBE As DAO.Database
strPwd = "ep2015ms"
With FileDialog(msoFileDialogFi
If Not .Show Then Exit Sub
strPathBE = .SelectedItems(1)
End With
With CurrentDb
For Each tdf In .TableDefs
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
Next
End With
Alan
Getting Invalid Operation tdf Connect line
Dim strPathBE As String
Dim tdf As TableDef
Dim strPwd As String
Dim dbBE As DAO.Database
strPwd = "ep2015ms"
With FileDialog(msoFileDialogFi
If Not .Show Then Exit Sub
strPathBE = .SelectedItems(1)
End With
With CurrentDb
For Each tdf In .TableDefs
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
Next
End With
Alan
@alan, use the codes you were using above
With CurrentDb
For Each tdf In .TableDefs
If tdf.Attributes And dbSystemObject Then
ElseIf Len(tdf.Connect) = 0 Then
ElseIf Left(tdf.Connect, 1) <> ";" Then
Else
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
tdf.RefreshLink
End If
Next tdf
Me!txtLoc = strPathBE
End With
With CurrentDb
For Each tdf In .TableDefs
If tdf.Attributes And dbSystemObject Then
ElseIf Len(tdf.Connect) = 0 Then
ElseIf Left(tdf.Connect, 1) <> ";" Then
Else
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
tdf.RefreshLink
End If
Next tdf
Me!txtLoc = strPathBE
End With
Rey Obrero
This is what I now have. Still getting error message last line Object variable etc. If I leave the last two lines out there is no error but it wont link to the data.
Dim strPathBE As String
Dim tdf As TableDef
Dim strPwd As String
Dim dbBE As DAO.Database
strPwd = "ep2015ms"
With FileDialog(msoFileDialogFi
If Not .Show Then Exit Sub
strPathBE = .SelectedItems(1)
End With
With CurrentDb
For Each tdf In .TableDefs
If tdf.Attributes And dbSystemObject Then
ElseIf Len(tdf.Connect) = 0 Then
ElseIf Left(tdf.Connect, 1) <> ";" Then
Else
tdf.Connect = ";DATABASE=" & strPathBE & ";PWD=" & strPwd
tdf.RefreshLink
End If
Next tdf
End With
'open the back end
Set dbBE = DBEngine(0).OpenDatabase(s
'Set Connect property
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
Alan
This is what I now have. Still getting error message last line Object variable etc. If I leave the last two lines out there is no error but it wont link to the data.
Dim strPathBE As String
Dim tdf As TableDef
Dim strPwd As String
Dim dbBE As DAO.Database
strPwd = "ep2015ms"
With FileDialog(msoFileDialogFi
If Not .Show Then Exit Sub
strPathBE = .SelectedItems(1)
End With
With CurrentDb
For Each tdf In .TableDefs
If tdf.Attributes And dbSystemObject Then
ElseIf Len(tdf.Connect) = 0 Then
ElseIf Left(tdf.Connect, 1) <> ";" Then
Else
tdf.Connect = ";DATABASE=" & strPathBE & ";PWD=" & strPwd
tdf.RefreshLink
End If
Next tdf
End With
'open the back end
Set dbBE = DBEngine(0).OpenDatabase(s
'Set Connect property
tdf.Connect = ";Database=" & strPathBE & ";PWD=" & strPwd
Alan
copy and paste these codes
Dim strPathBE As String
Dim tdf As DAO.TableDef
Dim strPwd As String
Dim dbBE As DAO.Database
Dim dbs as dao.database
strPwd = "ep2015ms"
With FileDialog(msoFileDialogFi
If Not .Show Then Exit Sub
strPathBE = .SelectedItems(1)
End With
'open the back end
Set dbBE = DBEngine(0).OpenDatabase(s
set dbs=currentdb
For Each tdf In dbs.TableDefs
If tdf.Connect <> "" Then
tdf.Connect = ";DATABASE=" & strPathBE & ";PWD=" & strPwd
tdf.RefreshLink
End If
Next tdf
dbBE.Close
Set dbBE = Nothing
Dim strPathBE As String
Dim tdf As DAO.TableDef
Dim strPwd As String
Dim dbBE As DAO.Database
Dim dbs as dao.database
strPwd = "ep2015ms"
With FileDialog(msoFileDialogFi
If Not .Show Then Exit Sub
strPathBE = .SelectedItems(1)
End With
'open the back end
Set dbBE = DBEngine(0).OpenDatabase(s
set dbs=currentdb
For Each tdf In dbs.TableDefs
If tdf.Connect <> "" Then
tdf.Connect = ";DATABASE=" & strPathBE & ";PWD=" & strPwd
tdf.RefreshLink
End If
Next tdf
dbBE.Close
Set dbBE = Nothing
Premium Content
You need an Expert Office subscription to comment.Start Free Trial