Copy modules from one database to another via VBA

[jane30]

Hi, in my Access 97 database, I have the following codes in module named "ModTest":

Dim db As Database, mod1 As Module, appcurr As Application
Set db = CurrentDb()
Set appcurr = Access.Application

For Each mod1 In appcurr.Modules
If mod1.name Like "ModFAC*" Then
docmd.copyobject "d:\db1.mdb","",acModule,mod1.name
else
MsgBox mod1.name
End If
Next

End Function

It returned me a message box "ModTest", which is not what I want to do.

I mean to check all the modules'names in my database. However, it seems that this script only checks the current open module. Is this caused by my definition of "appcurr", which is current Access.Application? What part of scripts is not right?

Much thanks in advance.

 

[Hasu]

Hi Jane,

I created and tested below function just now. This will import modules from other dbs (make sure you specify correct db!).




Public Function CopyModuleOfOtherDB()

Dim db As DAO.Database, mod1 As Module
Dim rs As DAO.Recordset
Dim strPath As String

strPath = CurrentProject.Path & "\test1.mdb"
Set db = OpenDatabase(strPath, , True)

Set rs = db.OpenRecordset("SELECT * FROM MSysObjects WHERE TYPE=-32761&quot

With rs
Do While Not .EOF
Debug.Print .Fields("Name&quot
DoCmd.TransferDatabase acImport, "Microsoft Access", strPath, acModule, .Fields("name&quot, .Fields("name&quot
.MoveNext
Loop

End With

rs.Close
Set rs = Nothing
Set db = Nothing

End Function





Hope this helps...
Hasu
(Trust on someone, someone will trust you!)