Minh Tiên > 16-01-15, 11:10 PM
Function ImportTableFromBackupDB(strTableList As String, ByVal FilePathName As String)
Dim i As Long
Dim sTableName As String
Dim dbs As DAO.Database
Set dbs = OpenDatabase(FilePathName, False, False, "Ms Access" & ";pwd=a123")
For i = 1 To DMax("[TableID]", strTableList)
sTableName = DLookup("[TableName]", strTableList, "[TableID]=" & i & "")
DoCmd.TransferDatabase acImport, "Microsoft Access", FilePathName, acTable, sTableName, sTableName
Next
Set dbs = Nothing
End Function