VBA run function in an access db via another access db

Question

all I need to run a function that will run multiple reports in different access databases... ad DB to rule them all :) here the structure: in my multi_report.accdb I have a form with a button that is running this code:

Private Sub Comando1_Click()

Dim db_report As String
Dim objAccess As Object
Dim ctr As Date

'TICKETS
db_report = "\\sdocenco01\OPC\11_SCL\TICKETS\ticket.accdb"
Set objAccess = GetObject(db_report) 'opens other db
objAccess.Visible = True
objAccess.Run "report_tickets" 'runs function in other db
objAccess.Quit 'quits other db
Set objAccess = Nothing

'PROCESSI
db_report = "\\sdocenco01\OPC\11_SCL\PROCESSI\utilita.accdb"
Set objAccess = GetObject(db_report)
objAccess.Visible = True
objAccess.Run "report_processi"
objAccess.Quit
Set objAccess = Nothing

...

in the line

objAccess.Run "report_tickets"

i get a run-time error '2517' routine report_tickets not found

I tried different codes like

objAccess.Run "ticket.report_tickets"

or

objAccess.Run "ticket.Database1.report_tickets"

but nothing seems to work

in the \sdocenco01\OPC\11_SCL\TICKETS\ticket.accdb i have this code:

Public Function report_tickets()
DoCmd.SetWarnings False
Dim cdb As DAO.Database, qdf As DAO.QueryDef
Set cdb = CurrentDb
...
End Function

Gustav · Accepted Answer · 2021-05-14 11:04:29Z

1

First, according to the Docs, the project name must be included:

The name of the Function or Sub procedure to be run. If you are calling a procedure in another database, use the project name and the procedure name separated by a dot in the form: "projectname.procedurename"

Next, I guess the "Report_" prefix confuses. Try renaming the functions and call them like:

objAccess.Run "YourProjectName.ReportTickets"

edited May 14, 2021 at 11:04

answered May 14, 2021 at 10:02

Gustav

56.3k7 gold badges33 silver badges65 bronze badges

Sign up to request clarification or add additional context in comments.

7 Comments

Gustav Over a year ago

See expanded answer, please.

illinois Over a year ago

nope, i tried... still not working... same error

Gustav Over a year ago

Then double-check everything. It is tested and runs nicely here

illinois Over a year ago

i actually did naming the function as you suggeste ReportTickets... i really do not know what to do

Gustav Over a year ago

Try rebuilding just this from scratch as simple as possible. My ReportTickets only popped a MsgBox.

|

Collectives™ on Stack Overflow

VBA run function in an access db via another access db

1 Answer 1

7 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

7 Comments

Your Answer

Sign up or log in

Post as a guest

Related