طريقة احصاء الموظفين

[بلال اليامين]

السلام عليكم

لدي نموذج فيه اسماء الموظفين اريد احصاء الموظف حسب الجنس والرتبة والمادة

[د.كاف يار]

اخي بلال ارفق مثال لكي تجد التجاوب و لكي نسعد بخدمتك و مساعدتك 

 

[بلال اليامين]

السلام عليكم

اخي اليك مثال لتعديل

 

موسسة1.rar

[بلال اليامين]

السلام عليكم

اخي اليك مثال لتعديل

[jjafferr]

وعليكم السلام 🙂

 

اخي بلال ، لا توجد بيانات كافية لطلبك ، انت تطلب منا ان نخمن ، ولما نعطيك الاجابة ستقوم باعطاء معلومات اكثر علشان توصل للحل الذي في بالك !!

 

الاستعلام هذا يقوم بالعمل ، وتلاحظ اني استعملت حقل "الموسم المدرسي" كمعيار ، فيجب عليك بعد اضافة البيانات ، باضافة حقل المكان او المدرسة كمعيار آخر يشير الى مربع التحرير والسرد في النموذج ،

.

حاليا وضعت الكود التالي على حدث "تحميل النموذج" ، ولكن عليك وضع الكود على حدث "بعد تحديث" مربع التحرير والسرد ، واكمال بقية الحقول (طبعا بعد ان تضيفها للاستعلام) :

Private Sub Form_Load()

    Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset("Select * From qry_Sums")
    rst.MoveFirst
    
    Me.Male = rst!Male
    Me.Female = rst!Female
    Me.Certificate_L = rst!Certificate_L
    Me.Certificate_M = rst!Certificate_M
    
    rst.Close: Set rst = Nothing
    
End Sub

.

والنتيجة

.

جعفر

1437.موسسة1.accdb.zip