مشكلة في كود تعديل البيانات في اليوزرفورم

[شبل ليث]

السلام عليكم اعضاء المنتدى الكرام

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

تفضلكم بمساعدتي على ان لا يتم التعديل الا عندما يكون رمز المنتسب مطابقا للرمز في المستطيل الاصفر ..ولكم مني فائق الشكر والتقدير .

ملاك 2021.xlsb

[أ / محمد صالح]

يمكنك تغيير سطر الشرط

If C = Val(Me.TextBox6) Then

إلى

          If C = Val(IIf(TextBox6 <> TextBox1, Me.TextBox1, Me.TextBox6)) Then

وتغيير آخر سطر قبل نهاية الإجراء

Call TextBox6_Change

إلى

Me.TextBox6 = IIf(TextBox6 <> TextBox1, Me.TextBox1, Me.TextBox6)

بالتوفيق

[شبل ليث]

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

[أ / محمد صالح]

الشكر لله

وفقنا الله جميعا لكل خير