أبو آدم

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

منذ ساعه, أحمد الفلاحجى said:

منور استاذنا العزيز @أبو آدم وكل علم وانت بخير عيدكم مبارك

عيدكم مبارك اخى صالح

💐 @ابوآمنة

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

2 دقائق مضت, ابوآمنة said:

سررت بردك جداً .🥰

شاكر مرورك المتواضع استاذي أبو آدم 

فما نحن إلا حسنة من حسنات علمك المبارك .

نفع الله بعلمك وعملك .

احسن الله اليك اخي الحبيب

ما نحن الا طلاب علم نتداول ما علمنا الله 

ردك طيب و يثلج الصدر ... شكرا لك

جهد طيب

نفع الله بك

السلام عليكم

اخي العزيز 

المرفق توقفت فيه عند الجداول فهي غير مفهومة و فيها اخطاء منهجية

و الطلب غير واضح عموما

نتمنى عليك ان يكون الطلب محددا بانشاء جدول مثلا او علاقة او نموذج

اما انشاء نظام كامل فهو مرحلة متقدمة المساعدة فيها ليست متاحة بسهولة

ارجو اعادة النظر بالطلب

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

سيساعد أحد الزملاء حتما

شكرا

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

أعد التحميل

شكرا

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

ما علاقة تغيير مصدر السجلات للنموذج باختيار قيمة في القائمة المنسدلة ؟

وما علاقة القوائم ببعض

كل مرة اقرأ مشاركتك يخطر ببالي شيئ جديد ....

عذرا ... انا لم افهم السؤال

يرجى التوضيح

أخي العزيز

مرفق التطبيق لطلبك

استعلام لاظهار التاريخ الاعلى في السجل وذلك باستخدام وحدة نمطية ، و اضفت لك اظهار التاريخ الادنى ، لعلك - او احد الاخوة - يحتاج له

تصدقوا علينا بالدعاء

شكرا

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 و التعامل مع النسخة الاحتياطية بطريقة و ادوات اخرى ان لزم ، و كذلك الامر في مسألة تحديد المسارات ، و الاحداث التي يمكن استخدامها لاطلاق الروتينات و الأكواد ، و كذلك الامر بالنسبة لتصفية و علاج تراكم النسخ الاحتياطية ، و ظروف و احوال استرداد البيانات و اعادة الربط بين القاعدة الاصلية و النسخ .

و نحن في العون ما استطعنا ، و الله من وراء القصد ...