سؤال عن برنامج حضور وغياب

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

اخي انظر اولا مصدر الحقول في الجدول للموظفين

حقل الموظفين سويته جدول الموظفين

حقل تصنيف الموظفين كذلك من جدول التصنيف

اخي بإمكانك عمل جدول اخر يكون مرتبط برقم الموضف بعلاقة

رأس باطراف

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

ثم قم بإنشاي نموذج لجدول الموظفين ثم قم بإنشاء نموذج لهذا الجدول

بعد انشاء النماذج ؟ ما الخطوة التالية نحو برنامج متماسك وجيد وتشغيل تلقائي للادخال و التنقل بين التقارير كأنها وحدة واحدة ؟

اخي بعد انشاء النماذج بإمكانك ادخال بيانات الموظفين

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

طباعة تقارير مثلا كل موظف على حدى واحتساب ساعات العمل له

وغيرها

وبالامكان ايضا اضافة جداول مث المرتب والخصومات والسلف وغيرها

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

من العمليات وبسهوله تامه إن شاء الله

أخي الكريم ان شاء الله سوف اساعدك بقدر ما استطيع

اخي الكريم اولا يجب انعمل جدول رئيسي يحتوي على كافة بيانات موظفين المجموعه التابعين لكل فرع على حدا

مثل هذا

هذا يعتبر الجدول الرئيسي الحاوي لكافة بيانات موظفين أوالعاملين بكافة افرع المجموعه والله اعلا واعلم

ثنيا

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

Private Sub ßæÏ_ÇáÞÓã_BeforeUpdate(Cancel As Integer)
On Error Resume Next
[ÇÓãí] = DLookup("[NameWE]", "Data_Section_Extsion", "Code_Section=[ßæÏ_ÇáÞÓã]")
If IsNull(DLookup("

", "Data_Section_Extsion", "

='" & [ßæÏ_ÇáÞÓã] & "'")) Then
       MsgBox " ßæÏ_ÇáÇÏÇÑå åÐÇ ÛíÑ ÕÍíÍ ÇÖÛØ  DBLCLCK ááÊÇßíÏ ", vbCritical, " AlphaSkaySystem"
       Cancel = -0
      End If
End Sub

الجدول الثاني ومحتوياته كالتالي (كود الفرع او المصنع/أسم الفرع اوالمصنع/كود المجموعه/اسم المجموعه/ملاحظات)

والجدول الثاني سوف يكون مثل هذا

وهذا والله اعلى واعلم