تعديل على تنبية داخل النموذج

تم التعديل من قبل أستاذنا الكريم  startnet فشكراً له وجزاه الله خير ...

في النموذج في حدث عند عداد الوقت تم اضافه ثلاث اسطر هي


Dim x As Integer
x = Nz(DCount("*", "قاهر الآكسس", "[مجموع مدة الغياب] >= 30 "), 0)
If x = 0 Then Exit Sub

نقول في الاسطر الثلاثه
تعريف متغير x
المتغير يساوي عدد السجلات في الاستعلام قاهر الاكسس بشرط مده الغياب تساوي 30 او اكبر اذا لم يجد اي سجل تكون قيمته 0
ثم نقول اذا كان المتغير يساوي صفر اطلع من الاجراء


ليصبح الكود

'مجموع مدة الغياب
Dim khaher As Object
'اضف هذه الاسطر
'====================
Dim x As Integer
x = Nz(DCount("*", "قاهر الآكسس", "[مجموع مدة الغياب] >= 30 "), 0)
If x = 0 Then Exit Sub
'====================


Set khaher = CurrentDb.OpenRecordset("قاهر الآكسس")
With khaher
.MoveFirst
If khaher(0) = "" Then
.MoveNext
ElseIf khaher(0) >= 30 Then
If MsgBox("يوجد لديك موظف / موظفين أكمل غيابة مدة 30 يوم,هل تريد الإطلاع عليهم", vbOKCancel + vbInformation, "قاهر الآكسس") = vbOK Then
DoCmd.OpenForm "قاهر الآكسس", , , "[مجموع مدة الغياب]>=30"
Else
.MoveFirst
End If
End If
End With