طلب شرح كود

[إنسان]

وجدت أثناء تصفحي للأمثلة هذا الكود

Private Sub Caller_ID2_AfterUpdate()


If Not IsNull(DLookup("[Caller-ID2]", "StuDay", "[Caller-ID2]=Forms![date_data]![student_data_Sub].Form![Caller-ID2]")) Then

MsgBox "ÓÈÞ ÊÓÌíá äÝÓ ÇáÑÞã ÎáÇá Çáíæã " & Year(date), vbMsgBoxRight, "ÊäÈíå"

[Caller-ID2] = Null

[Name of Student] = Null

[Caller-ID2].SetFocus

End If

End Sub

فهل من الممكن شرحة بشكل موجز

تم تعديل نوفمبر 9, 2011 بواسطه nart lebzo
:تضمين الكود في المحرر

[أبو آدم]

أخي العزيز

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

نقوم بعد التحديث (إدخال رقم الطالب) بالبحث في جدول StuDay عن الرقم المدخل وهو Caller-ID2 بشرط تطابق الرقم المدخل في النموذج الفرعي بالرقم في الجدول باستخدام DLookup

وعند التطابق (العثور على سجل) ، يتم إظهار رسالة تنبيه بالأمر ، ثم جعل قيمة الحقل Null فراغ للرقم ، وفراغ لحقل الاسم ، ونقل التركيز مرة أخرى لحقل الرقم.

والله أعلم .....

...........