DoCmd.TransferDatabase acImport, "Microsoft Access", [Metin8], acTable, "Analiz", "Analiz", False

DoCmd.TransferSpreadsheet acExport, 10, "Analiz", "Analiz", True, ""

DoCmd.DeleteObject acTable, "Analiz"

MsgBox ("Analiz Tablosu Aktarıldı")

DoCmd.TransferDatabase acImport, "Microsoft Access", [Metin8], acTable, "Dersler", "Dersler", False

DoCmd.TransferSpreadsheet acExport, 10, "Dersler", "Dersler", True, ""

DoCmd.DeleteObject acTable, "Dersler"

MsgBox ("Dersler Tablosu Aktarıldı")

DoCmd.TransferDatabase acImport, "Microsoft Access", [Metin8], acTable, "Konular", "Konular", False

DoCmd.TransferSpreadsheet acExport, 10, "Konular", "Konular", True, ""

DoCmd.DeleteObject acTable, "Konular"

MsgBox ("Konular Tablosu Aktarıldı")

DoCmd.TransferDatabase acImport, "Microsoft Access", [Metin8], acTable, "Notlar", "Notlar", False

DoCmd.TransferSpreadsheet acExport, 10, "Notlar", "Notlar", True, ""

DoCmd.DeleteObject acTable, "Notlar"

MsgBox ("Notlar Tablosu Aktarıldı")