SABER_EDP

اين المبتكرون يا شباب؟

DoCmd.SendObject acForm, "ALL_PENDING", "Excel97-Excel2003Workbook(*.xls)", "sattia@.com.qa", "aahussain@.com.qa;", "", "PENDING DELIVERY RECIPTS ", "Kindly refer to the attached .xls file for the most recent list of Pending Delivery Receipts - ", False, "" DoCmd.SendObject acReport, "PENDING _REPORT", "PDFFormat(*.pdf)", "", "", "", "PENDING DELIVERY RECIPTS FOR ", "Kindly refer to the attached .pdf file for the most recent list of Pending Delivery Receipts - ", False, "" كيف نرسلهم فى ايميل واحد

الهمة يا شباب الاكسس

السلام عليكم اخوانى اريد كود خلف زر امر يرسل تقرير او نموذج بصيغة xlsxواخرى بصيغة pdf الى الاوتلوك فى ايميل واحد شكرا

هل من حل لهذة المشكلة

اين همتكم يا شباب

السلام عليكم كيف يتم ارسال اكثر من مرفق فى الايميل نفسة بواسطة الاكسس الى الاوتلوك؟ انا اريد أرسال مرفق يحتوى على ملف BDFوملف اخر بصيغة XLS فى نفس الايمبل شكرا لكم

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

اهلاا وسهلا بالخبيرة زهرة الاكسس ام عهود

docmd.RunSQL("INSERT INTO [internal-use]( CUST_TYPE, [total odrer], quantity, [Date] ) SELECT [ALL SALES DATA REPORT].CUST_TYPE, Count([ALL SALES DATA REPORT].CUST_TYPE) AS CountOfCUST_TYPE, Sum([ALL SALES DATA REPORT].TOTAL_QTY_DELIVERED) AS SumOfTOTAL_QTY_DELIVERED, [ALL SALES DATA REPORT].Date FROM [ALL SALES DATA REPORT] GROUP BY [ALL SALES DATA REPORT].CUST_TYPE, [ALL SALES DATA REPORT].Date HAVING ((([ALL SALES DATA REPORT].CUST_TYPE)="Woqod Internal Use (Expenses)") AND (([ALL SALES DATA REPORT].Date)=[Forms]![Main]![dd]));") يظهر خطا عند Woqod

توصلت لارسال الى الشيت الثانى ولكن عن طري ق الجدول بس التنسيق مختلف DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "total pending", "Y:\ALL_PENDING.xlsx", False, "Total "

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

السلام عليكم انا عندى نموذجين دائما ارسلهم دائما الى شيت اكسل فى المسار الموضح ولكن عند نقل القاعدة الى جهاز اخر لا يعمل الكود 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 سؤال احر هل يمكن ارسال النموذج الثانى الى الصفحة الثانية فى الشيت الاول جزاكم الله خيرا

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

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

السلام عليكم جزاك الله خيرا انت مبدع ما شاء الله تسلم ايدك

السلام عليكم طلب تحويل ملف من صيغة cvs الى ملف اكسيل بصيغة xls بعد حذف عدد غير معلوم من الاسطر حتى بداية السطر التالى CUSTOMER_NUMBER ولكم الشكر

الاخ العزيز جعفر انت فعلا خبير جزاك الله خيرا الكود ممتاز جدا هل يمكن ان اطلب المزيد؟

السلام عليكم اشكر الاخ جعفر على اهتمامة المطلوب: تحويل ملف اسمة saber.csv الى ملف saber.xlsبعد حذف الاسطر الثلاثة الاولى برمجيا بواسطة الاكسس قبل استيرادة او ربطة بقاعدة البيانات السطر الاول لا يحتوى على اسماء الاعمدة اسماء الاعمدة فى السطر 4 اخوكم صابر

يمشى الحال السطر الاول لا يحتوى على اسماء الاعمدة اسماء الاعمدة فى السطر 4

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

اين عظماء الكود؟

السلام عليكم كيف يمكن حذف الاسطر الثلاثة الاولى برمجيا فى الاكسل بواسطة الاكسس ولكم الشكر

السلام عليكم الاخوة الافاضل . الاخ المراغى جرب الدخول باسم مدير قاعدة البيانات واظهر كافة الكائنات تم قم بتصديرها الى قاعدة بيانات جديدة فارغة ثم قم بازالة الاكسس من الجهاز ثم اعد تنزيلة

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