أبو آدم

إرسال نسخة إحتياطية من التطبيق ، كمرفق ، الى البريد الإلكتروني ، عبر الكود ، من خلال الأكسيس كطلب الأخ الشاعر .... وتطبيق العبد الفقير لرحمة ربه .... نارت لبزو ( أبو آدم ) ..... http://www.officena.net/ib/index.php?showtopic=41784&st=0 ...........

.... يمكنك الإستعانة بالموضوع على الرابط ...... http://www.officena.net/ib/index.php?showtopic=37919 ....

قم بإنشاء وحدة نمطية جديدة وإنسخ اليها : Option Compare Database Type str_DEVMODE RGB As String * 94 End Type Type type_DEVMODE strDeviceName As String * 16 intSpecVersion As Integer intDriverVersion As Integer intSize As Integer intDriverExtra As Integer lngFields As Long intOrientation As Integer intPaperSize As Integer intPaperLength As Integer intPaperWidth As Integer intScale As Integer intCopies As Integer intDefaultSource As Integer intPrintQuality As Integer intColor As Integer intDuplex As Integer intResolution As Integer intTTOption As Integer intCollate As Integer strFormName As String * 16 lngPad As Long lngBits As Long lngPW As Long lngPH As Long lngDFI As Long lngDFr As Long End Type Sub SetupReportPage(InputOrientation As Integer, InputPaperSize As Integer, InputPaperSource As Integer, InputReportName As String) Dim strDevModeExtra As String Dim DevString As str_DEVMODE Dim DM As type_DEVMODE DoCmd.OpenReport InputReportName, acViewDesign DoCmd.Minimize strDevModeExtra = Reports(InputReportName).PrtDevMode DevString.RGB = strDevModeExtra LSet DM = DevString DM.intPaperSize = InputPaperSize DM.intDefaultSource = InputPaperSource DM.intOrientation = InputOrientation LSet DevString = DM Reports(InputReportName).PrtDevMode = DevString.RGB DoCmd.Close acReport, InputReportName, acSaveYes End Sub يكون مصدر التقرير إستعلام (بدون شروط تخص حجم الورقة) ، وفي زر أمر في النموذج ، إنسخ في حدث عند الضغط ، الكود التالي: Private Sub Command1_Click() If RecordCount <= 5 Then SetupReportPage 2, 11, 4, "Rep1" DoCmd.OpenReport "Rep1", acViewPreview Reports!Rep1!Text9 = Printer.PaperSize Else SetupReportPage 2, 9, 4, "Rep1" DoCmd.OpenReport "Rep1", acViewPreview End If End Sub اذا كان عدد القيود يساوي أو أقل من 5 ، سيقوم بإختيار الطباعة على ورق A5 اذا كان عدد القيود غير ذلك ، سيقوم بإختيار الطباعة على ورق A4 جربت الكود لدي وأمورة تمام ... جرب ووافني بالنتيجة ..... .......................

SELECT … WHERE جملة WHERE وتصفية السجلات. يتم استخدام جملة WHERE لاستخراج ، فقط ، تلك السجلات التي تفي بمعيار محدد. بناء الجملة SQL SELECT … WHERE Syntax SELECT column_name(s) FROM table_name WHERE column_name operator value وحيث نريد تحديد الاشخاص الذين يقطنون في مدينة "" من الحقل City من الجدول Employees ، نستخدم عبارة SELECT WHERE التالية : SELECT Employees.City, * FROM Employees WHERE (((Employees.City)=”Seattle”)); ويكون شكل result-set كما في الاستعلام Q_WHERE NA_NorthwindSQL.rar

الجزء 2 سنقوم ضمن هذا الجزء بشرح تطبيقات عملية وبعض دقائق الأمور الحاسمة و المهمة ، كي نتمكن من إستخدام SQL بسهولة ويسر . ومن خلال هذا الفصل سيتم شرح وتفصيل جملة (عبارة) SELECT وتستخدم عبارة SELECT لتحديد البيانات من قاعدة بيانات ، ويتم تخزين النتيجة في جدول النتيجة، المسمى ( مجموعة النتيجة ) result-set . SELECT بناء الجملة SQL SELECT Syntax SELECT column_name(s) FROM table_name و .... SELECT * FROM table_name[/right] ومثال ذلك تعاملنا مع الجدول Employees من قاعدة البيانات المختارة للتطبيق Northwind نريد تحديد مضمون الأعمدة "LastName" و "FirstName" من الجدول Employees ، فنستخدم العبارة التالية : SELECT LastName,FirstName FROM Employees أو SELECT Employees .LastName, Employees .FirstName FROM Employees; SELECT Employees .* FROM Employees; فائدة : النجمة (*) هو وسيلة سريعة لتحديد كافة الأعمدة! ويكون شكل result-set كما كما في الاستعلام Q_SelectAll ....................................... NA_NorthwindSQL.rar ويكون شكل result-set كما في الاستعلام Q_Select SELECT * نريد تحديد كافة الأعمدة من الجدول Employees ، فنستخدم العبارة التالية : SELECT * FROM Employees أو

