كيف ربط جدول اكسل بقاعدة اكسس باستخدام (function CurDbPath)

تفضل اخي الكريم

اولا : نقوم بعمل وحدة نمطية عامه ونضع بها هذا الكود

Public Function zaAutoLink()
Dim sPath As String
sPath = Application.CurrentProject.Path & "\table.xls"
DoCmd.DeleteObject acTable, "tbl1"
DoCmd.TransferSpreadsheet acLink, 8, "tbl1", sPath, True, ""
End Function

في ميزان حسنات اختي ام عهود وجزاك الله كل خير

ايظا كيف يتم ربط جدول اخر (اكثر من جدول اكسل مرتبط)

ashraf2011 كتب:

في ميزان حسنات اختي ام عهود وجزاك الله كل خير

 

ايظا كيف يتم ربط جدول اخر (اكثر من جدول اكسل مرتبط)

بارك الله بك اخي الكريم

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

بدلا من اقوم بإعادة صياغة الأكواد البرمجية وكتابة اكواد جديده لأن العملية متعبة قليلا في كل مره تعديل واضافة لذا يكون التعب مره واحده والإجابة مرة واحده

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

حتى اقوم بكتابة الأكواد لك من الصفر لأن الكود الأول يكون فقط لملف واحد مرتبط وليس لعدة ملقات 

بالتوفيق

zahrah كتب:

بارك الله بك اخي الكريم

 

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

 

بدلا من اقوم بإعادة صياغة الأكواد البرمجية وكتابة اكواد جديده لأن العملية متعبة قليلا في كل مره تعديل واضافة لذا يكون التعب مره واحده والإجابة مرة واحده

 

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

 

حتى اقوم بكتابة الأكواد لك من الصفر لأن الكود الأول يكون فقط لملف واحد مرتبط وليس لعدة ملقات 

 

 

بالتوفيق

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

PSD2.rar

zahrah كتب:

تفضل اخي الكريم

 

za-PSD2-UP.rar

 

 

بالتوفيق

لا اعرف كيف اشكرك اختي ام عهود فعلا حل جذري ...  

ولكن شكــــــــــــــــــرا +1