أبو آدم

و للتوضيح فقط .... أقول هذا "حوار علمي محترم" شكرا لكم "لا يفتى و الآنسي في المنتدى" .....

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

السلام عليكم ورحمة الله وبركاته حياك الله اخي العزيز نرحب بك وبطيب قولك وطرحك تم تعديل العنوان لتوضيح الدلالة ، راجيا الالتزام لاحقا أرجو ان تجد مبتغاك في منتدانا ودمت بخير ..........

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

أخي العزيز أولا : سيتم تعديل العنوان يرجى التلطف بالالتزام بقواعد المشاركة بالمنتدى http://www.officena.net/Tips/Questions.htm ثانيا : أذا كنت قد احسنت الفهم عنك في المرفق إظهار بيانات الصيانة للسيارة في النموذج الفرعي ، عند إختيار رقم السيارة من مربع التحرير و السرد في النموذج الرئيسي تفضل مشاركتك مع بعض التعديلات .... ...... فواتير الصيانة_A.rar

أخي العزيز يرجى توضيح معنى (اركاب) !! ومن ثم احتاج بعض التفاصيل عن قاعدة البيانات بقية جداولها ، لاحسان بناء الفكرة والله من وراء القصد .... .....

أخي يزن ما تطلبه كنت قد أنجزته ، ولكنني وددت أن تطلبه بعد أن تبحث فيه ، فإن لم تصل اليه حققنا حاجتك بإذن الله وفضله . حتى يسير إستدعاء إجازات الموظف بشكل يسير ، نقوم بإنشاء جدول مؤقت في قاعدتنا مطابق بهيكله لجدول الاجازات المستخدمة hol ونسميه هنا MyV ، ونقوم كبر الكود التالي بالاتصال بقاعدة البيانات وبجدول hol لاستخراج الاجازات العائدة لموظفنا وإضافة سجلات هذه الاجازات للجدول في قاعدتنا ، ومن ثم عرضها بموجب النموذج nart lebzo – info ، عبر زر أمر للأرصدة . قمت عزيزي باجراء بعض التعديلات على الجدوال ، كنت قد اعتبرت ايام بداية الاجازة وانتهائها وتاريخ العودة للعمل كنص ، فاعدتها لاصلها كتاريخ ، كما قمت باجراء كثير من التعديلات على النموذج nart lebzo – info باسناده للجدول الجديد ، واسناد قيمة الحقل المخفي للرقم الضريبي و حقل اسم الموظف للنموذج الرئيسي، وتصحيح جملة احتساب عدد أيام الاجازة والرصيد ، وعند كل طلب للرصيد يقوم الكود بالغاء سجلات الجدول المؤقت ، واستدعاء سجلات جديدة منعا للاختلاط والتراكم. أما الكود فهو : DoCmd.SetWarnings False DoCmd.RunSQL "DELETE MYV.* FROM MYV;" DoCmd.SetWarnings True '.... Dim DB As DAO.Database Dim Rst As DAO.Recordset Dim Rst1 As DAO.Recordset Set DB = DBEngine.Workspaces(0).OpenDatabase("C:\c\EV.mdb") Set Rst = DB.OpenRecordset("hol") Set Rst1 = CurrentDb.OpenRecordset("MYV") Rst.MoveLast Rst.MoveFirst Do Until Rst.EOF If Rst!ID = Me.MyStr Then Rst1.AddNew Rst1!ID = Me.MyStr Rst1!name_w1 = Rst!name_w Rst1!name_h1 = Rst!name_h Rst1!a1 = Rst!a Rst1!date1 = Rst!date Rst1!date21 = Rst!date2 Rst1!location1 = Rst!location Rst1.Update Rst1.Bookmark = Rst1.LastModified End If Rst.MoveNext Loop Rst.Close Set Rst = Nothing Set DB = Nothing DoCmd.OpenForm "nart lebzo - info" End Sub المرفق يحتوي كامل التعديلات والله من وراء القصد .... ...... EV-NA.rar

أخي العزيز أعذرني على السؤال ولكن لماذا لا تجمع جميع هذه القواعد و الجداول في قاعدة واحدة ؟؟!! وحال وجود مانع ... لا بأس ! ويفضل ارفاق مثال ليتم الإجابة على تساؤلك ....

اخي العزيز يزن هذه الطلبات غير متفق عليها وترفع الاسعار كثيرا.... اصبح لي بذمتك دعوتين بظهر الغيب ..... وَلَكِنَّكُمْ تَسْتَعْجِلُونَ .....

