السلام عليكم
هذا كود لاسترداد الجداول برمجيا بمعنى يفتح نافذة الاسترداد لاختيار اى شىء
DoCmd.RunCommand acCmdImport
و هذا الكود جربته
و هذه طريقه اخرى توجد فى منتدانا للأخ اسامه اضغطى على هذا الرابط
كود استرداد الجداول
و هذه طريقه بعد تعديل الكود فى مثال الاخ اسامه و هى تعمل على ما يرام
Dim dbsDB As Database
Dim tdf As TableDef
Dim I As Integer, TableNames As String
Dim strPath As String
Dim strPassWord As String
strPath = "ادخل هنا المسار قاعدة البيانات"
strPassWord = "ادخل باسورد ان وجدت"
strPassWord = ";pwd=" & strPassWord
Set dbsDB = OpenDatabase(Name:=strPath, _
Options:=True, _
ReadOnly:=True, _
Connect:=strPassWord)
For Each tdf In dbsDB.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
DoCmd.TransferDatabase acImport, "Microsoft Access", strPath, acTable, tdf.Name, tdf.Name, False
I = I + 1
TableNames = TableNames & vbCrLf & I & " - " & tdf.Name
End If
Next
dbsDB.Close
Set dbsDB = Nothing
MsgBox "تم استيراد عدد " & I & " جدول أسماءها " & TableNames, , ""
Set dbsDB = Nothing