السلاام عليكم اشكركم جزيلا
عملت برنامج حضور وانصراف ضبط كل شيء لكن عندي مشكله عقدتني في البرنامج وهي كاتالي ::
البرنامج للموظفات لكل موظفه رقم عند ادخال الحضور اليومي تدخل المسؤؤوله رقم الموظفه يطلع لها اسمها وتكمل تعبئة بيانات حضورها واستئذانها او غيابها ..
المشكلة عندي اني اريد اذا الموظفة اجازة ( اجازة عادية او وضع او امومه ) اول ما المسؤله تكتب رقمها في الحضور اليومي يطلع اسمها ويتظلل كامل خانات تسجيل الحضور ويكتب في خانة ملاحظات نوع اجازتها .. وتطلع مسج بوكس بان الموظفة حاليا اجازة .. "
تعبت جدا معها مو راضيه تضبط
المشكلة انه يضلل ويطلع المسج واذا انتقلت للموظفه اللي بعدها فتح لي خانات الموظفه السابقه ومسح نوع اجازتها في ملاحظات ..
المشكلة الاخرى انه اذا انتهت اجازتها يستمر يكتب لي انها اجازة ... ماعرفت وين المشكله ...؟؟؟؟
هذا الكود اللي فيه مشكله
[CODE language="vb"]Private Sub الرقم_Afterupdate()
v1 = DLookup("[نوع الاجازة]", "vqr", [الرقم] = Me.الرقم)
d1 = DLookup("[بداية الاجازة]", "vqr", Me.التاريخ >= [بداية الاجازة] And Me.التاريخ <= [expr1] And [الرقم] = Me.الرقم)
d2 = DLookup("[expr1]", "vqr", Me.التاريخ >= [بداية الاجازة] And Me.التاريخ <= [expr1] And [الرقم] = Me.الرقم)
If Me.التاريخ >= d1 And Me.التاريخ <= d2 And [الرقم] = Me.الرقم Then
If v = "أمومة" Then
MsgBox "الموظفة حاليا في اجازة امومة"
Me.الحضور.Enabled = False
Me.الانصراف.Enabled = False
Me.نوع_الغياب.Enabled = False
Me.الاستئذان.Enabled = False
Me.بدايته.Enabled = False
Me.نهايته.Enabled = False
Me.غياب.Enabled = False
Me.نوع_الاستئذان.Enabled = False
Me.اجازة = v
Else
If v = "عادية" Then
MsgBox "الموظفة حاليا في اجازة عادية"
Me.الحضور.Enabled = False
Me.الانصراف.Enabled = False
Me.نوع_الغياب.Enabled = False
Me.الاستئذان.Enabled = False
Me.بدايته.Enabled = False
Me.نهايته.Enabled = False
Me.غياب.Enabled = False
Me.نوع_الاستئذان.Enabled = False
Me.اجازة = v
Else
If v = "وضع" Then
MsgBox "الموظفة حاليا في اجازة وضع"
Me.الحضور.Enabled = False
Me.الانصراف.Enabled = False
Me.نوع_الغياب.Enabled = False
Me.الاستئذان.Enabled = False
Me.بدايته.Enabled = False
Me.نهايته.Enabled = False
Me.غياب.Enabled = False
Me.نوع_الاستئذان.Enabled = False
Me.اجازة = v
Else
Me.الحضور.Enabled = True
Me.الانصراف.Enabled = True
Me.نوع_الغياب.Enabled = True
Me.الاستئذان.Enabled = True
Me.بدايته.Enabled = True
Me.نهايته.Enabled = True
Me.غياب.Enabled = True
Me.نوع_الاستئذان.Enabled = True
Me.اجازة = " "
End If
End If
End If
Else
Me.الحضور.Enabled = True
Me.الانصراف.Enabled = True
Me.نوع_الغياب.Enabled = True
Me.الاستئذان.Enabled = True
Me.بدايته.Enabled = True
Me.نهايته.Enabled = True
Me.غياب.Enabled = True
Me.نوع_الاستئذان.Enabled = True
Me.اجازة = " "
End If
end subقاعدة البيانات لم استطع ارفاقها لكن هي على هذا الرابط
http://arabsh.com/je4r0sp3614l.html
...
أرجوا ممن يعرف الحل مساعدتي عاجلاااااا
