الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الربط التلقائى للجداول اعتمادا على جدول بالاسماء

بدأه الاصيل في 19 يوليو 2011 · 8 رد · 1,031 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

السلام عليكم أخوتى جميعا بالمنتدى الحبيب ..

و الله اشتقت اليكم .. لكن غصب عنى ..

بداية للجميع كل عام و أنت بخير و أسال الله العلى الكبير أن يبلغنا رمضان و يرزقنا خيره ..

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

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

و لكن تراودنى فكرة - ستسهل بعض من عملى - و هى تقوم على أننى لدى عدة ملفات اكسيس فى اكثر من فولدر جميعها نسخة واحدة (فى التصميم)مختلفة فى الاسم و المسار المحفوظة بداخلة

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

تم عمل جدول (بالملف المرفق لتضويح الفكرة ) لتحديد اسم كل جدول و مساره و الاسم الجديد الذى سيتم ربطه به نظرا لتكرار الجدول الواحد فى كل الملفات بحيث يكون هذا الجدول المصدر لكود الربط التلقائى

أرجو أن اكون وفقت فى عرض سؤالى

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

الأصيل :)

AutoLink.rar

قال أبن القيم : أكثروا من الخير فينتشر .. و أقلوا من الشر فيندثر ..

#2

السلام عليكم

مجرد تذكير لأخوانى للموضوع

انا لااريد عمل جاهز .. لكن ممكن نتناقش في الفكرة و العمل معا على حلها

و قبل زحمة المباركة برمضان

كل عام و الجميع بخير .. وبلغنا الله رمضان و رزقنا خيره

الأصيل

:)

قال أبن القيم : أكثروا من الخير فينتشر .. و أقلوا من الشر فيندثر ..

#3

أخى الفاضل / عبد الله

جزاك الله خيرا .. على ردك

الرابط وصلته سليمة .. موفق دائما

جارى تنزيل المرفقات بالموضوع المشار اليه

كل عام أنت بخير .. و جميع اخوتى بالمنتدى .. و الامه الاسلاميه جميعا

احببت ان اشكرك أولا

تقبل تحياتى

الأصيل

قال أبن القيم : أكثروا من الخير فينتشر .. و أقلوا من الشر فيندثر ..

#4

أخى الحبيب .. عبدالله

قمت بالأطلاع على المثالين و الحقيقة مشاءالله على الأفكار فالشكر موصول لك و لأخوتى : أحمد مبارك الحيقي - و Abo_Yossof

لكن الهدف منهما كان هو " الاستيراد المؤقت " أما ما أبحث عنه هو " الربط للجداول " و ممكن نستفاد من فكرة الكود للأستيراد و استبدالها بالربط

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

تقبلوا تحياتى

الأصيل

قال أبن القيم : أكثروا من الخير فينتشر .. و أقلوا من الشر فيندثر ..

#5

استخدم هذا الكود للربط

Dim R, N As Integer
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("mylinkpass")
R = rs.RecordCount
For N = 1 To R
DoCmd.TransferDatabase acLink, , rs![SourPass], acTable, rs![TblName], rs![NewName]
rs.MoveNext
Next
rs.Close
Set rs = Nothing

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#6

أخى الفاضل ابو يوسف

السلام عليكم

اشكرك كثيرا على ردك

عندى اشكالية فى الكود الذى تفضلت به

بالنسبة للسطر

Set rs = CurrentDb.OpenRecordset("D:\UntData\Sg3Dt09.mdb")

وضعت مسار القاعدة المطلوب الاستيراد منها.. فهل هذا صحيح ؟

بالنسبة للسطر

DoCmd.TransferDatabase acLink, , rs![sourPass], acTable, rs![TblName], rs![NewName]

ما هو المقصود هنا بــ

SourPass : ما هو المقصود به

: TblName : أى جدول احدده هل هو الجدول المطلوب ربطة ؟ فى حين ان الكود السابق يمر على جداول القاعدة المصدر

NewName : الاسم الجديد ايضا الاسم الجديد لمن ؟

الحقيقة الاشكالية هنا .. أرجو الا اكون قد اثقلت عليك

مع شكرى و تقديرى

تم تعديل هذه المشاركة بواسطة الاصيل في 6 أغسطس 2011 في 13:31

قال أبن القيم : أكثروا من الخير فينتشر .. و أقلوا من الشر فيندثر ..

#7

أخى الكريم

الكود لا يحتاج الى تعديل ان شاء الله

فقط انقله كما هو

بالنسبة للسطر

Set rs = CurrentDb.OpenRecordset("mylinkpass")

لا تغير به شىء ( mylinkpass هو اسم الجدول الموجود به مسارات قواعد البيانات المطلوب الربط بها )

و بالنسبة للسطر

DoCmd.TransferDatabase acLink, , rs![SourPass], acTable, rs![TblName], rs![NewName]

هذه هى اسماء الحقول بالجدول

هذا كل شىء

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#8

أخى الفاضل / ايو يوسف

قمت بوضع الكود فى زر أمر و عند تنفيذه أعطانى الحطأ التالى

Run-time error 2507

النوع ليس نوع قاعدة بيانات مثبته أو أنه لا يعتمد العملية التى اخترتها

رغم انى راجعت على المسار واسم قاعدة البيانات

فماذا يعنى هذا الخطأ ؟

و كان مؤشر الخطأ عند السطر

DoCmd.TransferDatabase acLink, , rs![sourPass], acTable, rs![TblName], rs![NewName]

مع شكرى وتقديرى

الأصيل

قال أبن القيم : أكثروا من الخير فينتشر .. و أقلوا من الشر فيندثر ..

#9

بسيطة أخى

استبدل السطر بهذا (لتحديد نوع قاعدة البيانات )

DoCmd.TransferDatabase acLink, "Microsoft Access", rs![SourPass], acTable, rs![TblName], rs![NewName]

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…