Automatisk import af tabeller, formularer mv.

hi roose>can you tell me why you need to do this without knowing the object names? If you dont know the names then I assume that you want to import ALL objects and if that is the case then why not just copy the dB?

hi terry. The original database is very large - the update.mdb will contain new forms, reports etc. If I can copy update.mdb into the original database without overwriting the objects that needs no replacement it would be the easiest - but I actually would like to do it as I descirbed above.

However, I've managed to update the tables using the TableDefs - but there does not exist a "ReportDefs". That gives me trouble....

I need to get the names of the reports (and forms, and modules) in the update.mdb - but how ? In the original db I can use the "AllReports" but it only applies to the CurrentDB - can I change the CurrentDB to the update.mdb, get the names of the objects and then change the CurrentDB back ??

You can use automation to open the other dB and cycle through the objects.
I have recently given an example of automating anothr Access dB. Will just see if I can find it.

Private Sub Command2_Click()
Dim acc As Access.Application

    Set acc = CreateObject("Access.Application")

    acc.OpenCurrentDatabase "C:\test.mdb"

'now you have an Access object named acc
'use it as follows (example)

acc.DoCmd.OpenReport "SomeReport"

End Sub

The problem is, that I don't know the name of the report - can I use an index ?

I havent tried this but you should be able to use AllReports in the NEW Access object (acc) to get the name of each report.
Or am I missing something?

I can get the AllReports to do any good.. I've tried the following:

Sub skift()
Dim rpt As Object
Dim acc As Object

    Set acc = CreateObject("Access.Application")


    acc.OpenCurrentDatabase "C:\update.mdb"
   
    For Each rpt In acc.AllReports
           
              MsgBox rpt.Name
       
    Next
   
   
'    acc.DoCmd.OpenReport ("rp1")
'  MsgBox acc.Reports.Item(a).Name
 
'acc.DoCmd.OpenReport "SomeReport"


End Sub

I'll have a play around and get back later.

Private Sub Command0_Click()
Dim acc As Access.Application
Dim rpt As Object
Dim obj As AccessObject, dbs As Object

    Set acc = CreateObject("Access.Application")

    acc.OpenCurrentDatabase "F:\Data\Access Apps\EXAMPLES\DemoImport.mdb"

    Set dbs = acc.Application.CurrentProject
   
    ' Search for open AccessObject objects in AllReports collection.
    For Each obj In dbs.AllReports
            ' Print name of obj.
            Debug.Print obj.Name
    Next obj


End Sub

You should maybe add this after the last line of code

acc.CloseCurrentDatabase
Set acc = Nothing

Oh my God.... Terry is a genius. Thank you for superb help - it all works just fine now. Brilliant solution !

No I'm no genius jsut lots of experience :o)

og tak