K
Kwok
Hi, I am using the below code to import tables and queries from another
access database. How can I get the name of all forms and reports from the
other database for importing using DoCmd.TransferDatabase?
Set db = DBEngine(0).OpenDatabase(LFilename)
db.TableDefs.Refresh
' I am using this to get all table names excluding system tables
For i = 0 To db.TableDefs.Count - 1
If Not db.TableDefs(i).Name Like "MSys*" Then
tblArray(itblCount) = db.TableDefs(i).Name
itblCount = itblCount + 1
End If
Next i
access database. How can I get the name of all forms and reports from the
other database for importing using DoCmd.TransferDatabase?
Set db = DBEngine(0).OpenDatabase(LFilename)
db.TableDefs.Refresh
' I am using this to get all table names excluding system tables
For i = 0 To db.TableDefs.Count - 1
If Not db.TableDefs(i).Name Like "MSys*" Then
tblArray(itblCount) = db.TableDefs(i).Name
itblCount = itblCount + 1
End If
Next i