أخي العزيز لم تكن هناك اطالة ولكن هناك عدم وضوح يرجى تحديد امتداد الملفات التي تتحدث عنهاوالتي سنقوم بالبحث فيها؟ سيتم تعديل العنوان لاحقا يرجى التلطف بالالتزام بقواعد المشاركة بالمنتدى http://www.officena.net/Tips/Questions.htm

حياك الله أخي العزيز وانا بانتظارك .... ومش مزحة

أخي العزيز قسمك عظيم ،،، اقشعرت أوصالي من كلماتك ... فالحمد لله الذي بفضله تقضى الحاجات لي عندك دعوة خير بظهر الغيب الله من وراء القصد ...

أخي العزيز يزن اليك فكرة أولية قابلة للتحديث و التطوير حسب الظروف والامكانات راعيت فيها الخطة التي طرحتها عليك في تثبيت قاعدة تحوي نموذج طلب الاجازة على جهاز كل موظف وتكون قاعدة البيانات التي تحتوي الجداول مثبتة على الخادم الرئيسي (السيرفر) . حيث يتمكن كل موظف من تثبيت طلب اجازته من جهازه الخاص بانتظار الموافقة من الادارة ، كما راعيت مسألة الحماية التي تفكر انت بها ... ولكن بطريقتي الخاصة و التي تعتمد على تقنين المعلومة التي نزود بها المستخدم ونضبط حجم المعلومة وطريقة الحصول عليها برمجيا. هنا افترض بانك قادر على التعامل مع الفكرة ، بتدخلات برمجية عند اللزوم ونحن في العون ما قدر لنا. أخي العزيز يمكن بكل بساطة تنفيذ الفكرة بانشاء النموذج وربط قاعدة البيانات على جهاز الموظف بقاعدة البيانات على الخادم ، ويستخدم الموظف رقمه الوظيفي ويستكمل الاجراءات . ولكن الارتباط اعلاه بين القاعدتين يمثل ضغطا عليها وخاصة عند كثرة المستخدمين ، ولاسباب تتعلق بالحماية ومنع المستخدم من الاطلاع على معلومات تتعلق ببقية الموظفين أو تقديم اجازات وهمية لموظف آخر ، سنقوم باستخدام طريقة غير تقليدية ، يمكن تطبيقها ببساطة شديدة ويمكن تعقيدها وزيادة ضوابطها وشروطها البرمجية حسب طريقة التعامل و الحاجة وأهمية قاعدة البيانات ،،، وتتمثل فيما يلي: القاعدة تتشكل من نموذج واحد فقط ، بدون جداول ولا حتى جداول مرتبطة في النموذج حقل غير منضم غير مرئي MyStr تكون القيمة الافتراضية له الرقم الوظيفي للموظف المستخدم والقيمة في هذا المثال 4. في النموذج مجموعة حقول غير منضمة لإدخال معلومات طلب الاجازة في الكود المرفق، سيتم لديك تغيير ما يلي : الموقع المفترض لقاعدة البيانات على السيرفر (يتم تغييره عند التطبيق حسب الموقع الفعلي) حيث سميت قاعدة بياناتك باسم EV تجنبا للتسميات العربية ومشاكلها في بعض الاحيان ضمن الكودات : \\SERVER\JB Employee20090504\EV.mdb الاسم المفترض لجدول الموظفين في قاعدة بياناتك emp . الاسم المفترض للجدول المستهدف بتسجيل طلب الاجازة tblEVO أعدت تسميته تجنبا للتسميات العربية ومشاكلها في بعض الاحيان ضمن الكودات . الروتين كما يلي : عند فتح النموذج يتم الاتصال بقاعدة البيانات وفتح جدول emp ومطابقة الرقم في الحقل MyStr في النموذج مع الارقام الوظيفية في الجدول وجلب الرقم الوظيفي المطابق و اسم الموظف للنموذج وإظهارها. عند تعبئة معلومات الاجازة والنقر على زر الأمر في النموذج يتم الاتصال بقاعدة البيانات وفتح جدول tblEVO وإضافة سجل جديد بطلب الاجازة بإضافة قيم كل حقل في النموذج لمكانها المناسب في الجدول . أما الكودات ببساطة فهي Private Sub Command8_Click() Dim DB As DAO.Database Dim Rst As DAO.Recordset Set DB = DBEngine.Workspaces(0).OpenDatabase("\\SERVER\JB Employee20090504\EV.mdb") Set Rst = DB.OpenRecordset("tblEVO") Rst.AddNew Rst!Emp_ID = Me.MyStr Rst!Date = Me.strStart Rst!Date2 = Me.strEnd Rst!A = Me.strDays Rst.Update Rst.Bookmark = Rst.LastModified Rst.Close Set Rst = Nothing Set DB = Nothing MsgBox "تم ترحيل الاجازة", vbCritical, ترحيل End Sub Private Sub Form_Open(Cancel As Integer) Dim DB As DAO.Database Dim Rst As DAO.Recordset Set DB = DBEngine.Workspaces(0).OpenDatabase("\\SERVER\JB Employee20090504\EV.mdb") Set Rst = DB.OpenRecordset("emp") Do While Not Rst.EOF If Me.MyStr = Rst!ID Then Me.strID = Rst!ID Me.strName = Rst!Name Exit Do End If Rst.MoveNext Loop Rst.Close Set Rst = Nothing Set DB = Nothing End Sub كل ما عليك فعله هو وضع قاعدة البيانات EV في مكانها الذي تراه مناسبا على السيرفر ، أجري التعديلات حسب ما ورد أعلاه لموقع قاعدة البيانات بتحديد المسار الجديد داخل الكود . جرب ووافني بالنتيجة .... والله من وراء القصد .... ..... EV.rar NA_VacationRequest.rar

