كود اخراج النموذج يعمل على جهازى فقط ؟

[SABER_EDP]

السلام عليكم

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

    DoCmd.OutputTo acOutputForm, "ALL_PENDING", "ExcelWorkbook(*.xlsx)", "Y:\ALL_PENDING.xlsx", False, "", 0, acExportQualityScreen
   DoCmd.OutputTo acOutputForm, "total_pending", "ExcelWorkbook(*.xlsx)", "Y:\total_pending.xlsx", False, "", 0, acExportQualityScreen
 

سؤال احر

هل يمكن ارسال النموذج الثانى الى الصفحة الثانية فى الشيت الاول

جزاكم الله خيرا

[jjafferr]

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

 

تحليلي للكود يقول بأن الكمبيوتر الذي يشتغل عليه الكود ، يوجد عليه Mapped Harddrive اسمه Y ، والمجلد الاصلي موجود على الشبكة على كمبيوتر آخر.

اما الكبيوتر الجديد ، فلا يعرف ماهو المجلد Y 

 

جعفر

[SABER_EDP]

اخى جعفر

Y مجلد مشترك  بين الاجهزة

طيب بالنسبة للسؤال الثانى ؟

هل يمكن ارسال النموذج الثانى الى الصفحة الثانية فى الشيت الاول ؟

[jjafferr]

3 دقائق مضت, SABER_EDP said:

Y مجلد مشترك  بين الاجهزة

 

طيب تأكد ان الكمبيوتر الجديد موجود عليه هذا المجلد ،

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

\\Server01\ALL_PENDING.xlsx

 

اما سؤالك ثانيا ، فيجب عمل كود يأخذ الملف  total_pending.xlsx  ، ثم يضيفه الى الملف السابق ، ولا ، لا اعرف هذا الكود ويجب ان ابحث واجرب اولا ، واذا توصلت لنتيجة ، اخبرك عنها  

 

 

جعفر

[SABER_EDP]

توصلت لارسال الى الشيت الثانى  ولكن عن طري ق الجدول  بس التنسيق مختلف

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "total pending", "Y:\ALL_PENDING.xlsx", False, "Total "