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

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

بدأه هانى عوض في 7 أبريل 2009 · 4 رد · 357 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

تحياتى أخوانى الكرام

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

Set tdfLinked = _
CurrentDB.CreateTableDef("Sales")
tdfLinked.Connect = ";DATABASE=D:\Delta\Data.mdb"
tdfLinked.SourceTableName = "Sales"
dbsCurrent.TableDefs.Append tdfLinked

ولكن لا أعلم لماذا لايعمل؟؟

فهو يعطينى رسالة خطأ فى تنفيذ السطر الأخير..

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

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

تم تعديل هذه المشاركة بواسطة هانى عوض في 7 أبريل 2009 في 11:47

#2

أخي الكريم، ما هذه dbsCurrent في السطر الأخير؟ لعلك تقصد CurrentDB؟ إذا استبدلت بها CurrentDB فإن الكود يعمل بالفعل...

#3

فعلاً.. :wink:

وشكراً جزيلا على الإيضاح

#4

بل نحن نشكرك على هذه الأفكار الجميلة... أسأل الله أن يفتح علينا جميعاً...

#5

وللفائدة مرفق الكود فى شكله النهائى

	On Error Resume Next
'Delete Old Link
	CurrentDb.TableDefs.Delete "Sales"
'Table Name
	Set TblS = CurrentDb.CreateTableDef("Sales")

'Connect With Database
	TblS.Connect = ";DATABASE=D:\Delta\Data.mdb;pwd=******"

'Source Table
	TblS.SourceTableName = "Sales"

'Append Linked Table
	CurrentDb.TableDefs.Append TblS

طبعاً يجب استبدال كلمة المرور "******" ووضع كلمة المرور الخاصة بالقاعدة

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

	TblS.Connect = ";DATABASE=D:\Delta\Data.mdb"

شكراً للجميع

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

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

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

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

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