أخي العزيز عذرا للتأخير ... طلبك غير مهمل وهو قيد العمل ....

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

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

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

أخي العزيز أستخدمت الكود أكثر من مرة ونجح بفضل الله إن كان الأمر متاحا ارفق لنا ما تشاء حتى نسعى لك بالأمر !! .....

شكرا تم تعديل المرفق ، مع خطوة للأمام (في العجلة الندامة) NA_EmpProj_3.rar

أخي العزيز استخدمنا خاصية البحث في المنتدى ووجدنا الكثير ومنها: http://www.officena.net/ib/index.php?showtopic=3802 http://www.officena.net/ib/index.php?showtopic=33553 http://www.officena.net/ib/index.php?showtopic=5607 http://www.officena.net/ib/index.php?showtopic=10102 وغيرها الكثير ،، تجول في هذه المشاركات وستجد جوابنا لما تريد ويبقى السؤال متاحا ... ....

أخي العزيز شكرا للتواصل ... واذا كنت قد أحسنت الفهم عنك .... نموذج بالحقول التي تراها مناسبة منها حقل غير منضم يحمل قيمة جديدة لحقل مستهدف بالتحديث في جدول (مصدر النموذج) نفترض ان الجدول للموظفين والحقل المستهدف بالتحديث هو اسم الموظف ، نتعامل مع الرقم التعريفي للسجل وهو رقم الموظف في حدث عند النقر نضع الكود التالي ، وهو كود مزدوج تستطيع ان تستخدم الكود الذي يجرى عملية التعديل بموجب جملة SQL او استخدام استعلام التحديث ، وكلاهما متاح ، تزيل ما لا تريد ... Private Sub Command7_Click() On Error GoTo Err_Command7_Click ' تحديث عبر الكود '*********************** Dim strSQL As String strSQL = "UPDATE Employees SET Employees.FirstName = forms!frmEmployees!Text_New" & vbCrLf strSQL = strSQL & " WHERE (((Employees.EmployeeID)=[forms]![frmEmployees]![EmployeeID]));" DoCmd.RunSQL strSQL '*************************** ' تحديث عبر الاستعلام 'Dim stDocName As String 'stDocName = "Query1" 'DoCmd.OpenQuery stDocName, acNormal, acEdit '*************************** Exit_Command7_Click: Exit Sub Err_Command7_Click: MsgBox Err.Description Resume Exit_Command7_Click End Sub والمرفق لغايات التوضيح والله من وراء القصد ..... NA_Update.rar

أخي العزيز لا اعرف ما هي المشكلة لديك وجدت في ملفك القيد الخامس والسادس كما تفضلت كل ما فعلته ،، أنني اعدت ادخال التاريخ سواء الميلادي او الهجري وتفاعل الكود معي بشكل عادي ؟؟؟!!! هل تظهر لديك رسائل خطأ !!؟؟؟

أخي العزيز هناك فروقات بين نسخ الأكسيس ، وبالتالي فروقات في الكود المستعمل وبين أيدينا مثال للأخت الفاضلة استاذتنا زهرة العبدالله ، يفي بالغرض لجميع نسخ الأكسيس والدعاء بظهر الغيب لاستاذتنا ولنا ،، والدال على الخير كفاعله تفضل المرفق ... za_C_R_ar_en2008.rar

أخي العزيز حدد الخطأ البرمجي الذي ظهر معك حتى نستطيع ان نجيبك

أخي العزيز شكر الله لك كل ما تأتي به ذو فائدة