أبو آدم

لا نقول الا ما يرضي الله اجركم وغفر لميتكم و إنا لله وإنا إليه راجعون

تقبل الله منا و منكم الطاعات

احسن الله اليك اخي الحبيب ما نحن الا طلاب علم نتداول ما علمنا الله ردك طيب و يثلج الصدر ... شكرا لك

جهد طيب نفع الله بك

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

آسف لم اتمكن من فتح قاعدة البيانات مشكلة فورمات ( قد تكون مشكلة توافق في جهازي مع المرفق ) سيساعد أحد الزملاء حتما شكرا

لم اتمكن من فتح قاعدة البيانات أعد التحميل شكرا

وضح العلاقة و الضوابط بين مصدر سجلات النموذج ومصدر الصف للقائمة المنسدلة لتتضح الامور ؟\ ما علاقة تغيير مصدر السجلات للنموذج باختيار قيمة في القائمة المنسدلة ؟ وما علاقة القوائم ببعض كل مرة اقرأ مشاركتك يخطر ببالي شيئ جديد ....

عذرا ... انا لم افهم السؤال يرجى التوضيح

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

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

أخي العزيز ساقدم لك بعض افكاري ... أنا ، وهي لك مجرد فكره ، او سؤال ... لماذا كل هذه الجداول للاجازات ... كل سبب اجازة بجدول ؟ لماذا نخصص جدول للموظفين السابقين؟

نسأل الله التوفيق و العون لنا ولكم و انا في العون ما استطعت

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

هل هذا هو المقصود ... حسب المرفق 200003.pdf

أخي محمد التميمي مرفق تطبيق يعينك على حاجتك باذن الله NA_Calculator.accdb

أحسن الله اليكم أخوتي الفضلاء شكرا

ليصبح الكود كاملا Dim strSQL As String Dim db As DAO.Database strSQL = ("DELETE * FROM Tbl_State WHERE [country] = '" & Me.country.Value & "'") CurrentDb.Execute strSQL Me.Requery

أخي العزيز بعد كود الحذف ضع العبارة Me.Requery

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

أخي العزيز شكرا لمشاركة المعلومة مع اخوتك

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

الحمد لله الذي بفضله تقضى الحاجات

أخي العزيز استخدم الكود التالي Private Sub Emp_ID_BeforeUpdate(Cancel As Integer) 'By Nart Lebzo for www.officena.net 05/05/2018 Dim db As DAO.Database Dim rs As DAO.Recordset Dim Answer As String Dim MyMsg As String MyMsg = "Employee number is not registered " & _ vbNewLine & "Would you like to add the new employee?" If DCount("*", "TBL_Employee", "Emp_ID=" & Me.Emp_ID & "") = 0 Then 'Display MessageBox Answer = MsgBox(MyMsg, vbQuestion + vbYesNo, "Unknown Number") If Answer = vbYes Then Set db = CurrentDb Set rs = db.OpenRecordset("TBL_Employee", dbOpenDynaset, dbSeeChanges) With rs .AddNew rs("Emp_ID") = Me.Emp_ID .Update .Close End With Set db = Nothing Set rs = Nothing DoCmd.OpenForm "FormEmployee", , , "Emp_ID =" & Me.Form.Emp_ID Else 'Code for No button Press DoCmd.Close acForm, Me.Name, acSaveNo Exit Sub End If Else End If End Sub تمت التجربة ويعمل بنجاح

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