BEEP فى نموذج الأدخال

If DCount("Fieldname", "TableName", "[studentID] = " & _

Me.StudentID) > 10 Then Beep

شكرا للأخ / مصرواى

لكن الكود غير واضح

ارجو اعادة كتابتة وشرح الفكرة أن أمكن

هل النموذج به فورم و فورم فرعي أم أنه نموذج مستمر

هذا سيؤثر علي مكان وضع الكود

اما عن الكود

If DCount("Fieldname", "TableName", "[StudentID] = " & _ 
Me.StudentID) > 10 Then Beep

فه انه يتم البحث عن عدد الحقول فى جدول معين عن طريق الدالة Dcount و اذا كانت النتيجة اكبر من 10 يصدر صفير

و يمكن وضع شرط للعد بأن يكون حقل معين = نعم مثلا

اقرأ التعليمات الخاصة ب Dcount و ان واجهتك مشكلة فانشر الجزء المطلوب من القاعدة لننفذ عليه مباشرة

الأخ/ مصرواى

شكرا للأهتمامك

واليك الملف وبة كلما أفكر فية

وما أريد تطبيقة هو داخل نموذج1

وهو بأختصار أذا تعدى مرات غياب الموظف 10 مرات أثناء ادخال البيانات

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

http://mypage.ayna.com/yaser31/db1.mdb

Private Sub Form_AfterUpdate()
 If Me.total.Value > 10 Then
  Beep
 MsgBox Str(Me.total.Value) + "Days till now !"
  End If
End Sub

مع ملاحظة ان الرسالة لن تظهر الا عند الانتقال الي السجل التالي

اما ان اردت ارسال الرسالة بعد ادخال التاريخ فضع نفس الكود فى حدث بعد التحديث للحقل الخاص بالتاريخ الثاني

Private Sub end_d_BeforeUpdate(Cancel As Integer)
 If Me.total.Value > 10 Then
  Beep
 MsgBox Str(Me.total.Value) + "Days till now !"
  End If
End Sub

الأخ مصرواى

الحقيقة أننى شاكر جدا لمجهودك وأهتمامك

فقد نفذت الفكرة كما اريد تماما

مرة أخرى لك منى الف شكر وتحية

وهذة نسخة بعد الأضافة لمن أراد من أعضاء المنتدىhttp://mypage.ayna.com/yaser31/db1.mdb

و لك مني 1001 تحية

(f)

مشكلة أخرى

نفس النموذج السابق بحث يعرض بيانات الموظف خلال فترة

من تاريخ الى تاريخ

أريد أيضا فى حالة تجاوزة عدد أيام الغياب خلال هذة الفترة

وعند فتح النموذج يصدر beep

بالرغم من كتابة الكود الأتى

.Private Sub Form_AfterUpdate()

If Me.total.Value > 10 Then

Beep

MsgBox Str(Me.total.Value) + "Days till now !"

End If

End Sub

موجود على الرابطhttp://mypage.ayna.com/yaser31/123.mdb

ولكم خالص شكرى

ضع الكود أيضا فى حدث تفعيل الفورم

Private Sub Form_Activate()
 If Me.total.Value > 10 Then
  Beep
 MsgBox Str(Me.total.Value) + "Days till now !"
  End If
End Sub

Private Sub Form_AfterUpdate()
 If Me.total.Value > 10 Then
  Beep
 MsgBox Str(Me.total.Value) + "Days till now !"
  End If
End Sub

تمام

الف شكر

(f)