كود استدعاء اخر اجازة وتنفيذ الخصم من الرصيد

[الشقاوي]

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

CR.rar

[Shivan Rekany]

الان, الشقاوي said:

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

CR.rar

اتفضل

استخدمت هذه الكود للاستخراج اي للبحث

Private Sub SEr_Click()
    Me.s2 = DLookup("[name_e]", "Emp", "no_e= " & [s1])
    Me.s3 = DLookup("[ms_j]", "Emp", "no_e= " & [s1])
    Me.s4 = DLookup("[rs_t]", "Emp", "no_e= " & [s1])
    Me.s5 = DLookup("[no_e]", "Emp", "no_e=" & [s1])
    Me.Tarix = Nz(DMax(Format("[d_g]", "yyyy/mm/dd"), "egaza", "no_e=" & [s1] & "and [n_e]='" & "ÚÇÏíÉ" & "'"), "")
    Me.Mide = Nz(DLookup("[m_g]", "egaza", "[no_e]=" & [s1] & " And [Tarix]=" & Format("[d_g]", "yyyy/mm/dd")), 0)
End Sub

وهذا لخصم الرصيد من الاجازة

Private Sub أمر30_Click()
    Dim SQL As String
    SQL = "UPDATE Emp SET Emp.rs_t = [Emp]![rs_t]-[Forms]![H]![Mide] WHERE (((Emp.no_e)=[Forms]![H]![s1]));"
        DoCmd.SetWarnings False
            DoCmd.RunSQL (SQL)
        DoCmd.SetWarnings True
    MsgBox "تم الخصم من الرصيد"
End Sub

اليك المرفق

 

LM.rar

[عبد الفتاح كيرة]

شغل جميل و مطلوب @Shivan Rekany

 

[الشقاوي]

شكراً جزيلاً  (Shivan Rekany)

تحياتي لك . 

[Shivan Rekany]

منذ ساعه, عبد الفتاح كيرة said:

شغل جميل و مطلوب @Shivan Rekany

 

شكرا لك استاذي الحبيب على هذا الوصف ... نتعلم منكم 

28 دقائق مضت, الشقاوي said:

شكراً جزيلاً  (Shivan Rekany)

تحياتي لك . 

لا داعي للشكر سيد الشقاوي

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

تم تعديل يونيو 20, 2017 بواسطه Shivan Rekany

[عبق الرياحيين]

On 6/19/2017 at 5:45 PM, Shivan Rekany said:

اتفضل

استخدمت هذه الكود للاستخراج اي للبحث

Private Sub SEr_Click()
    Me.s2 = DLookup("[name_e]", "Emp", "no_e= " & [s1])
    Me.s3 = DLookup("[ms_j]", "Emp", "no_e= " & [s1])
    Me.s4 = DLookup("[rs_t]", "Emp", "no_e= " & [s1])
    Me.s5 = DLookup("[no_e]", "Emp", "no_e=" & [s1])
    Me.Tarix = Nz(DMax(Format("[d_g]", "yyyy/mm/dd"), "egaza", "no_e=" & [s1] & "and [n_e]='" & "ÚÇÏíÉ" & "'"), "")
    Me.Mide = Nz(DLookup("[m_g]", "egaza", "[no_e]=" & [s1] & " And [Tarix]=" & Format("[d_g]", "yyyy/mm/dd")), 0)
End Sub

وهذا لخصم الرصيد من الاجازة

Private Sub أمر30_Click()
    Dim SQL As String
    SQL = "UPDATE Emp SET Emp.rs_t = [Emp]![rs_t]-[Forms]![H]![Mide] WHERE (((Emp.no_e)=[Forms]![H]![s1]));"
        DoCmd.SetWarnings False
            DoCmd.RunSQL (SQL)
        DoCmd.SetWarnings True
    MsgBox "تم الخصم من الرصيد"
End Sub

اليك المرفق

 

LM.rar

فى مشكله لو ان جدول الاجازات لا يحتوى على اى بيانات

برجاء جرب افراغ جدول الاجازات اولا وحاول ادخال اجازة لموظف وهنا تجد المشكلة

هل هناك حل لتلك المشكلة ؟

[عبق الرياحيين]

ممكن طلب اضافة على نفس المرفق بعد اذن صاحب الموضوع

هل ممكن عمل حقل خاص بالاجازة بعد الخصم

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

وحقل باسم الرصيد بعد خصم الاجازات

[Shivan Rekany]

2 ساعات مضت, عبق الرياحيين said:

فى مشكله لو ان جدول الاجازات لا يحتوى على اى بيانات

برجاء جرب افراغ جدول الاجازات اولا وحاول ادخال اجازة لموظف وهنا تجد المشكلة

هل هناك حل لتلك المشكلة ؟

لم ارى اي مشكلة 
عملت افراغ الجدول وبعدين دخلت سجل واحد ولم ارى اي مشكلة امامي

ما قصدك بالمشكلة ؟ احتمال انك ما دخلت التواريخ بشكل الصحيح ام اي؟

1 ساعه مضت, عبق الرياحيين said:

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

وحقل باسم الرصيد بعد خصم الاجازات

ما عليك الا ان تضيف الحقل في جدول و بعدين تتغير في الكود

اي سيكون التغير في هذا سطر من الكود

SQL = "UPDATE Emp SET Emp.rs_t = [Emp]![rs_t]-[Forms]![H]![Mide] WHERE (((Emp.no_e)=[Forms]![H]![s1]));"

فقط راح تتغير اسم الحقل من Emp.no_e باسم الحقل المضاف

Emp = جدول

no_e = حقل

منذ ساعه, عبق الرياحيين said:

  انا كده مش فاهمه ممكن مرفق لو سمحت 

انا لما افرغت الجدول وضيفت اجازة ام يقوم بحساب الاجازة ولا بخصمها مش عارفه ليه

اتفضل سيد @عبق الرياحيين اليك القاعدة

 

LM (1).rar

تم تعديل يونيو 20, 2017 بواسطه Shivan Rekany

[عبق الرياحيين]

في 6/20/2017 at 00:38, Shivan Rekany said:

لم ارى اي مشكلة 
عملت افراغ الجدول وبعدين دخلت سجل واحد ولم ارى اي مشكلة امامي

ما قصدك بالمشكلة ؟ احتمال انك ما دخلت التواريخ بشكل الصحيح ام اي؟

ما عليك الا ان تضيف الحقل في جدول و بعدين تتغير في الكود

اي سيكون التغير في هذا سطر من الكود

SQL = "UPDATE Emp SET Emp.rs_t = [Emp]![rs_t]-[Forms]![H]![Mide] WHERE (((Emp.no_e)=[Forms]![H]![s1]));"

فقط راح تتغير اسم الحقل من Emp.no_e باسم الحقل المضاف

Emp = جدول

no_e = حقل

  انا كده مش فاهمه ممكن مرفق لو سمحت 

انا لما افرغت الجدول وضيفت اجازة ام يقوم بحساب الاجازة ولا بخصمها مش عارفه ليه