حسب وصف الأخ عبدالله لا يحقق المصلحة لديه الحذف الوهمي لذا لا بد كما تفضلت من الحذف الفعلي من الجداول الأساسية و الحاقها بالجداول او الجدول المعني ..............

التنقلات حالة وظيفية يمكن أن تتكرر ، بالإضافة لكونها طارئة أو عادية ولكنها لا تشمل كافة الموظفين لذا (والله أعلم) يفضل أن تكون بجدول مستقل مرتبط بمنظومة من المعلومات تشمل الدائرة السابقة - عند النقل - و الدائرة الحالية و التواريخ اللازمة والقرارات الخاصة بالنقل وهكذا ... إنهاء الخدمات - بتعدد أسبابها - حالة عادية شاملة تتصل بكافة الموظفين ، فما من موظف الا وستنتهي خدماته في المؤسسة - فاذا كانت معلومات الإنهاء بسيطة لا تتعدي التاريخ و السبب و حقل (نعم/لا) أجعلها في العادة - ولا ضير في ذلك - في جدول الموظفين، رغم أن الأفضل أن تكون بموجب جدول مستقل مرتبط . .............

لا يمكن الإضافة من خلال النموذج كون مصدر السجل إستعلام لجدولين مرتبطين ......................

أخي الاستاذ عبدالله كنت اتفقت مع الأستاذ ابو خليل حسب تعديلاته على استخدام S_No كحقل فريد تم التعديل حيث كان الماكرو يبحث عن اسم النموذج وشرط الرقم الوظيفي بمسماه العربي القديم أصبح يبحث عن اسم النموذج الجديد و شرط الرقم الفريد S_No تفضل .... عبدالله المجرب4.zip

أخي محمد أيمن ذكّرتني بإحدى مشاركاتي في احد المواقع الأجنبية ، حيث قدمت كودأ للتعامل مع Outlook كوسيط محايد يقبل جميع الأطراف ويقبله جميع الأطراف ، الحذر منهم وغير الحذر ، وتم الإعتراض بنفس المبدأ " البعض لا يحب التعامل مع Outlook ، هل نجبرهم على التعامل معه ". ولكنني هنا أعود اليك بنفس الحلّ ، وهو التعامل مع كود لإرسال الرسائل و عبر Outlook ، فما رأيك ..!!؟؟؟ ................

شكراً أخي الشاعر على كلامك الطيب آملاً أن تستفيد من التطبيق أخي محمد أيمن سأنظر في التعديل من الزاية التي تحدثت عنها (في التطبيق الذي عدّلت عليه) ...............

قيد الإجراء ... وأتمنى ارفاق مثال للتطبيق والتعديل ..........

حياك الله أخي عبدالله بك بين إخوتك بعد أن تقدم الأستاذ أبو خليل بحلولة الطيبة لكم ، وبما أننا تحدثنا عن تغييرات جوهرية أود أن أنبه ببعض الأسئلة توضيحاً لا غير لماذا يحدث (حتى في الواقع) تكرار في الرقم الوظيفي فلا أظن أنه يصح تحت أي ظرف أن يحمل أكثر من موظف نفس الرقم الوظيفي لماذا يكون العمر حقل في جدول وهو متغيير زمني لماذا تكون فترة الخدمة حقل في جدول وهي متغير زمني مع الاحترام والتقدير للجميع ...............

إخوتي الفضلاء لم يتم إختيار gmail عبثاً بعد إرسال مجموعة تجريبية من الرسائل عبر hotmail قام بارسالها الى Spam وبعد إستمرار الإرسال قام بإيقاف الإرسال من البرامج الخارجية و زودني التطبيق برسالة الخطأ التالية حيث يطلب تسجيل الدخول بشكل رسمي والى صندوق الرسائل في بريدي الالكتروني تم إرسال الرسالة التالية و أرى من الصعوبة بمكان تجنب هذه المسألة و لا أرى عيباً في إستخدام gmail مادام يتيح لنا ما نحتاج ،،، ( فقد إستغربت من عدم الرغبة بإستخدامه) شاكراً ومقدراً سعة صدركم

قيد التعديل للإرسال عن طريق gmail , hotmail ..............

حاولت أخي العزيز ولكن الحقل id_item فارغ يرجى تعبئة الحقل واعادة ارفاق التطبيق كي نتأكد من النتائج قبل ارفاق التعديل شكراً .........

