Programming dilemma

[Crystal]

I have networked computers in my office. There is a database saved on one
computer with one target/path file and on the other computers its different.
The database is not all linking together which is a problem for the company.
How can I change it to that all of the computers have the same target/path
file and they will all link up together?

 

[Rick Brandt]

I have networked computers in my office. There is a database saved on one
computer with one target/path file and on the other computers its different.
The database is not all linking together which is a problem for the company.
How can I change it to that all of the computers have the same target/path
file and they will all link up together?

Use the linked table manager to refresh your links using the option for "new
location". Then instead of using whatever mapped drive letter you have for the
network location, navigate to it by going through "Network Neighborhood" -
"Entire Network". This will create a link that uses a UNC path like
\\ServerName\ShareName which will be the same for every computer on your
network.

 

[Allen Browne]

Give each user their own local copy of the front end.

Include the relinking code from solutions.mdb. It checks the Connect
property of each TableDef is right on startup, and if not pops up the
Windows FileOpen dialog so the user can select the file. Downloadable form:
http://msdn.microsoft.com/library/officedev/bapp2000/mdbdownload.htm

 

[Crystal]

where do i put the relinking code? when i rename the file?

 

[Crystal]

what happens if when i open up the database, the linked table manager options
is not bolded so i can select it?

 

[Bas Cost Budde]

what happens if when i open up the database, the linked table manager options
is not bolded so i can select it?

You can use my Reconnect procedure (code below) together with the
GetOpenFile from http://www.mvps.org/access/api/api0001.htm

Sub Reconnect()
Dim cPath As String
Dim td As TableDef
cPath = GetOpenFile(True, , "Where is the backend?", "mdb")
If cPath = "nofile" Then Exit Sub
DoCmd.Hourglass True
For Each td In CurrentDb.TableDefs
If Left(td.Connect, 1) = ";" Then
SysCmd acSysCmdSetStatus, td.Name
td.Connect = ";DATABASE=" & cPath
td.RefreshLink
End If
Next
DoCmd.Hourglass False
SysCmd acSysCmdClearStatus
End Sub

 

[Allen Browne]

Try the code.
Even if the file is renamed, the user can select it.