SABER_EDP

ممكن نسخة بصيغة zip

المثال الموجود في المنتدى على اكسس 2000 لا يعمل

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

للرفع

يا اخى جعفر عند الشدائد نتذكر الرجال اريد حذف 3 اسطر الاولى وحذف من السطر 534 وحتى النهاية يعنى من السطر الرابع حتى بداية الكلمة textbox54 هو ما اريدة فى الملف وتحويل الملف الى اكسل سلام عليكم SalesByCustomerType.zip

السلام عليكم هل يمكن ايضا الاختيار بين من السطر الرابع مثلا الى السطر2000 او بين كلمتين كلمة فى اول الشيت وكلمة معينة فى الشيت ؟ جزاك الله خيرا جعفر

للرفع

تفضل اخى المطلوب هو تنفيذ الاستعلام رقم 3برسم بيانى New Microsoft Access Database.zip

للرفع

السلاام عليكم بخصوص الرسم البيانى الرسم البيانى بواسطة التاريخ والكمية لا مسكلة فية ابدا المشكلة انى اريد ان يظهر عدد الطلبات وعدد النقلات لكل يوم فى الرسم اليانى يعتى D تاريخ Q الكمية O الطلبات T النقلات عملت استعلام مصدر الرسم البياتى يتضمن كل ذلك ولكن لا يظهر سوى الكمية فى الرسم البيانى يعنى يظهر لى عمود واحد فقط وانا اريد انة يظهر عمود للكمية وعمود للطلبات وعمود لنقلات لكل يوم

نسخة ZIP

افضل شى عند الخوف على البيانات هو تحويلها كما قال الاخ رمهان الى sal serverا االامان فى الاكسس بصفة عامة يمكن كسرة مثل ما هو حاصل الان ولكن لا يمكن الاستغناء عن عشق الاكسس ابدا تحياتى

اشكركم جميعا وتم المطلوب

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

تفضل اخى رمهان قاعدة بيانات بها نموذج لربط او الغاء الربط مع الاكسس والاكسل الجداول اسمائها ممكن تغيرها كما تشاء Link or delete table.zip

شكرا اخى الطالب نجرب ونعطيكم النتيجة سلام عليكم

المطلوب يا استاذ رمهان هو ربط كل الجداول مرة واحدة مع قاغدة بيانات محمية بكلمة مرور؟ تخياتى لكم جميعا

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

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

الحمد لله تم الحل DoCmd.OutputTo acOutputForm, "ALL_PENDING", "ExcelWorkbook(*.xlsx)", "\\PC1689\ Common Folder\Pending\PENDING DELIVERY RECEIPTS - DEPOT.xlsx", False, "", 0, acExportQualityScreen DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "tallpending", "\\PC1689\Common Folder\Pending\PENDING DELIVERY RECEIPTS - DEPOT.xlsx", True, "Total " DoCmd.OutputTo acOutputReport, "PENDING _REPORT", "PDFFormat(*.pdf)", "\\PC1689\ Common Folder\Pending\PENDING DELIVERY RECEIPTS - .pdf ", False, "", 0, acExportQualityScreen Dim mess_body As String Dim appOutLook As Outlook.Application Dim MailOutLook As Outlook.MailItem Set appOutLook = CreateObject("Outlook.Application") Set MailOutLook = appOutLook.CreateItem(olMailItem) Set appOutLook = CreateObject("Outlook.Application") Set MailOutLook = appOutLook.CreateItem(olMailItem) With MailOutLook .BodyFormat = olFormatRichText .To = "اسم الايميل المرسل" .Subject = "عنوان الموضوع" .HTMLBody = "نص الرسالة" .Attachments.Add ("المرفق الاول") .Attachments.Add ("المرفق الثانى") .Send End With

tst-sendemail.zip

Dim LL As String LL = "\\PC1689\ Common Folder\Pending\PENDING DELIVERY RECEIPTS - DEPOT " & "" & Day(Now()) & " - " & Month(Now()) & " - " & Year(Now()) & ".pdf" DoCmd.OutputTo acOutputForm, "ALL_PENDING", "ExcelWorkbook(*.xlsx)", "\\PC1689\ Common Folder\Pending\PENDING DELIVERY RECEIPTS - DEPOT.xlsx", False, "", 0, acExportQualityScreen DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "tallpending", "\\PC1689\ Common Folder\Pending\PENDING DELIVERY RECEIPTS - DEPOT.xlsx", True, "Total " DoCmd.OutputTo acOutputReport, "PENDING _REPORT", "PDFFormat(*.pdf)", LL, False, "", 0, acExportQualityScreen الكود الخاص بالارسال الى الايميل ليس معى

الموضوع واضح انة مش سهل خالص زى ما الاخ رمهان كتب

انا اخرج كل واحد منهم باستخدام docmd.output وبعدين ارفقهم باميل واحد ولكن افضل اخراجهم اليا الى مسار معين وبعدين عن طريق الكود ارفقهم برمجيا فى الايميل كيف يمكن ذلك ؟ جزاكم الله خيرا

شكرا لردك الكريم انا استخدمت docmd.output ولكتن ما المقصورد بالاتمتة؟ يا ليت مثال لونكرمت شكرا مرة احرى يا ريت مثال مضغوظ بzip