[AccessD] Error 3043 Disk or Network Error in runtime

Not sure if its related...but Found this on google...just searched with your subject line.
 
http://support.microsoft.com/kb/160907
 
Basically says its looking for c:\temp
 
Hope it helps...
 
Mark A. Matte

> From: dw-murphy at cox.net
> To: accessd at databaseadvisors.com
> Date: Tue, 9 Dec 2008 08:54:07 -0800
> Subject: [AccessD] Error 3043 Disk or Network Error in runtime
> 
> Folks,
> 
> We distribute an application as an Access 2002 runtime. The installation is
> done with Wise/Sagekey. We have many copies of the application out. One of
> our clients just installed the application and is getting an Access vba
> error 3043 "Disk or Network Error". This is a front/back end application
> and both are on the same computer in the same folder. After the first report
> of the problem I thought is was a bad installation so logged onto the
> customers computer remotely, did a complet un-install of the application and
> runtime and with a new installationg file re-installed it. Still get the
> error. The location of the error indicates that the relinker has run and we
> are looking at the computers location settings to set our date, currency and
> address masks to match. The routine that is breaking follows. We have not
> seen this problem before and I am wondering if there could be a dll
> coruption, or missing somewhere. The operating system is Windows XP.
> 
> I look forward to your thoughts.
> 
> Doug
> 
> Code follows: (tFM is a user defined type declared at the module level)
> 
> Public Sub GetCountrySettings()
> Dim rs As DAO.Recordset
> Dim db As DAO.Database
> Dim sSQL As String
> Dim sCountrySettings As String
> Dim fld As Field
> Dim LCID As Long
> 
> LCID = 0 'GetSystemDefaultLCID()
> 
> On Error GoTo GetCountrySettings_Error
> 
> sCountrySettings = GetUserLocaleInfo(LCID, LOCALE_SCOUNTRY)
> tFM.sCountry = sCountrySettings
> 
> If Not IsNull(sSQL) Then
> sSQL = "Select * From tblUserFormat Where fldCountry = '" &
> sCountrySettings & "'"
> Set db = CurrentDb
> Set rs = db.OpenRecordset(sSQL, dbOpenForwardOnly)
> For Each fld In rs.Fields
> Select Case fld.Name
> Case "fldDateMask"
> tFM.sDateMask = fld.Value & ""
> Case "fldDateFormat"
> tFM.sDateFormat = fld.Value & ""
> Case "fldPhoneMask"
> tFM.sPhoneMask = fld.Value & ""
> Case "fldPhoneFormat"
> tFM.sPhoneFormat = fld.Value & ""
> Case "fldTimeMask"
> tFM.sTimeMask = fld.Value & ""
> Case "fldTimeFormat"
> tFM.sTimeFormat = fld.Value & ""
> Case Else
> 
> End Select
> Next
> 
> Else
> 'Leave as is
> End If
> 
> 
> GetCountrySettings_Exit:
> On Error GoTo 0
> Set rs = Nothing
> Exit Sub
> 
> GetCountrySettings_Error:
> 
> MsgBox "Error " & Err.Number & " (" & Err.Description & ") in
> procedure GetCountrySettings of Module basInternational"
> Resume GetCountrySettings_Exit:
> End Sub
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
_________________________________________________________________
You live life online. So we put Windows on the web. 
http://clk.atdmt.com/MRT/go/127032869/direct/01/