السلام عليكم ورحمه الله وبركاته
الكود عباره عن كود يقوم بتصدير جميع جداول وشاشات واستعلامات وماكرو وصفحات ومديول برنامج اكسس كل شى الى DoCmd.TransferText
المطلوب
1. التعديل على هذا الكود بحيث يقوم بتصدير جميع جداول البرنامج فقط كل جدول الى DoCmd.TransferDateBae بشرط ان يقوم الكود بانشاء ملف اكسس لكل جدول بنفس اسم الجدول وادارج الجدول بداخله
2. كود لاستيراد مجموعه من ملفات txt الى برنامج اكسس بحيث لا نقوم بانشاء جداول باسماء الملفان وان يقوم الكود باستيراد جميع الملفات وانشاء جدول خاص بكل ملف
هذا هو الكود الخاص ب تصدير البيانات والبرنامج موجود بالمرفقات
Option Explicit
Public Sub ExportDatabaseObjects()
On Error GoTo Err_ExportDatabaseObjects
Dim db As Database
'Dim db As DAO.Database
Dim td As TableDef
Dim d As Document
Dim c As Container
Dim i As Integer
Dim sExportLocation As String
Set db = CurrentDb()
sExportLocation = "C:\Temp\" 'Do not forget the closing back slash! ie: C:\Temp\
For Each td In db.TableDefs 'Tables
If Left(td.Name, 4) <> "MSys" Then
DoCmd.TransferText acExportDelim, , td.Name, sExportLocation & "Table_" & td.Name & ".txt", True
End If
Next td
Set c = db.Containers("Forms")
For Each d In c.Documents
Application.SaveAsText acForm, d.Name, sExportLocation & "Form_" & d.Name & ".txt"
Next d
Set c = db.Containers("Reports")
For Each d In c.Documents
Application.SaveAsText acReport, d.Name, sExportLocation & "Report_" & d.Name & ".txt"
Next d
Set c = db.Containers("Scripts")
For Each d In c.Documents
Application.SaveAsText acMacro, d.Name, sExportLocation & "Macro_" & d.Name & ".txt"
Next d
Set c = db.Containers("Modules")
For Each d In c.Documents
Application.SaveAsText acModule, d.Name, sExportLocation & "Module_" & d.Name & ".txt"
Next d
For i = 0 To db.QueryDefs.Count - 1
Application.SaveAsText acQuery, db.QueryDefs(i).Name, sExportLocation & "Query_" & db.QueryDefs(i).Name & ".txt"
Next i
Set db = Nothing
Set c = Nothing
MsgBox "All database objects have been exported as a text file to " & sExportLocation, vbInformation
Exit_ExportDatabaseObjects:
Exit Sub
Err_ExportDatabaseObjects:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_ExportDatabaseObjects
End Sub
Option Compare Database
وهذا هو الكود الذى قمت بالتعديل عليه ولكن المشكله انه يحتاج ان نقوم بانشاء ملف اكسس باسم كل جدول لكل يقوم بتصدير كل جدول فى ملف الاكسس الخاص به
DoCmd.TransferDatabase acExport, "Microsoft Access", sExportLocation & td.Name & ".mdb", acTable, td.Name, td.Name, False
الرجاء المساعده فى هذا الكود لضروره الحاجه اليه فى طبيعه عملى
