اجراء حدث عند التحرك صعودا ونزولا على اللائحة المنسدلة

Dim x As Variant
   Me![Price] = DLookup("[CPrice]", "beda", "[beda]=[Forms]![Mabiat_Insert]![Mabiat_Insert_Sub]![beda]")
   Me![Price_sell] = DLookup("[Price_B]", "beda", "[beda]=[Forms]![Mabiat_Insert]![Mabiat_Insert_Sub]![beda]")
   x = DLookup("[Note_beda]", "beda", "[beda]=[Forms]![Mabiat_Insert]![Mabiat_Insert_Sub]![beda]")
   Forms![Mabiat_Insert].[Show_Note_Beda] = x

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

لدي جدول بأسماء المواد متضمن

اسم المادة           سعر الشراء           سعر المبيع          ملاحظات

اثناء تحرير فاتورة المبيعات

هناك لائحة منسدلة ننضمن بداخلها 

اسم المادة      سعر الشراء               سعر المبيع           رصيد المادة

يتم اظهار الملاحظة المتعلقة بالمادة في اسفل الفاتوة،  بعد احتيار مادة ما من اللائحة المندسدلة (باستخدام الحدث After Update المتعلق باللائحة المنسدلة) ........... وكل شيء يعمل بشكل ممتاز مائة بالمائة وفق الكود التالي المذكور اعلاه

سؤالي :

كيف لي ان انفذ الكود خلال تنقل المستخدم على اللائحة المنبثقة صعود ونزولاً

أي بمعنى اخر، بعد فتح المنسدلة ......يتحرك المستثمر صعود ا ونزولا على الأسماء .......اريد هنا ان ينفذ الحدث المذكور الذي من خلاله احصل على الملاحظة المتعلقة بالمادة واعرضها بالاسفل

أين يجب ان يوضع الكود ؟؟؟

والف شكر