كيفية تحديد عدد الاذونات في السنة

السلام عليكــم ورحمـة الله وبركاتــه ،،

اخي لدي فكرة مشابه لفكرتك ولكن في الرواتب والاجازات

وكنت ناوي اعدل مثالك لكن مانوع الملف الي انت حاطو

واي لغة انت تستخدم في البرمجة

راجع الرابط بتاعك وياريت ترفق المثال هنا في الموقع

بالتوفيق

تفضل

اقتباس

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

Private Sub Rs_Time2_KeyUp(KeyCode As Integer, Shift As Integer)
	Dim Def As Double
	Def = (Me.Rs_Time2.RHoure + Rs_Time2.RMin / 60) - (Me.Rs_Time1.RHoure + Rs_Time1.RMin / 60)
	If Def > 1 Then
	MsgBox "Wrong Time", vbInformation

	Me.Rs_Time2.RHoure = Me.Rs_Time1.RHoure + 1

	End If
End Sub

اقتباس

اذا اخذ الموظف اذن واحد في الشهر واراد تسجيل اذن اخر في نفس الشهر تظهر رسالة تخبرة بان هذا الموظف اخذ اذن سابق بتايخ كذا واذا استنفذ 6 أذونات علي مدار السنة وارد اخذ اذن سابع في السنة تظهر رسالة تخبرة بان لا يوجد رصيد اذونات تاني .

Dim Rss As New ADODB.Recordset

Set Rss = db.Execute("select month(fromdate) ,count(docid)  from Missions group by month(fromdate) order by month(fromdate)")
Do Until Rss.EOF
If Rss(1) > 1 Then m = m & vbCrLf & " Miss.Qty in month : " & Rss(0) & "=" & Rss(1)
Total = Total + Rss(1)
Rss.MoveNext
Loop
If Total > 6 Then m = m & vbCrLf & " Total Missions = " & Total
If m <> "" Then MsgBox m