اذهب الي المحتوي
أوفيسنا

طلب شرح كود


إنسان

الردود الموصى بها

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


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

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

تم تعديل بواسطه nart lebzo
:تضمين الكود في المحرر
رابط هذا التعليق
شارك

أخي العزيز

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

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

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

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

...........

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information