ممكن مساعدة في كود

[nacer_alger]

لقد تم مساعدتي من طرف اخ كريمو في عطلة سنوية

اريد ان اضيف حقل جديد مثلا اسمه reliqut  وعندما ادخل قيمة في هدا الحقل تحسب مع حقلPrev_Bal  تعديل في الكود

كمجموع  هنا رابط مشاركي في منتدى http://www.officena.net/ib/index.php?showtopic=58178

ارجو منكم المساعدة

 

وشكرا

تم تعديل يناير 29, 2015 بواسطه nacer_alger

[nacer_alger]

اريد شرح لهذا الكوك لكي اعرف اين استطبع ان اضيف حقل جديد ليتم حسابه مع 30 يوما لعطلة سنوية

اي اريد اضافة حقل فيه رصيد قديم لكي يجمع مع 30 يوما المستحقة لكل  موظف في سنة كاجازة سنوية
 
 
 01-وحدة النمطية
 
Function Vac_Due(emp As Long, hdate As Date) As Long
    Dim Vac_Used As Integer
    Dim Vac_Entitle As Integer
    Dim d As Integer
    Dim hd As Date
    Vac_Used = Nz(DSum("Vac_Per", "Vac_Trans", "[code_employé] = " & emp & " and [Date_départ] < " & Chr(35) & hdate & Chr(35)), 0)
    hd = DLookup("hiredate", "[Employé en arabe]", "[Code_employé] = " & emp)
    
    Vac_Entitle = Nz((Year(hdate) - Year(hd)) * 30, 0)
    Vac_Due = Vac_Entitle - Vac_Used
    
End Function
 
 03- استعلام
 
 SELECT congé.code_employé, congé.Date_départ, congé.Date_retour, [Date_retour]-[Date_départ]+1 AS Vac_Per, 30 AS Vac_Ent, vac_due([code_employé],[Date_départ]) AS Prev_Bal, [prev_bal]-[vac_per] AS Cur_Bal
FROM congé
ORDER BY congé.code_employé, congé.Date_départ;

تم تعديل يناير 31, 2015 بواسطه nacer_alger