سلام و با تشکر از پاسخ سریع شما
دوست من تو ضمیمه شما دو فایل وجود داشت که هر چه فکر کردم متوجه نشدم چرا فایل nemone را هم ارسال کردین .جالب اینکه این فایل در پست 4 توسط دوست دیگری ارسال شده بود !!! و جنابعالی در پست 5 از select case استفاده کرده بودین که من هم از روش شما استفاده کردم
در هر صورت در فایل Nemone5 مشکل درج رنگ غیره ، در گزارش کاملا حل شده و از این بابت ممنونم :
Case Else
Me.Text31 = " "
Me.Text32 = " "
Me.Text33 = Me.Rang.Column(1)
اما همانطور که گفتم مشکل اصلی اینه که جستجو بر اساس نام رنگ ها ممکن نیست و مستحضرید که کاربر درفرم جستجو باید از نام رنگ استفاده کنه و نه از کد رنگ یا همون ID جدول رنگ ها به عبارت دیگه میخام کاربران امکان سرچ رکوردها رو بر اساس رنگ داشته باشند .
(اگه راهی باشه که کاربر مقدار رنگ رو وارد کنه و کوئری نتیجه جستجوی کد رنگ رو برگردونه مشکل حل میشه به شرطی که توجه داشته باشیم که تعداد رنگها ثابت نیست و به کاربر امکان اضافه کردن رنگهای دیگه هم داده شده )
به فایل اصلاحی شما فرمی برای جستجو اضافه کردم لطفا اگر ممکنه بررسی بفرمایید