1)
Option Compare Database
Option Explicit
Public Function CheckKoppelingen()
Dim db As DAO.database
Dim td As DAO.tabledef
Dim Message As String
Dim Result As Integer
Set db = CurrentDb()
For Each td In db.TableDefs
If td.Connect <> "" Then
Message = Message + Chr(155) & " " & td.Name & Space(50 -
Len(td.Name)) & vbTab & "..." & Right(td.Connect, 45) & vbCrLf
End If
Next td
Result = MsgBox(Message, vbOKOnly, "Check linked tables !")
Set td = Nothing
Set db = Nothing
CheckKoppelingen = Result
End Function
If you want to see the whole path, just use tb.connect in stead of the whole
bit after Chr(155).
2)
WZMain is an extension to Access (I think; part of the program). On my
computer it's located at C:\Program Files\Microsoft Office\Office\WzMain.mde
I believe it's used to display the wizards, but only during and not not
after these have finished and changed the structure of the application (i.e.
added the switchboard).
Bas.
"Brian Keanie" <bk******@sympatico.ca> wrote in message
news:YX*********************@news20.bellglobal.com ...
Greetings.
I've been asked to resurrect an existing database and have run into a few
problems.
1) Some of the data (tables) seem to be on a separate and somehow linked
file. How do you find which file might be linked and or the path to it?
There is also an error message which references a "server".?????
2) When you create a switchboard I believe their is some standard code
which access writes to the file. This includes reference to a file (going by
memory) is something like WZMAIN80.SB?. I believe this is a wizard file.
Is this a stand alone file and should it be in a specific directory? I can't
seem to find this file on the computer on which the database resides.
Any thoughts or comments would be welcome.