Paul Purvis
New member
- Local time
- Today, 02:02
- Joined
- Mar 4, 2003
- Messages
- 9
Setting up a new PC to access database
OK, Its Friday, nearly Xmas and the boss gives me a new little job, connect my laptop to the database, well I Have done it before, no probs, however this laptop has Office XP Pro and it isnt playing ball!
I have a
"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" C:\STEV\STEVP.MDB /x autoexec_local
------------------------------------------------------------------------
and I get runtime error and then
------------------------------------------------------------------------
If DummyLoc <> DbLocation Then
For I = 0 To Db.TableDefs.Count - 1
Set MyTable = Db.TableDefs(I)
errorproc = "reconnect " & MyTable.Name
Debug.Print errorproc
If Left$(MyTable.Name, 3) <> "Msy" Then
Mytablename = MyTable.Name
MyTable.Connect = ";DATABASE=" & DbLocation
MyTable.RefreshLink
End If
Next I
End If
End Sub
Any suggestions? /--- Paul
OK, Its Friday, nearly Xmas and the boss gives me a new little job, connect my laptop to the database, well I Have done it before, no probs, however this laptop has Office XP Pro and it isnt playing ball!
I have a
"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" C:\STEV\STEVP.MDB /x autoexec_local
------------------------------------------------------------------------
and I get runtime error and then
------------------------------------------------------------------------
If DummyLoc <> DbLocation Then
For I = 0 To Db.TableDefs.Count - 1
Set MyTable = Db.TableDefs(I)
errorproc = "reconnect " & MyTable.Name
Debug.Print errorproc
If Left$(MyTable.Name, 3) <> "Msy" Then
Mytablename = MyTable.Name
MyTable.Connect = ";DATABASE=" & DbLocation
MyTable.RefreshLink
End If
Next I
End If
End Sub
Any suggestions? /--- Paul