VBA Code to Export all visible objects to a new ".mdb" database

[Heri101]

Please I need a VBA code to export all visible database objects (queries and table links) into a new “.mdb“ database, save with a different name.
Please help me with complete code as I am just a beginner,

[orangeCat]

Henri,

Why not create a new empty database, then import (get external data-> import)
the objects from your current database; then delete any specific items you absolutely don't want?

[Heri101]

OrangeCat,
Thanks for reply, that’s right, I can do it that way, but I just want it to automate and make it simple for other users, as I am setting up this database to perform as a intermediate query builder utility, where user can link the tables from several databases, create the queries based on these, and then both queries and their source table links stored in separate database, then users will use these queries in another program (GIS), sure I need it to be done from my query builder utility, so please help,
Best regards,
Heri.

[Heri101]

No any response? is it impossible task?

[Heri101]

This has been sorted.

[orangeCat]

Have you solved your issue?
What did you do?

[Heri101]

Cat, See below.

Public Sub CreateNewDB()
Dim strTargetDB As String
Dim qdf As QueryDef
Dim tbl As TableDef
Dim strNewDB As String

strNewDB = InputBox("Please Enter New Database Name", "Database Name", "New_database")
On Error Resume Next
  strTargetDB = CurrentProject.Path & "\" & strNewDB & ".mdb"
    DBEngine.CreateDatabase strTargetDB, dbLangGeneral
For Each qdf In CurrentDb.QueryDefs
 If Left$(qdf.Name, 3) = "qry" Then
    DoCmd.TransferDatabase acExport, "Microsoft Access", _
            strTargetDB, acQuery, qdf.Name, qdf.Name
    End If
Next

For Each tbl In CurrentDb.TableDefs
 If (tbl.Connect) <> "" Then
  If (tbl.Name) <> "MySys*" Then
    DoCmd.TransferDatabase acExport, "Microsoft Access", _
            strTargetDB, acTable, tbl.Name, tbl.Name
    End If
  End If
Next
   On Error GoTo 0
   Exit Sub
End Sub