استعلام دوام موظفين حسب ايام الاسبوع

[ahmad_mustafa]

السلام عليكم 

بالمرفق اشأت قاعدة لعمل جدول دوام موظفين حسب ايام الاسبوع والمطلوب المساعدة في انشاء استعلام يظهر الموظفين الذين يداومون في اليوم المختار من درج ايام الاسبوع   

ايام دوام الموظفين.rar

[Moosak]

تفضل أخي ahmus

تم عمل دالة تحدث مصدر سجلات النموذج على حسب الاختيار من القائمة المنسدلة هكذا :

Private Sub DaysCbo_AfterUpdate()
Me.RecordSource = SelectedDaySQL
DoCmd.Requery
End Sub

Private Function SelectedDaySQL() As String
Select Case Me.DaysCbo.Column(1)
Case Is = 0
        SelectedDaySQL = "Select * from دوام_الموظفين Where السبت= -1 "
Case Is = 1
        SelectedDaySQL = "Select * from دوام_الموظفين Where الاحد= -1 "
Case Is = 2
        SelectedDaySQL = "Select * from دوام_الموظفين Where الاثنين= -1 "
Case Is = 3
        SelectedDaySQL = "Select * from دوام_الموظفين Where الثلاثاء= -1 "
Case Is = 4
        SelectedDaySQL = "Select * from دوام_الموظفين Where الاربعاء= -1 "
Case Is = 5
        SelectedDaySQL = "Select * from دوام_الموظفين Where الخميس= -1 "
Case Is = 6
        SelectedDaySQL = "Select * from دوام_الموظفين Where الجمعه= -1 "
Case Is = 7
        SelectedDaySQL = "Select * from دوام_الموظفين "
End Select
End Function

 

 

ايام دوام الموظفين.rar

[د.كاف يار]

تفضل هذه المشاركة مع اخي @Moosak

ايام دوام الموظفين.mdb

[ahmad_mustafa]

تمام هذا ما طلبته .........ولو غلبتك معي  اضافة إظهار الكل للموظفين اقصد كل الاسبوع

[ahmad_mustafa]

لو غلبتك معي  اضافة إظهار الكل للموظفين اقصد كل الاسبوع