السلام عليكم ورحمة الله وبركاته ،،،
أخواني الأعزاء
برنامج يقوم بحساب الوقت الأضافي للموظفين ( OverTime ) .
وهذا البرنامج فيه ثلاثه جداول
الجدول الأول لكتابة رقم الموظف وأسمه .
والجدول الثاني لكتابة رقم مجموعة الموظف ويوم أجازته الأول ويوم أجازته الثاني حيث أن الجازه الأسبوعية لدينا يومان في العمل .
والجدول الثالث لكتابة تاريخ اليوم DD/mm/yy وأسم اليوم في الأسبوع ورقم مجموعة الموظف ومقدار الساعات الأساسيه للدوام ومقدار الدوام الأضافي .
وأريد إظهار أسم اليوم بناء على التاريخ المدون في حقل التاريخ ومقارنته بيومي الأجازه المدونين في الجدول الثاني فإذا كان هذا اليوم يوافق يوم أجازة الموظف فإنه يعطي إشارة بذلك أن الموظف في هذا اليوم أجازه . ثم يقوم بنقل رقم مجموعة الموظف من الجدول الثاني إلى الجدول الثالث .
وقد قمت بوضع هذا الكود لإكتشاف أسم اليوم لكن لم تفلح العمليه
ولم أعرف كيف أنقل رقم مجموعة الموظف من الجدول الثاني إلى الجدول الثالث
والكود هو
S = WeekDay((Date)) If S = 1 Then Me![WeekDay] = "SUN" ElseIf S = 2 Then Me![WeekDay] = "MON" ElseIf S = 3 Then Me![WeekDay] = "TUE" ElseIf S = 4 Then Me![WeekDay] = "WED" ElseIf S = 5 Then Me![WeekDay] = "THU" ElseIf S = 6 Then Me![WeekDay] = "FRI" ElseIf S = 7 Then Me![WeekDay] = "SAT" Else MsgBox "Wrong Edit" End If
