البحث في السجلات وتجديدها

عفوا المرفقاتالإجازات.rar

للرفع :)  :)  :)

السلام عليكم ورحمة الله وبركاته

أرجوا ممن لديه الحل أن لا يبخل علينا به

وأن يجعله الله في موازين حسناته

وعليكم السلام اخي :)

الكود في قاعدة بياناتك مقفل بكلمة سر :(

جعفر

السلام عليكم ورحمة الله وبركاته

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

مرفق الملف بعد إلغاء التأمين منه

وشاكراً للجميع ولك أخي جعفر الإهتمام

السلام عليكم ورحمة الله وبركاته

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

مرفق الملف بعد إلغاء التأمين منه

وشاكراً للجميع ولك أخي جعفر الإهتمام

الإجازات2.rar

السلام عليكم ورحمة الله وبركاته

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

مرفق الملف بعد إلغاء التأمين منه

وشاكراً للجميع ولك أخي جعفر الإهتمام

الإجازات2.rar

وعليكم السلام :)

ولو اني ما اتفق معاك في الطلب الثاني ، ولكن تفضل :)

Private Sub Form_Current()

'1
    If Len(Me.الإجازة_من & "") <> 0 Or Len(Me.الإجازة_إلى & "") <> 0 Then
        Me.الحالة = "اجازة"
    Else
        Me.الحالة = "على رأس عمله"
    End If
    

'2
    If Len(Me.الإجازة_من & "") <> 0 Or Len(Me.الإجازة_إلى & "") <> 0 Then
        If Date > Me.الإجازة_إلى Then
            Me.الإجازة_من = ""
            Me.الإجازة_إلى = ""
            Me.الحالة = "على رأس عمله"
            
        End If
    End If

    
End Sub

الطريقة الصحيحة في قاعدة البيانات ، ان تحفظ كل معلومة يتم ادخالها (طبعا المعلومة المهمة) ، وفي نظري تواريخ الاجازات مهمة ، فلا يجب حذفها !!

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

اما عرض اذا كان الموظف في اجازة او على راس عمله ، فيمكن الوصول اليه بشتى الطرق :)

جعفر

311.الإجازات2.mdb.zip

السلام عليكم ورحمة الله وبركاته

أشكرك أخي جعفر

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

ولك خالص الشكر والتقدير

تفضل :)

ولكن انتبه ، عندما يكون جدولك كبيرا ، فالنموذج سيأخذ وقت الى ان يكمل جميع السجلات ،

لذا ، قد يكون من الافضل ان تجعل الكود على رز :)

جعفر

311.الإجازات2.mdb.zip

السلام عليكم ورحمة الله وبركاته

شكرا لكم أخي جعفر على مجهودك وجعله الله في ميزان حسناتك

هذا هو المطلوب ( كفيت ووفيت )

ولتعم الفائدة أرجوا منك أن تقوم بشرح الكود كل سطر على حدة

وتفضل مني خالص الشكر والتقدير والإمتنان

حياك الله :)

الكود الجديد هو نفس الكود السابق ، 

غير انه لما يطلب البيانات من النموذج ، فالكود هكذا:

Me.الإجازة_من

بينما في Recordset ، فالكود هكذا:

rst!الإجازة_من

اما باقي الكود فهو لعمل الـ Loop :)

جعفر