الكود المستخدم تحت زر الأمر بهذا الشكل ، لقد استخدمت منه جزء وتركت الجزء الآخر ولهذا لم تظهر معك النتيجة كما تريد
Private Sub Comb_AfterUpdate()
If Comb.Value = "ãÊÚÇÞÏíä" Then
Text1.Value = DCount("[M]", "Employee", " = 0")
Text3.Value = DCount("[M]", "Employee") - (Text1.Value)
ElseIf Comb.Value = "ãÑÓãíä" Then
Text2.Value = DCount("[R]", "Employee", "=0")
Text4.Value = DCount("[R]", "Employee") - (Text2.Value)
Else
Text1.Value = ""
Text2.Value = ""
Text3.Value = ""
Text4.Value = ""
End If
End Sub
أنصحك بأن ترفق مثالاً لتحصل على ما تريد، واعلم أن المنتدى مليء بالخيرات
وفي المرفق مثالاً تظهر فيه النتيجة بدون استخدام الدالة ، فبمجرد التحديث تظهر البيانات