سؤال في مجال الاكسس بطلب كود

الحل سهل باذن الله

وهو كالاتي:

....

عفواً - :blink:

ارفق الملف كي اطبق عليه الحل :rolleyes:

هذا الملف مرفق

عزيزي

توجد مشكلة ما في القاعدة عموماً الحل كمايلي:

1- اضبط خواص الحقول بجدول " الدورات" على الوضع الافتراضي default

بمعنى ادق حقل رقم البطاقة اسمح بالتكرار ، واحذف شرط التصفية Vlidation Role

2 - انشئ استعلام من حقل واحد مصدر الاستعلام هو جدول الدورات ومصدر الحقل هو رقم البطاقة اسم الاستعلام هو count واسم الحقل هو id

3- في نموذج الدورات غير مسمى حقل رقم البطاقة الى المسمى Card

واجعل مصدر عنصر التحكم هو حقل رقم البطاقة

4- اكتب الكود التالي عند اجراء الحدث lost focus لمربع النص المسمى Card

Me.Refresh
If DCount("[id]", "count", "[id]=[card]") > 2 Then
MsgBox ("غفواً لا يمكن منح الموظف اكثر من دورتين")
card = ""
DoCmd.GoToControl "card"
End If

مرحبا اخوي

ايهاب عثمان

الله يعطيك العافيه

بس الكور فيه غلط سويت كل اللي قلته بس اذا طبقت طلع عندي ان الكود فيه غلط والغط هو

Private Sub Card_BeforeUpdate(Cancel As Integer)

Me.Refresh[/color]

If DCount("[id]", "count", "[id]=[card]") > 2 Then

MsgBox ("ÛÝæÇð áÇ íãßä ãäÍ ÇáãæÙÝ ÇßËÑ ãä ÏæÑÊíä")

Card = ""

DoCmd.GoToControl "card"

End If

End Sub

الخطى اللي باللون الازرق في الكود

ولك جزيل الشكر