طريقة إضافة زر في النموذج استيراد حقول معينه من الاكسل إلى الاكسس

[صدى الحرف]

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

 

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

 

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

 

 

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

 

غير الطريقة التقليدية 

 

عن طريق ضغط زر يفتح لي المتصفح لتحديد الملف المراد جلب البيانات منه ومن ثم تحديد اي ورقة ومن ثم اضافتها للجدول 

 

 

وآسف على الإطالة 

 

والسلام عليكم .،.،.

[Elsayed Bn Gemy]

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

 

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

Dim filepath As String
filepath = "C:\Users\sedo\Documents\mared.xlsx"
DoCmd.TransferSpreadsheet acImport, , "importfromexcel", filepath, True

بتحدد مكان شيت الاكسل

importfromexcel اسم الجدول اللى هيظهر عندك فى قاعدة البينات

 

وتضع الكود دا فى اى زر مثلا

واول ما تضغط هييستورد شيت الاكسل كله ويحوله الى جدول 

[صدى الحرف]

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

 

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

Dim filepath As String
filepath = "C:\Users\sedo\Documents\mared.xlsx"
DoCmd.TransferSpreadsheet acImport, , "importfromexcel", filepath, True

بتحدد مكان شيت الاكسل

importfromexcel اسم الجدول اللى هيظهر عندك فى قاعدة البينات

 

وتضع الكود دا فى اى زر مثلا

واول ما تضغط هييستورد شيت الاكسل كله ويحوله الى جدول 

 

 

اشكرك اخوي على ردك

 

الحمد لله وجدت ما كنت ابحث عنه في هالصرح الشامخ

 

http://www.officena.net/ib/index.php?showtopic=59065