إخوتي الفضلاء كل التقدير و الاحترام للأستاذ أبو خليل على جهده في تطبيق النسخ الإحتياطي تماشياً مع مطلب الأخ الفاضل الشاعر ، و توافقه مع الأخ محمد أيمن على تطبيق الأخ أبو خليل الخاص بإنشاء نسخ احتياطي لجداول القاعدة الحالية ، فقد قمت بتطبيق تصوري للفكرة المطلوبة واختصرت ما استطعت. واختصاراً لمراحل التطبيق : يتم إنشاء النسخة الاحتياطية وتخزينها بتذييل dat في D:\BackUp ، وذلك عند تحميل النموذج frmTEST على المعني وضع عنوان البريد الالكتروني للمرسل اليه كقيمة افتراضية Default Value للحقل txtGmailTo على المعني وضع عنوان البريد الالكتروني للمرسل كقيمة افتراضية Default Value للحقل txtGmailFrom وعند فتح النموذج frmTEST ، يظهر في أعلى النموذج حقل عنوانه Attachment Path ويحمل مسار ملف النسخ الاحتياطي الأخير و المنوي إرفاقه بالبريد الإلكتروني . وبحكم أن عنوان البريد الالكتروني للمرسل اليه و عنوان البريد الالكتروني للمرسل مثبت في الحقول كقيمة افتراضية ، يبقى على المستخدم وضع كلمة المرور لبريد المرسل ، و الضغط على زر الأمر الوحيد في النموذج (Send a Test Email ) مهلة و إنتظار بسيط ثم تظهر رسالة تفيد بنتيجة الإرسال وهي True في حال حدوث خطأ تظهر رسائل واضحة مفصلة بالخطأ جربت التطبيق بما فيه الكفاية للتأكد من فاعليته وأدائه جربوا المرفق ووافوني بالنتيجة والله من وراء القصد ... وهو حسبي ................... NA_BackUpSendGmail2012.zip

قيد التنفيذ .... ................

أخي محمد أيمن هذا كان مثالاً ، وليس إقراراً بان التطبيق الذي أرفقته هو كذلك ما أتحدث عنه ، حدث فعلاً ، فأنا كنت أتحدث في قرارة نفسي عن تطبيق مستقل (مثل الأداة المساعدة ) ، أي العمل من خارج التطبيق بحيث تكون أداة استخدام عام وتنفعنا في تطبيقاتنا كافة ، ولكن الأخ الشاعر يتحدث عن كبسة زر أمر خلفها أوامر محددة تقوم بما يريد دون تدخل من المستخدم ، سوى في تحديد البريد الالكتروني للمرسل اليه. لذا نطلب من الأخ الشاعر إمهالي قليلاً لإعادة التفكير في الأمر ......... ............

في التقرير مصدر معومات الحقل control source (أول تاريخ) =DMin("empb","tblEmployees") مصدر معلومات الحقل control source (آخر تاريخ) =DMax("empb","tblEmployees") والله من وراء القصد ... وهو حسبي ......

أخي محمد أيمن جزيت خيراً على المساهمة ومبادرتك ، تلك الخصال الطيبة التي تميز شخصيتك ولكننا بحاجة لتفاصيل كثيرة عن قاعدة البيانات التي سيتم التطبيق عليها كي نحدد مسار و روتينات التطبيق فالعام على عمومه والخاص يقدر بقدره فقد ترسم بمخيلتك روتيناً وتقوم بتطبيقه ويكون غير مناسب لقاعدة ما (لا يمكن تعديلها) فيصبح التطبيق غير مناسب رغم الجهد المبذول فيه كان تكون القاعدة غير مجزأة ، ويكون تطبيقك ينصب علي نسخها إحتياطياً (كاملة) ، وحاجة الأخ تتمركز حول نسخ الجداول فقط ؟ لذا ما زلنا بحاجة لتداخلات الاخ الشاعر ................

ما زلنا في البداية ...

الروتين المقترح : مجلد مخصص لحفظ ملف النسخ الاحتياطي على :D إجراء النسخ الاحتياطي من خارج قاعدة البيانات ، وإرسال النسخة الى الملف المحدد تحديد عنوان البريد الالكتروني للمرسل اليه ارسال رسالة تحوي ملف مرفق Attachment يحتوى النسخة الاحتياطية التطبيق ممكن ومتاح ولكنه يحتاج بعض الوقت للتطبيق و التحليل الدقيق هل هذا يناسبك ... !؟ ...........

ما وصلت له جيد جداً من ناحية مطابقته لفكرتك ولكنني ما زلت بحاجة لأن أعرف ما هي الفكرة الاساسية كي اتمكن من مساعدتك !! ...........

أخي العزيز مسألة مقارنة الحقول في نفس السجل مسألة غير متصورة كثيراً كونها - وأصدقك القول - لم تمَر حاجاتها معي في حياتي البرمجية. ومنذ ظهر أمس وأنا أفكر في مسألة يلزمني فيها أن أقارن كل حقل بسابقه في النموذج وقبل حفظ السجل ، فلم يخطر ببالي شيئ أريد منك اذا سمحت أن توضح لي ما دفعك لمثل هذه الحاجة ؟ ............