Run-time error '462': The remote server machine does not exist or is unavailable

[xlguy]

Hello all,

Hoping someone can help me resolve the following error, that I encounter every consecutive time I try to run the below code.

---------------------------------------------------------------------
Run-time error '462':
The remote server machine does not exist or is unavailable
---------------------------------------------------------------------

The error is normally displayed against the statement that reads "Set ws = DBEngine.Workspaces(0)".

Offending code:

Sub copyCMdataToAccessDB()
    Application.StatusBar = "Now exporting 'Current Data' to Access database..."    Dim ws As DAO.Workspace
    Dim db As DAO.Database
    Dim sDb As String
    Dim sSQL As String
    Dim qdf As QueryDef
    sDb = "[URL="file://\\CATOU-OGFSPUWSX\rosec$\G\EIRS_Demo\WFP-TESTING.accdb"]\\CATOU-OGFSPUWSX\rosec$\G\EIRS_Demo\WFP-TESTING.accdb[/URL]"
    '--- On Error Resume Next
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(sDb)
    ' A stored query would be better
    sSQL = "Parameters p1 Text, p2 Datetime; " _
        & "INSERT INTO Table1 (AText,ADate) Values ([p1],[p2])"
    
    Set qdf = db.CreateQueryDef("", sSQL)
    qdf.Parameters!p1 = "ABC"
    qdf.Parameters!p2 = #1/17/2013#
    qdf.Execute dbFailOnError
    Debug.Print qdf.RecordsAffected
    
    Access.Quit
    '--- On Error GoTo 0
    
    Application.StatusBar = ""
End Sub

Upon Googling around, I believe it might have something to do with "unqualified references"...but I cannot seem to figure out where I have unqualified references in my code.

Thanks in advance.

Happy New Year to all you wonderful folks here!

 

[svendiamond]

Don't use the double backslashes for the network drive. Just use the letter of the drive on your machine. Like just write: "G:\EIRS_Demo\WFP-TESTING.accdb"

or whatever drive letter it is.

 

[xlguy]

Thanks SvenDiamond...for your reply!

So do you think that that is indeed the problem...or is it just something that you think I should try? If it is the latter, then I'll only be able to try it out on Tuesday January 3rd, when I get back in to work.

Later