صالح حمادي قام بنشر يونيو 30, 2016 قام بنشر يونيو 30, 2016 السلام عليكم... تقبل الله منكم الصيام و القيام. إخوتي في الله بعد إستراد ملف أكسل إلى ملف أكسس أريد أن أضيف أسماء الأوراق (sheet) إلى قائمة منسدلة تلقائيا يعني كلما أستورد ملف أكسل أجد أسماء الشيت في هذه القائمة المنسدلة. و الله المستعان جزاكم الله كل خير.
رمهان قام بنشر يونيو 30, 2016 قام بنشر يونيو 30, 2016 (معدل) مرحبا اخ صالح خلينا نضع التصور الصحيح اولا وقبل التنفيذ فمثلا اضافة اسماء الاوراق بعد استيراد الملف يحتاج الى اعادة السناريو فالاكسس اصلا يستورد ورقة واحدة كل عملية استيراد معناته اسماء الاوراق بتنضاف في قائمة عند تحديد الملف وقبل الاستيراد ثم تحدد اي ورقة من القائمه ليتم استيرادها هذا وعذرا فانا اكتب من الموبايل كما لو مرفق بسيط للمطلوب وسيتم باذن الله التنفيذ ولكن بعد رسم السيناريو الصحيح تحياتي تم تعديل يونيو 30, 2016 بواسطه رمهان
صالح حمادي قام بنشر يوليو 1, 2016 الكاتب قام بنشر يوليو 1, 2016 (معدل) أهلين أستاذ رمهان. أخي لا أعرف ماذا أقول لقد وضعت يدك على الجرح تماما فهذا هو المطلوب بالضبط لكني أنا لم أعرف أوصل الفكرة. المهم الآن أنه وصلت و خلاص. تفضل أخي الكريم هذا الملف الذي طلبته من أجل التنفيذ. جزيت خير الجزاء إن شاء الله. استيراد.rar تم تعديل يوليو 1, 2016 بواسطه صالح حمادي
صالح حمادي قام بنشر يوليو 1, 2016 الكاتب قام بنشر يوليو 1, 2016 هذا هو البرنامج مع ملف أكسل. إن شاء الله تكون وصلت الفكرة أخي استيراد.rar
رمهان قام بنشر يوليو 1, 2016 قام بنشر يوليو 1, 2016 منذ ساعه, صالح حمادي said: أهلين أستاذ رمهان. أخي لا أعرف ماذا أقول لقد وضعت يدك على الجرح تماما فهذا هو المطلوب بالضبط لكني أنا لم أعرف أوصل الفكرة. المهم الآن أنه وصلت و خلاص. تفضل أخي الكريم هذا الملف الذي طلبته من أجل التنفيذ. جزيت خير الجزاء إن شاء الله. استيراد.rar تفضل مع ملاحظة تغيير اسم السرد الى sheets لان name كلمة محجوزه بالتوفيق استيراد.rar 1
صالح حمادي قام بنشر يوليو 1, 2016 الكاتب قام بنشر يوليو 1, 2016 بارك الله لك و عليك و أثابك الجنة إن شاء الله الكود يعمل بشكل ممتاز أخي لدي بعض الأسئلة شرح هذا السطر و ما هي فائدة الكلمة set Set xl = GetObject(.SelectedItems(1)) لماذا لم تقم بتعريف x1 و شرح هذا السطر sheets.AddItem xl.sheets(i).name مشكور أخي على كل اللي عملته. 1
رمهان قام بنشر يوليو 1, 2016 قام بنشر يوليو 1, 2016 6 دقائق مضت, صالح حمادي said: بارك الله لك و عليك و أثابك الجنة إن شاء الله الكود يعمل بشكل ممتاز أخي لدي بعض الأسئلة شرح هذا السطر و ما هي فائدة الكلمة set Set xl = GetObject(.SelectedItems(1)) لماذا لم تقم بتعريف x1 و شرح هذا السطر sheets.AddItem xl.sheets(i).name مشكور أخي على كل اللي عملته. المتغير xl نوعه كائن وسيعرفه الاكسس ضمنيا لان القيمة له هي كائن ولكي تسند قيمة لمتغير نوعه كائن او سيحمل قيمة من نوع كائن لابد من استخدام كلمة set معناته اصلا ممكن نقول او المستحب dim xl as object 10 دقائق مضت, صالح حمادي said: sheets.AddItem xl.sheets(i).name هذا استخدمت طريقة additem لمربع السرد وفائدتها اضافة قيم للسرد والقيم هنا اصبحت ناتج الدوران على شيتات الملف واخذ اسم الشيت في كل دورة بالتوفيق 1
صالح حمادي قام بنشر يوليو 1, 2016 الكاتب قام بنشر يوليو 1, 2016 ما شاء الله أخي لما أكون معكم أحس نفسي أقل من مبتدى نفعني الله و إياكم بعلمه و بدل خطاياكم حسنات إن شاء الله أخي رمهان هل هذا الماكرو TransferSpreadsheet موجود في أكسس 2007
رمهان قام بنشر يوليو 1, 2016 قام بنشر يوليو 1, 2016 عزيزي لاحظت اخيرا في ملفك وفي السطر DoCmd.TransferSpreadsheet zaImportAllSheets العبارة zaImportAllSheets ولا اعلم من اين اتيت بها ! القيم محدد هنا acimport , acexport,aclink فيمكنك كتابة الامر DoCmd.TransferSpreadsheet ثم مسافة ستحصل على الخيارات المتاحة ويمكنك تركها فارغه لخيار الاستيراد كما في طلبك وهو الخيار الافتراضي تحياتي
صالح حمادي قام بنشر يوليو 1, 2016 الكاتب قام بنشر يوليو 1, 2016 2 دقائق مضت, رمهان said: لعبارة zaImportAllSheets ولا اعلم من اين اتيت بها ! القيم محدد هنا acimport , acexport,aclink خلال بحثي عن طريق تمكنني من إستراد جميع أوراق (شيت) ملف الأكسل وجدت هذه العبارة في إحدى المنتديات و سوف أبحث عنها إن وجدتها سوف أزودك بالرابط أخي الكريم. أنا مازلت أجهل طرق الإسناد إذا كان لديك رابط أو ملف pdf يفيدني في هذا الأمر أحسن الله لك و لوالديك حبيبي
رمهان قام بنشر يوليو 1, 2016 قام بنشر يوليو 1, 2016 6 دقائق مضت, صالح حمادي said: أخي رمهان هل هذا الماكرو TransferSpreadsheet موجود في أكسس 2007 هي موجودة من 2003 ! وماقبل لا اعلم تحياتي
صالح حمادي قام بنشر يوليو 1, 2016 الكاتب قام بنشر يوليو 1, 2016 لكني لم أجدها عندي أنا أستخدم أكسس 2007 و هذا هو الرابط الذي أخبرتك به http://arabteam2000-forum.com/index.php?/topic/266790-استيراد-جميع-أوراق-الأكسل-إلى-أكسس/ 1
رمهان قام بنشر يوليو 1, 2016 قام بنشر يوليو 1, 2016 2 دقائق مضت, صالح حمادي said: لكني لم أجدها عندي أنا أستخدم أكسس 2007 ImportExportSpreadsheet 5 دقائق مضت, صالح حمادي said: خلال بحثي عن طريق تمكنني من إستراد جميع أوراق (شيت) ملف الأكسل وجدت هذه العبارة في إحدى المنتديات و سوف أبحث عنها إن وجدتها سوف أزودك بالرابط أخي الكريم. أنا مازلت أجهل طرق الإسناد إذا كان لديك رابط أو ملف pdf يفيدني في هذا الأمر أحسن الله لك و لوالديك حبيبي https://www.google.com.sa/search?safe=active&biw=1280&bih=649&q=المتغيرات+واسناد+القيم+فيجول+بيسك&oq=المتغيرات+واسناد+القيم+فيجول+بيسك&gs_l=serp.3...4398.21456.0.21738.36.33.0.3.3.0.397.5373.0j5j16j1.22.0....0...1c.1.64.serp..11.16.3370...0j0i10i1i67j0i10i1j0i3j0i131j0i67j0i22i30j30i10j33i21.OnG0o7X2fd8 1
صالح حمادي قام بنشر يوليو 1, 2016 الكاتب قام بنشر يوليو 1, 2016 حتى هذه لم أجدها أخي. لا أدري أين الإختلاف
رمهان قام بنشر يوليو 1, 2016 قام بنشر يوليو 1, 2016 (معدل) الان, صالح حمادي said: حتى هذه لم أجدها أخي. لا أدري أين الإختلاف عند فتح الماكرو >> انظر اعلى في الشريط واختر "اظهار كل الاحداث" لكي تظهر جميع اوامر الماكرو هذا ن احسنت الترجمة ! تم تعديل يوليو 1, 2016 بواسطه رمهان 1
صالح حمادي قام بنشر يوليو 1, 2016 الكاتب قام بنشر يوليو 1, 2016 آسف لقد أتعبتك معي لقد وجدتها بالفعل الله يجزيك على تعبك معي فأنا اقل من مستوى و لا أدري كيف أعيد لك جميلك هذا غير الدعاء لك 1
رمهان قام بنشر يوليو 1, 2016 قام بنشر يوليو 1, 2016 الان, صالح حمادي said: آسف لقد أتعبتك معي لقد وجدتها بالفعل الله يجزيك على تعبك معي فأنا اقل من مستوى و لا أدري كيف أعيد لك جميلك هذا غير الدعاء لك حياك الله اخي صالح وصدقني انت تستاهل كل خير فانت من الاعضاء الذي بفيد قبل ان يستفيد ! تحياتي 1
صالح حمادي قام بنشر يوليو 1, 2016 الكاتب قام بنشر يوليو 1, 2016 بارك الله فيك أخي كلامك هذا يسرني كثيرا و شهادة أعتز بها تقبل الله صيامك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.