Code doesn't work on some computers

  • Thread starter Thread starter BillyRogers
  • Start date Start date
B

BillyRogers

I have an access application that works on my computer and on another
coworkers computer, but doesn't work on other peoples computers.

Does anyone have and ideas? I've check their office service pack and it's
the same as mine. I doubt that it's the code which I have copied below
since it works for two people ....I think it must be some sort of setting.

has this ever happened to anyone else?





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
'***********************************************************************************************************************

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



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

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

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



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

'DoCmd.OpenQuery "qryPassThru", acNormal, acEdit

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

Set qdfPassthrough = Nothing
Set rsCurr = Nothing


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

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

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



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

'DoCmd.OpenQuery "qryPassThru", acNormal, acEdit

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

Set qdfPassthrough = Nothing
Set rsCurr = Nothing


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

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

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



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

'DoCmd.OpenQuery "qryPassThru", acNormal, acEdit

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

Set qdfPassthrough = Nothing
Set rsCurr = Nothing


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


Call AssocConcat

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

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



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

'DoCmd.OpenQuery "qryPassThru", acNormal, acEdit

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

MsgBox "Done"

End Sub


--
Billy Rogers

Dallas,TX

Currently Using SQL Server 2000, Office 2000 and Office 2003
 
To do its job, Access makes use of various external program and object
libraries. If you move a database from one machine to another, these
references may be "broken".

When this happens, you need to take steps to let Access repair the
reference(s) ON THE COMPUTER WHERE THE FAILURE IS OCCURING.

Here are MVP Doug Steele's instructions for how to do it:

*** Quote ***

Any time functions that previously worked suddenly don't, the first thing to
suspect is a references problem.

This can be caused by differences in either the location or file version of
certain files between the machine where the application was developed, and
where it's being run (or the file missing completely from the target
machine). Such differences are common when new software is installed.

On the machine(s) where it's not working, open any code module (or open the
Debug Window, using Ctrl-G, provided you haven't selected the "keep debug
window on top" option). Select Tools | References from the menu bar. Examine
all of the selected references.

If any of the selected references have "MISSING:" in front of them, unselect
them, and back out of the dialog. If you really need the reference(s) you
just unselected (you can tell by doing a Compile All Modules), go back in
and reselect them.

If none have "MISSING:", select an additional reference at random, back out
of the dialog, then go back in and unselect the reference you just added. If
that doesn't solve the problem, try to unselect as many of the selected
references as you can (Access may not let you unselect them all), back out
of the dialog, then go back in and reselect the references you just
unselected. (NOTE: write down what the references are before you delete
them, because they'll be in a different order when you go back in)

For far more than you could ever want to know about this problem, check out
http://www.accessmvp.com/djsteele/AccessReferenceErrors.html

Just so you know: the problem will occur even if the library that contains
the specific function that's failing doesn't have a problem.

**** End Quote ****

--
John Spencer
Access MVP 2002-2005, 2007
Center for Health Program Development and Management
University of Maryland Baltimore County
..

BillyRogers said:
I have an access application that works on my computer and on another
coworkers computer, but doesn't work on other peoples computers.

Does anyone have and ideas? I've check their office service pack and it's
the same as mine. I doubt that it's the code which I have copied below
since it works for two people ....I think it must be some sort of setting.

has this ever happened to anyone else?





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.SetFocus
'***********************************************************************************************************************

'***********************************************************************************************************************
' 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)
'***********************************************************************************************************************

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



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

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

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



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

'DoCmd.OpenQuery "qryPassThru", acNormal, acEdit

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

Set qdfPassthrough = Nothing
Set rsCurr = Nothing


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

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

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



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

'DoCmd.OpenQuery "qryPassThru", acNormal, acEdit

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

Set qdfPassthrough = Nothing
Set rsCurr = Nothing


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

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

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



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

'DoCmd.OpenQuery "qryPassThru", acNormal, acEdit

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

Set qdfPassthrough = Nothing
Set rsCurr = Nothing


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


Call AssocConcat

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

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



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

'DoCmd.OpenQuery "qryPassThru", acNormal, acEdit

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

MsgBox "Done"

End Sub


--
Billy Rogers

Dallas,TX

Currently Using SQL Server 2000, Office 2000 and Office 2003
Click to expand...
 
Thanks, this looks like it might help.
--
Billy Rogers

Dallas,TX

Currently Using SQL Server 2000, Office 2000 and Office 2003


John Spencer said:
To do its job, Access makes use of various external program and object
libraries. If you move a database from one machine to another, these
references may be "broken".

When this happens, you need to take steps to let Access repair the
reference(s) ON THE COMPUTER WHERE THE FAILURE IS OCCURING.

Here are MVP Doug Steele's instructions for how to do it:

*** Quote ***

Any time functions that previously worked suddenly don't, the first thing to
suspect is a references problem.

This can be caused by differences in either the location or file version of
certain files between the machine where the application was developed, and
where it's being run (or the file missing completely from the target
machine). Such differences are common when new software is installed.

On the machine(s) where it's not working, open any code module (or open the
Debug Window, using Ctrl-G, provided you haven't selected the "keep debug
window on top" option). Select Tools | References from the menu bar. Examine
all of the selected references.

If any of the selected references have "MISSING:" in front of them, unselect
them, and back out of the dialog. If you really need the reference(s) you
just unselected (you can tell by doing a Compile All Modules), go back in
and reselect them.

