MDE version does not work

[Billy Rogers]

I converted an MDB file to and MDE file for distribution and now it's not
working.

The users get an error message when they click a button. The message says
"The expression On Click you entered as the event property setting produced
the folowing error: File Not Found"

This doesn't happen when I run it on my computer. I sent them the MDB
version and they say it works fine.

Heres the code in the button.


Private Sub btnRunAccessReport_Click()





'***********************************************************************************************************************
' This section checks to see if user has specified
' a file path & name to save the report

txtAccessFilePath.SetFocus
AccessFilePath = txtAccessFilePath.Text

If txtAccessFilePath.Text = "" Then
MsgBox " txtAccessFilePath.Text is null" & vbCrLf
& vbCrLf & "Please enter a file name using the Save As button."
btnAccessSaveAs.SetFocus
Exit Sub
End If

btnRunAccessReport.SetFocu
'***********************************************************************************************************************

'***********************************************************************************************************************
' This section Creates the database.
' It will delete the file if it already exists.

Dim wrkDefault As Workspace
Dim dbsNew As Database
Dim prpLoop As Property


' Get default Workspace.
Set wrkDefault = DBEngine.Workspaces(0)

' Make sure there isn't already a file with the name of
' the new database.
If Dir(AccessFilePath) <> "" Then Kill AccessFilePath

' Create a new encrypted database with the specified
' collating order.
Set dbsNew = wrkDefault.CreateDatabase(AccessFilePath, _
dbLangGeneral, dbEncrypt)

Set dbsNew = Nothing


DoCmd.HourGlass True
Me.txtStatus.SetFocus
Me.txtStatus.Text = "Connecting to SQL Server"


'***********************************************************************************************************************
'Demographic
Me.txtStatus.Text = "Running....." & vbCrLf & "Demographics & Volume"
Call AssocConcat

Dim qdfPassthrough As DAO.QueryDef
Dim rsCurr As DAO.Recordset
Dim strSQL As String

strSQL = "Exec [GetAssocDemographics&Volume&CB] @MonthYearList='" &
MyAssocDates & "', @OrderList='" & MyAssocNums & "'"

Set qdfPassthrough = CurrentDb().QueryDefs("qryPassThru")
qdfPassthrough.Sql = strSQL

DoCmd.RunSQL "SELECT * INTO [AssocDemoVol] IN '" & AccessFilePath & "'
FROM [qryPassThru];"

Set qdfPassthrough = Nothing
Set rsCurr = Nothing

'***********************************************************************************************************************
'Equipment
Me.txtStatus.Text = "Running....." & vbCrLf & "Equipment"
Call AssocConcat

strSQL = "Exec [GetAssocEquipment] @OrderList='" & MyAssocNums & "'"

Set qdfPassthrough = CurrentDb().QueryDefs("qryPassThru")
qdfPassthrough.Sql = strSQL

DoCmd.RunSQL "SELECT * INTO [AssocEquip] IN '" & AccessFilePath & "' FROM
[qryPassThru];"

Set qdfPassthrough = Nothing
Set rsCurr = Nothing

'***********************************************************************************************************************
'InvoiceMast
Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
Call AssocConcat

strSQL = "Exec [GetAssocInvoiceMast] @MonthYearList='" & MyAssocDates &
"', @OrderList='" & MyAssocNums & "'"

Set qdfPassthrough = CurrentDb().QueryDefs("qryPassThru")
qdfPassthrough.Sql = strSQL

DoCmd.RunSQL "SELECT * INTO [AssocInvoiceMast] IN '" & AccessFilePath &
"' FROM [qryPassThru];"

Set qdfPassthrough = Nothing
Set rsCurr = Nothing

'***********************************************************************************************************************
'InvoiceMastQA
Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMastQA"

Call AssocConcat

strSQL = "Exec [GetAssocInvoiceMastQA] @MonthYearList='" & MyAssocDates &
"', @OrderList='" & MyAssocNums & "'"

Set qdfPassthrough = CurrentDb().QueryDefs("qryPassThru")
qdfPassthrough.Sql = strSQL


DoCmd.RunSQL "SELECT * INTO [AssocInvoiceMastQA] IN '" & AccessFilePath &
"' FROM [qryPassThru];"

Set qdfPassthrough = Nothing
Set rsCurr = Nothing

Me.txtStatus.Text = "Report Done!"
Me.btnCloseFormAssoc.SetFocus

DoCmd.HourGlass False
'

'***********************************************************************************************************************

'Open the new database

Dim NewAccessFilePath As String
NewAccessFilePath = """" & AccessFilePath & """"

Shell """C:\Program Files\Microsoft Office\Office\MSACCESS.EXE""" & _
NewAccessFilePath, vbNormalFocus

End Sub






--
Billy Rogers

Dallas,TX

Currently Using SQL Server 2000, Office 2000 and Office 2003

http://thedataguru.blogspot.com/

 

[Tony Toews [MVP]]

The users get an error message when they click a button. The message says
"The expression On Click you entered as the event property setting produced
the folowing error: File Not Found"

Do you have any references besides the basic three or four? Are you
sure you need them? Write down the path and name of the extra ones
(or put the following code in a module and execute the code), delete
from the references list and Compile and Save All. Keep any
necessary references and ensure they are distributed to the target
system.

Dim ref As Reference

For Each ref In Access.References
Debug.Print ref.Name & " " & ref.FullPath & " " & ref.Major &
"." & ref.Minor
Next ref

For a very detailed page on reference problems see
http://www.accessmvp.com/djsteele/AccessReferenceErrors.html

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/