kanory قام بنشر يوليو 13, 2017 مشاركة قام بنشر يوليو 13, 2017 السلام عليكم ورحمة الله وبركاته .... طاب مسائكم اريد تصدير جميع جداول قاعدة خارجية الى قاعدة خارجية أخرى من خلال قاعدة ثالثة ....... ولكم الشكر سلفا ... المرفق يوضح المطلوب اكثر . kanory.rar 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يوليو 13, 2017 مشاركة قام بنشر يوليو 13, 2017 السلام عليكم تفضل هذا التعديل على الكود الذي تستعمله: Dim strTargetDB As String Dim tbl As TableDef Dim app As Access.Application strTargetDB = Me.txtPath1 Set app = CreateObject("Access.Application") app.OpenCurrentDatabase (Me.txtPath) app.Visible = False For Each tbl In CurrentDb.TableDefs If Left(tbl.Name, 4) <> "MSys" Then app.DoCmd.TransferDatabase acExport, "Microsoft Access", strTargetDB, acTable, tbl.Name, tbl.Name, False End If Next و هذا ملفك بعد التعديل عليه موفق إن شاء الله 1kanory.rar 2 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 13, 2017 الكاتب مشاركة قام بنشر يوليو 13, 2017 أخي العزيز صالح السلام عليكم ........ اشكرك على الرد رغم مشاغلك ....... لكن لم يقم البرنامج بتصدير الجداول ....... هل جربته وعمل معك .... ممكن السبب من جهازي .... والله أعلم ...... بارك الله في جهدك معي 2 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يوليو 14, 2017 مشاركة قام بنشر يوليو 14, 2017 البرنامج يعمل معي 100% جرب إنشاء قاعدة فارغة (mdb) و قم بتصدير الجداول لها من خلال قاعدة أخرى 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 14, 2017 الكاتب مشاركة قام بنشر يوليو 14, 2017 لم يعمل معي بعد محاولات عدة ....... ولا أعلم السبب 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 14, 2017 الكاتب مشاركة قام بنشر يوليو 14, 2017 اخي الكريم جرب على القاعدة المرسلة لك ..... وأعلمني بالنتيجة kanory.rar 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة صالح حمادي قام بنشر يوليو 14, 2017 أفضل إجابة مشاركة قام بنشر يوليو 14, 2017 السلام عليكم نعم أخي كان هناك خطأ بسيط يمنع المرفق من العمل مع كل الملفات و لكنني أصلحته الآن تفضل: Dim strTargetDB As String Dim tbl As TableDef Dim app As Access.Application strTargetDB = Me.txtPath1 Set app = CreateObject("Access.Application") app.OpenCurrentDatabase (Me.txtPath) app.Visible = False For Each tbl In app.CurrentDb.TableDefs If Left(tbl.Name, 4) <> "MSys" Then app.DoCmd.TransferDatabase acExport, "Microsoft Access", strTargetDB, acTable, tbl.Name, tbl.Name, False End If Next MsgBox "لقد تم تصدير جميع الجداول بنجاح" و هذا هو المرفق: 1kanory.rar 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 14, 2017 الكاتب مشاركة قام بنشر يوليو 14, 2017 أشكرك أخي صالح .... بارك الله فيك ..... جزاك الله خيرا في الدنيا والآخرة ....ز. تم المطلوب على أكمل وجه .. يا وجه السعد 2 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يوليو 14, 2017 مشاركة قام بنشر يوليو 14, 2017 2 ساعات مضت, kanory said: أشكرك أخي صالح .... بارك الله فيك ..... جزاك الله خيرا في الدنيا والآخرة ....ز. تم المطلوب على أكمل وجه .. يا وجه السعد العفو أخي الكريم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.