إنسان قام بنشر نوفمبر 9, 2011 مشاركة قام بنشر نوفمبر 9, 2011 (معدل) وجدت أثناء تصفحي للأمثلة هذا الكود 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 :تضمين الكود في المحرر رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر نوفمبر 9, 2011 مشاركة قام بنشر نوفمبر 9, 2011 أخي العزيز الكود غايته منع تكرار سجل لطالب في يوم معين نقوم بعد التحديث (إدخال رقم الطالب) بالبحث في جدول StuDay عن الرقم المدخل وهو Caller-ID2 بشرط تطابق الرقم المدخل في النموذج الفرعي بالرقم في الجدول باستخدام DLookup وعند التطابق (العثور على سجل) ، يتم إظهار رسالة تنبيه بالأمر ، ثم جعل قيمة الحقل Null فراغ للرقم ، وفراغ لحقل الاسم ، ونقل التركيز مرة أخرى لحقل الرقم. والله أعلم ..... ........... رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.