دالة تصدير الجداول الى قاعدة اخرى

[مالك2006]

السلام عليكم

المرجوا من الاخوة 

اريد دالة تصدير الجداول فقط الى قاعدة بيانات اخرى

وشكرا

[kkhalifa1960]

تفضل أخي. وافني بالرد .

DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\b.mdb", acTable, "tbl2", "tbl2", False

 

تم تعديل يونيو 14, 2023 بواسطه kkhalifa1960

[شايب]

مشاركة مع الاخ @kkhalifa1960

بداية الاكسس يتيح عملها بدون الحاجة الى اكواد عن طريق استعلام الحاق ويتيح الحاق بيانات من جدول الى اخر في قاعدة اخرى

وكذلك الحال يتيح امكانية انشاء جدول في قاعدة اخرى "البنية والبيانات او البنية فقط"

بالنسبة لمشاركة الاخ خليفة ممكن اجراء تعديل بسيط من خلال انشاء نموذج يتم من خلاله اختيار مسار قاعدة البيانات وعمل قائمة لاختيار متعدد ليمكن تصدير جدول او اكثر بامر واحد

--------------

اخيرا عند الله تجتمع الخصوم

 

Database23.accdb

[ابو جودي]

السلام عليكم ورحمة الله وبركاته

مشاركة مع احبائى واساتذتى الكرام و اثراء للموضوع برجاء مشاهدة هذه المشاركة 

 

[ابو فتحى]

10 ساعات مضت, kkhalifa1960 said:

تفضل أخي. وافني بالرد .

DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\b.mdb", acTable, "tbl2", "tbl2", False

اخى العزيز 

لو القاعده التانى له كلمة مرور 

[شايب]

1 ساعه مضت, ابو فتحى said:

لو القاعده التانى له كلمة مرور 

مع ان السؤال موجه للاخ ابو خليفة ولكن سوف اضع مشاركة ربما ينتفع بها احدهم

وسوف اتحدث عن طريقة واحدة

Dim txPassword As String
txPassword = Me.tx_pas.Value
Dim DB As DAO.Database
Set DB = DBEngine.OpenDatabase(Name:=txtName, Options:=False, ReadOnly:=False, Connect:=";PWD=" & txPassword)

يمكن وضعها قبل امر التصدير

هنا استخدمت متغير نصي لكلمة المرور لكوني انفذ الامر عن طريق نموذج واستخدم مربع نص لادخال الكلمة

اما لو اكتفينا بادخال كلمة المرور عن طريق الكود مباشرة فيمكن استخدام الثوابت بدلل من المتغيرات او الابقاء على المتغير

Const txPassword = "كلمة المرور"

ايضا في السطر الرابع

Name:=txtName

هذا مربع نص يحتوي على مسار قاعدة البيانات ويمكن كتابة اسم القاعدة والمسار مباشرة

اخيرا تطبيق الامر على مثالي السابق ووضعت زري امر واحد للتصدير لقاعدة مفتوحة والاخر لقاعدة مشفرة بكلمة مرور ويمكن دمج الامرين في زر واحد ولكني اكتفي بهذا

 

Database23(1).accdb

[ابو فتحى]

اخى العزيز شايب

اولا : شكرا على الاهتمام 

ثانبا : ممكن نسخة 2003 مع الشكر

[شايب]

في 14‏/6‏/2023 at 14:58, ابو فتحى said:

لو القاعده التانى له كلمة مرور 

 

15 ساعات مضت, ابو فتحى said:

ثانبا : ممكن نسخة 2003 مع الشكر

مع التقدير للاخ ابو فتحي 🌹

انا وضعت الرد السابق ولم انتبه الى ان المداخلة ليست من صاحب الموضوع

وحيث يفترض بصاحب الموضوع متابعة موضوعه

لذا اتوقف هنا