Thanks everyone!
My workgroup is in a mixed enviroment for using an Access 2k mde as the
front end of a sql server 2000 which is running on the same machine
that some of my users access using Win2003 server terminal services.
1. users on the terminal server, co-located with the sql server, have
no problems
2. users on their local machine (Win XP), get an error message:
Connection Failed:
SQLState: '01000'
SQL Server Error: 10061
[Microsoft][ODBC SQL Server Driver][TCP/IP Sockets]ConnectionOpen
(Connect()).
Connection Failed:
SQLState: '08001'
SQL Server Error: 17
[Microsoft][ODBC SQL Server Driver][TCP/IP Sockets]SQL Server does not
exist or access denied.
On the remote machines, this error first appeared on a single specific
form which had a subform. To get rid of the error, I was able to take
the parent form and remove the subform, adding its data to the parent
form's query and presenting the data on the single form (yay!). Well,
this really didn't get rid of the error...it moved it to an unrelated
report and form, then, as I tried re-linking, the problem has spread to
several tables. The report's datasource table src table can be opened
without the report. The form's error is the context of two drop down
fields whose row source is set as follows (sorry for the runon lines):
Private Sub Form_Open(Cancel As Integer)
If IsNumeric(Me.OpenArgs) = False Then
Me.NavigationButtons = True
Me.AllowAdditions = True
Me.AllowDeletions = True
Me.Command138.Visible = True
Me.CircuitID.RowSource = "SELECT Distinct CktsList.Display,
CktsList.Type FROM WANData INNER JOIN CktsList ON WANData.Site_ID =
CktsList.Site_ID WHERE (((CktsList.Display) Is Not Null) AND
((WANData.Site_ID)=[Forms]![Router]![Site_ID]));"
Me.Combo135.RowSource = "SELECT DISTINCT SR.ID, SR.SR FROM SR INNER
JOIN ((Site INNER JOIN WANData ON Site.ID = WANData.Site_ID) LEFT JOIN
CktsList ON Site.ID = CktsList.Site_ID) ON SR.Site_ID = Site.ID WHERE
(((WANData.Site_ID)=[Forms]![Router]![Site_ID]) AND
((SR.Cancelled)=False) AND ((SR.Accept_Act) Is Null));"
Else
Me.NavigationButtons = False
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.CircuitID.RowSource = "SELECT Distinct CktsList.Display,
Cktslist.Type, WANData.ID FROM (Site INNER JOIN WANData ON Site.ID =
WANData.Site_ID) LEFT JOIN CktsList ON Site.ID = CktsList.Site_ID WHERE
(((CktsList.Display) Is Not Null) AND ((WANData.ID)=" & Me.ID & "));"
Me.Combo135.RowSource = "SELECT DISTINCT SR.ID, SR.SR FROM SR INNER
JOIN ((Site INNER JOIN WANData ON Site.ID = WANData.Site_ID) LEFT JOIN
CktsList ON Site.ID = CktsList.Site_ID) ON SR.Site_ID = Site.ID WHERE
(((WANData.ID)=" & Me.ID & ") AND ((SR.Cancelled)=False) AND
((SR.Accept_Act) Is Null));"
Me.Command138.Visible = False
End If
Please, this problem is huge for my workgroup.