اذهب الي المحتوي
أوفيسنا

أبو آدم

أوفيسنا
  • Posts

    3,292
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    29

مشاركات المكتوبه بواسطه أبو آدم

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

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

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

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

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

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

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

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

    • Like 2
  2. السلام عليكم

    اخي العزيز 

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

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

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

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

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

    • Like 2
    • Thanks 1
  3. وضح العلاقة و الضوابط بين مصدر سجلات النموذج ومصدر الصف للقائمة المنسدلة لتتضح الامور ؟\

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

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

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

  4. أخي العزيز

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

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

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

    شكرا

     

    NA_MAXMIN.accdb

    • Like 1
  5. أخي العزيز

    أنواع الاجازات غير السنوية تختلف من دولة لاخرى

    كما ان عدد الايام للاجازات السنوية و المرضية تختلف من دولة لاخرى و ربما اقترانا بعدد سنوات الخدمة

    ما أرى ان تجعل لمسميات انواع الاجازات جدولا فرعيا

    و ان يتم تسجيل جميع الاجازات لجميع الموظفين في جدول واحد 

    و يتم تدقيق الاستحقاق و الرصيد ضمن نموذج مختار باستخدام الكودات او الاستعلامات

    مجرد رأي من خبرة التعامل ...

  6. البرنامج قد يصبح متاحا خلال فترة قريبة باذن الله ، اطبقه في شركتي منذ 2008

    المهم انه هناك فروقات بالتحليل و بنية الجداول

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

    مع بيان تفصيلي لحركة الدوام و توضيح للمغادرات و الاجازات و الغيابات و العطل الاسبوعية و الرسمية

    و موضوع المأموريات ليس ضمن تحليلي لكن يمكن ادراجه و اعتباره كغيره مبرر غياب عن مركز العمل

    لا يمكن ان احمل لك التطبيق كونه بلا جدوى بعيدا عن قاعدة بيانات الجداول

    يمكن ان اتعاون معك بالتحليل و التطبيق على قاعدتك قدر الامكان و حسب استطاعتي ( لاسباب عملية و صحية ) كما ان الاخوة هنا أهل طيب و تعاون ولن يقصر غالبهم باعانتك

    و كان هدفى الرئيسي من ارفاق المرفق هو توضيح الفكرة بالصورة

    و انا في العون ما استطعت

    • Like 1
  7. السلام عليكم و رحمة الله

    ابتهج حين اقرأ اسمك يا حامل المسك ... رعاك الله

    ما وصفته يحدث أحيانا وقد يحتاج اليه الواحد منا احيانا حسب طبيعة الاحوال

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

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

    مسأله تحتاج لبعض الدقة و الحذر ولكنها متاحه

    ونحن في العون ما استطعنا ...

    • Like 1
  8. أخي العزيز

    ان كنت قد احسنت الفهم عنك ...

    الكود الاول يوضع في حدث عدم وجود بيانات لكل تقرير على حدا ( يعمل جيدا )

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

    • Like 1
  9. أخي العزيز

    استخدم الكود التالي

    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

    تمت التجربة ويعمل بنجاح

    • Like 1
  10. رفع الله قدرك و نفع بك

    ...........................

    و لا يفوتني هنا أن انوه بان ما تم تطبيقه هو حسب الطلب ( وما ادركنا منه ) ، لتحقيق حاجات معينة

    و هناك درجات من التعقيد و التفصيل حول المسائل الثلاثة المطروحة ، يمكن التداول معها حسب الحاجة

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

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

    • Like 2
    • Thanks 1
×
×
  • اضف...

Important Information