سؤالي في النماذج

بالطبع يمكنك كتابتها ب SQL او ب VBA ولكن هناك طريقة اسهل بكثير و هي التالي

ضع رقم المنتج في قائمة سرد Combobox

اجعل القائمة تاخذ بياناتها من رقم المنتج و اسم المنتج كمان

عدل الخصائص الخاصة بها لتظهر القيمة الاولى و تخفي القيمة الثانية بتعديل خاصية ال colomn width ب صفر و ثم فاصلة و ثم واحد

Colomn Width = 0;1

في خاصية AfterUpdate اي بعد التحديث اضع كود يحدث اسم المنتج و ياتي ببياناته من ال Combo Box

لنفترض بان رقم المنتج اسمه ab و اسم المنتج اسمه cd فاذن

me.cd = me.ab.Column(1)

و يعني هات بيانات العمود الثاني المخفي حيث ان العمود الاول رقمه صفر ، و العمود الثاني هو الذي به اسم المنتج المقابل لرقم المنتج الذي تم اختياره

قم بانشاء نموذج تحت اسم form1

اربطه بالجدول الرئيسي a1

قم باضافة حقول الجدول للنموذج واحفظه

قم بانشاء مربع نص في النموذج واعطه اسم number1

قم بوضع زر امر الى النموذج وضع في خاصية "عند النقر" الكود التالي

Me.RecordSource = "query2"

قم ببناء استعلام واربطه بالجدول a1 واعطه اسم query2

من قائمة view في الاستعلام اختار الامر sql view

امسح الكود الموجود بداخله وضع الكود التالي

SELECT a1.[رقم المنتج], a1.[اسم المنتاج]

FROM a1

WHERE (((a1.[رقم المنتج]) Like Forms!Form1![number1]));

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

بعد ذلك عليك ان ترجع الى مصدر السجلات وربطه باجدول الاساسي

بالتوفيق

اشكركم شكرا جزيلا الاستاذان الكريمان خضر ترزي و علاء البيطار.

كانت الاجابتان رائعتان .

ولكن كان كل ماريده هو كود برمجي باستخدام sql لاضعه في النموذج

في مكان رقم المنتج في الحدث enter.

وشكرا مرة اخرى.