I recently installed new Windows 2000 workstations for all our users, we previously had Windows 95. We use Access97 databases linked to SQL server tables. I also link to Platinum (Btrieve) using a Pervasive ODBC driver. Since changing to Windows 2000 some of my Access modules are intermittently not working. for example, this code is used to link to a Platinum table:
Dim CommRS As Recordset
Dim WrkODBC As Workspace
Dim conAP As Connection
Dim rstSYID As Recordset
Dim constring As String
On Error GoTo ERRORCLOSE
constring = "ODBC;DATABASE=P:\Platinum\1;UID=maggie;PWD=maggie;PFW1
Set WrkODBC = CreateWorkspace("", UserName, "", dbUseODBC) 'name,user,password,type
Set conAP = WrkODBC.OpenConnection("", , , constring)
Set rstSYID = conAP.OpenRecordset("APNEXTSY", dbOpenDynamic, 0, dbOptimistic)
rstSYID.MoveLast
I don't use this kind of code everywhere I link, but in this case I am updating a field in the linked table and this seemed to be the only thing that worked at the time. Has anyone else had problems with this?
Dim CommRS As Recordset
Dim WrkODBC As Workspace
Dim conAP As Connection
Dim rstSYID As Recordset
Dim constring As String
On Error GoTo ERRORCLOSE
constring = "ODBC;DATABASE=P:\Platinum\1;UID=maggie;PWD=maggie;PFW1
Set WrkODBC = CreateWorkspace("", UserName, "", dbUseODBC) 'name,user,password,type
Set conAP = WrkODBC.OpenConnection("", , , constring)
Set rstSYID = conAP.OpenRecordset("APNEXTSY", dbOpenDynamic, 0, dbOptimistic)
rstSYID.MoveLast
I don't use this kind of code everywhere I link, but in this case I am updating a field in the linked table and this seemed to be the only thing that worked at the time. Has anyone else had problems with this?
