انشاء وحدة نمطية لربط كل الجداول من قاعدة بيانات محمية بكلمة مرور

[SABER_EDP]

السلام عليكم

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

شكرا

[عبد الله قدور]

Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strConnect As String
Dim strLinkName As String

strLinkName = strSourceTableName

strConnect = "MS Access;PWD=" & strPassword & _
    ";DATABASE=" & strBEPath
Debug.Print strConnect
Set db = CurrentDb
Set tdf = db.CreateTableDef
tdf.Connect = strConnect
tdf.SourceTableName = strSourceTableName
tdf.Name = strLinkName
db.TableDefs.Append tdf
Set tdf = Nothing
Set db = Nothing

End Function

السلام عليكم

ضع هذا الكود في وحدة نمطية ثم قم باستدعائها بالكود التالي

Call CreateTableLink(path_database,table_name, password)

بحيث path_database هو مسار قاعدة البيانات

و table_name اسم الجدول المراد استيراده

و password كلمة مرور قاعدة البيانات

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

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

 

[رمهان]

يمكن استخدام docmd.transferdatabse  فهو اسهل الطرق ويظهر الجدول 

واعتقد لديك الخبرة الطويلة اخ صابر في توظيفه

تحياتي

[SABER_EDP]

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

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

[رمهان]

19 ساعات مضت, SABER_EDP said:

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

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

معليش استاذ صابر

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

الان تقول بانك تريد الربط ليس جدول جدول وانما للكل

وان هناك تعديلات بالجداول 

هنا حبذا ان تحدد مشكلتك بالتمام لعلنا نفيدك ان شاء الله 

تحياتي

[SABER_EDP]

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

تخياتى  لكم جميعا

[sandanet]

تفضل 

New folder.zip

[شريف ( أبو عبدالرحمن )]

عملت مشاركة لموضوع في المنتدي الرجاء مساعدتي ضروري 

فصل الكلام عن الارقام

[SABER_EDP]

شكرا  اخى الطالب

   نجرب ونعطيكم النتيجة  

سلام عليكم

 

تم تعديل مارس 15, 2017 بواسطه SABER_EDP

[رمهان]

تكرما اخ صابر

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

 

بالتوفيق

[SABER_EDP]

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

الجداول اسمائها  ممكن تغيرها كما تشاء 

 

Link or delete table.zip

[SABER_EDP]

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

تحياتى

[sandanet]

اخي SABER  الم تحل مشكلتك في المرفق الذي وضعته لك؟

[رمهان]

استاذ صابر

هل المرفق السابق تقصد به معلومه وانه تم المطلوب . ام مازال الطلب قائم

تحياتي

الان, sandanet said:

اخي SABER  الم تحل مشكلتك في المرفق الذي وضعته لك؟

اخي اوس

بالعكس مرفقك جميل وقيم وبه المطلوب . ولكن فقط ساحاول الاختصار وما ساشارك به هو نفس فكرتك 

تقبل تحياتي

[sandanet]

طبعا اخي رمهان فشغل الخبراء امثالك لاغنى عنه حتى وان حلت جميع مشاكل الاكسس في العالم نظل بحاجة الى حلولكم السحرية دائماً 

 

تحياتي

[ابوخليل]

في ١٢‏/٣‏/٢٠١٧ at 14:16, SABER_EDP said:

السلام عليكم

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

شكرا

بعد اذن اخواني واحبتي

طلبك موجود هنا

وموضوع خاص به هنا

وستجد فوائد متفرقة  في الرابطين

 

[SABER_EDP]

اشكركم جميعا وتم المطلوب