الالون في التنسيق الشرطي

يمكنك استعمال هذا الكود في حدث بعد التحديث لمربع النص b

 Private Sub b_AfterUpdate()
If a.Value = b.Value Then
c = 1
Else
c = ""
End If
End Sub

وهذا مثالك بعد التعديل

mas_q.rar

عندم طبقت المثال على برنامجي الذي اقوم بتصميمة ظهرت رسالة السجلات غير قابلة للتحديث

أختي الغالية

يمكنك عمل ذلك من خلال هذا الكود

Private Sub تسمية4_Click()
If a = b Then
c = 1
Else
c = "حقلين غير متساويين"
End If
End Sub

مرفق الملف بعد التعديل

q.rar

عندم طبقت المثال على برنامجي الذي اقوم بتصميمة ظهرت رسالة السجلات غير قابلة للتحديث نفس المشكلة ماهو سبب نجاح الطريقة مع المثال وعدم نجاح الطريق مع البرنامج الذي اصممة

الاخت الغالية ريم

لو سمحت ارفاق لنا جزء من برنامجك حتي نستطيع اكتشاف موقع الخطأ بالضبط

الأخت ريم

الطريقة التي ذكروها الأخوة في حلولهم صحيحها وقد جربتها

ربما تكون المشكلة في البرنامج

تفضل اخي الكريم المرفق

s.rar

ممكن أختي بعض الشرح لما تريدينه من الاستعلامات المبني عليها النموذج مع توضيح الرموز حتى نتمكن من مساعدتك