[elgokr]

بخصوص ما تشير اليه بالدائرة الحمراء

بما ان الكود القصود بهنا هنا رقم

بناءاً على كود الاستعلام

كود :

Val(Code_)

فاجعل ما بالدائرة الحمراء بهذه الطريقة

كود :

ByVal CODE_ As Integer

ثم تعال على كود الاستعلام وقم بعمل التالى

كود :

BUYCODE = " & CODE_, CON)

طيب لو انت محتاج حل تانى لنفس الكود الذى تستخدمه

بدون اى تعديلات فقط حلا لمشكلة ليس اكثر

كل ما عليك التعديل على كود الاستعلام بهذا الجزء

كود :

BUYCODE = val('" & CODE_ & "')", CON)

قم بتغييره ليصبح

كود :

BUYCODE = val(" & CODE_ & ")", CON)

وسيتم حل المشكلة

تحياتى لك

وتمنياتى لك لاتوفيق