Adding queries and macros to many Microsoft Access Databases.

test this codes,
- create a db (db1) and place these codes in  a module
   the code should copy the Query and Macro from db3 (source db of query and macro)
   db2 will be destination db (you need to create a list of the 50 db, path and db names. you can place the names of the dbs in a table in db1)

Sub CopyObjects()
    Dim acc As Object

    Set acc = CreateObject("Access.Application")
    acc.OpenCurrentDatabase CurrentProject.Path & "\db2.mdb"

'    acc.DoCmd.TransferDatabase acImport, "Microsoft Access", CurrentProject.Path & "\db3.mdb", acQuery, "Query1", "Query1"

    acc.DoCmd.TransferDatabase acImport, "Microsoft Access", CurrentProject.Path & "\db3.mdb", acMacro, "Macro1", "Macro1"
    acc.CloseCurrentDatabase
    Set acc = Nothing

End Sub

If you have split (FE/BE) databases, just push out a new FrontEnd database, replacing the target databases.

Sounds like you have 50 spreadsheets rather than 50 databases.  Why is the data not all in the same database?  Even if you kept 50 separate BE's, you could still use a single FE and simply relink to the BE you need.

Create a loop that populates strFileName and either hard-code the list of objects or create another loop that picks them out and formats the export statement based on object type.

DoCmd.TransferDatabase acExport, "Microsoft Access", strFilename, acMacro, "mOpenAuditOverviewReport", "AutoExec", False
DoCmd.TransferDatabase acExport, "Microsoft Access", strFilename, acQuery, "qOtherComments", "qOtherComments", False
DoCmd.TransferDatabase acExport, "Microsoft Access", strFilename, acReport, "srptOtherComments", "srptOtherComments", False

Select allOpen in new window

Try this:
source database dbs.accdb contains Queries and macros to be copied to destination databases.
Destination databases: d1.accdb, d2.accdb, ...
run copyObjects.accdb database and run form1, and click button.
copyObjects.zip

This is impressive, thank you.  The VBA Macro in it is awesome.

Welcome!