If none have "MISSING:", select an additional reference at random, back out
of the dialog, then go back in and unselect the reference you just added. If
that doesn't solve the problem, try to unselect as many of the selected
references as you can (Access may not let you unselect them all), back out
of the dialog, then go back in and reselect the references you just
unselected. (NOTE: write down what the references are before you delete
them, because they'll be in a different order when you go back in)

For far more than you could ever want to know about this problem, check out
http://www.accessmvp.com/djsteele/AccessReferenceErrors.html

Just so you know: the problem will occur even if the library that contains
the specific function that's failing doesn't have a problem.

**** End Quote ****

--
John Spencer
Access MVP 2002-2005, 2007
Center for Health Program Development and Management
University of Maryland Baltimore County
..

BillyRogers said:
I have an access application that works on my computer and on another
coworkers computer, but doesn't work on other peoples computers.

Does anyone have and ideas? I've check their office service pack and it's
the same as mine. I doubt that it's the code which I have copied below
since it works for two people ....I think it must be some sort of setting.

has this ever happened to anyone else?





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.SetFocus
'***********************************************************************************************************************

'***********************************************************************************************************************
' 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)
'***********************************************************************************************************************

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



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

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

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



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

'DoCmd.OpenQuery "qryPassThru", acNormal, acEdit

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

Set qdfPassthrough = Nothing
Set rsCurr = Nothing


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

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

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



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

'DoCmd.OpenQuery "qryPassThru", acNormal, acEdit

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

Set qdfPassthrough = Nothing
Set rsCurr = Nothing


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

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

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



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

'DoCmd.OpenQuery "qryPassThru", acNormal, acEdit

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

Set qdfPassthrough = Nothing
Set rsCurr = Nothing


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


Call AssocConcat

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

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



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

'DoCmd.OpenQuery "qryPassThru", acNormal, acEdit

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

MsgBox "Done"

End Sub


--
Billy Rogers

Dallas,TX

Currently Using SQL Server 2000, Office 2000 and Office 2003
Click to expand...
Click to expand...
 
I have an access application that works on my computer and on another
coworkers computer, but doesn't work on other peoples computers.
Click to expand...
This appears to be the very common References bug. Open any module in design
view on each of the affected computers, or open the VBA editor by typing
Ctrl-G. Select Tools... References from the menu. One of the .DLL files
required by Access will probably be marked MISSING. Uncheck it, recheck it,
close and open Access.

If none are MISSING, check any currently unchecked reference; close and open
Access; then uncheck it again. This will force Access to relink the libraries.

John W. Vinson [MVP]
 
I checked and none of the references were missing. I also tried adding a new
reference and saving it and closing out of the app and then coming back in
and removing the new reference and that still didn't solve the problem. One
of my coworkers has two computers and it works on one and not the other....

I'll keep reading
http://www.accessmvp.com/djsteele/AccessReferenceErrors.html
there's a lot of materiel there. Maybe some of it will help me.

thanks,

--
Billy Rogers

Dallas,TX

Currently Using SQL Server 2000, Office 2000 and Office 2003
 
I've narrowed it down to where the code actually stops.

Call CorpConcat

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

strSQL = "Exec [GetCorpEquipment] @OrderList='" & MyCorpNums & "'"



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

DoCmd.OpenQuery "qryPassThru", acNormal, acEdit ' ****This is where is
stops

I get an error message that pops up and says

Run-time error '3151'
ODBC--connection to 'DatabaseName' failed.

The strange this is that this code that I have added runs some stored procs
in sql server and builds a new access database and stored the data in 4
tables in the new database, but in the same app I have code that does the
same thing except it exports to Excel and this works...the only difference is
that for the excel report I use ADO....I use DAO for the Access report.




--
Billy Rogers

Dallas,TX

Currently Using SQL Server 2000, Office 2000 and Office 2003
 
I found a solution. I changed the passthrough query connection to a DSN-less
connection like this

ODBC;Driver={SQLServer};Server=myServer;DATABASE=mydatabase;Trusted_Connection=Yes


I don't know why it works but it does.


--
Billy Rogers

Dallas,TX

Currently Using SQL Server 2000, Office 2000 and Office 2003

http://thedataguru.blogspot.com/


BillyRogers said:
I've narrowed it down to where the code actually stops.

Call CorpConcat

' Me.txtStatus.Text = "Running....." & vbCrLf & "InvoiceMast"
' Call SP1_AssocInvoiceMast(MyAssocNums, MyAssocDates)


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

' @MonthYearList varchar(500),
' @OrderList varchar(500)

strSQL = "Exec [GetCorpEquipment] @OrderList='" & MyCorpNums & "'"



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

DoCmd.OpenQuery "qryPassThru", acNormal, acEdit ' ****This is where is
stops

I get an error message that pops up and says

Run-time error '3151'
ODBC--connection to 'DatabaseName' failed.

The strange this is that this code that I have added runs some stored procs
in sql server and builds a new access database and stored the data in 4
tables in the new database, but in the same app I have code that does the
same thing except it exports to Excel and this works...the only difference is
that for the excel report I use ADO....I use DAO for the Access report.




--
Billy Rogers

Dallas,TX

Currently Using SQL Server 2000, Office 2000 and Office 2003


John W. Vinson said:
This appears to be the very common References bug. Open any module in design
view on each of the affected computers, or open the VBA editor by typing
Ctrl-G. Select Tools... References from the menu. One of the .DLL files
required by Access will probably be marked MISSING. Uncheck it, recheck it,
close and open Access.

If none are MISSING, check any currently unchecked reference; close and open
Access; then uncheck it again. This will force Access to relink the libraries.

John W. Vinson [MVP]
Click to expand...
Click to expand...
 
Back
Top