Caveat: I have not used this in the 'real world'. I have only tested it
breifly for this reply. Use in a production environment strictly at your own
risk.
Public Sub ImportForms()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = DBEngine.OpenDatabase(CurrentProject.Path & "\db31.mdb")
Set rst = db.OpenRecordset("SELECT MSysObjects.Name FROM MSysObjects
WHERE MSysObjects.Type = -32768")
Do Until rst.EOF
DoCmd.TransferDatabase acImport, "Microsoft Access", db.Name,
acForm, rst.Fields("Name"), rst.Fields("Name")
rst.MoveNext
Loop
rst.Close
db.Close
End Sub
--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com
The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.