kafi

السلام عليكم   ضع الكود التالي   =Fomrs![Yomm1].[not]   عند حدث القيمة الافتراضية للقائمة المنسدلة المتواجدة بالنموذج الفرعي   والسلام عليكم            

السلام عليكم   ضع الكود التالي   =Fomrs![Yomm1].[not]   عند حدث القيمة الافتراضية للقائمة المنسدلة المتواجدة بالنموذج الفرعي   والسلام عليكم            

الف شكر اخي يوسف احمد على اجابتك بارك الله فيك

شكرا اخي ramhan على اجابتك   ولكن اين المرفق ؟؟

up

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 المتعلق باللائحة المنسدلة) ........... وكل شيء يعمل بشكل ممتاز مائة بالمائة وفق الكود التالي المذكور اعلاه   سؤالي : كيف لي ان انفذ الكود خلال تنقل المستخدم على اللائحة المنبثقة صعود ونزولاً أي بمعنى اخر، بعد فتح المنسدلة ......يتحرك المستثمر صعود ا ونزولا على الأسماء .......اريد هنا ان ينفذ الحدث المذكور الذي من خلاله احصل على الملاحظة المتعلقة بالمادة واعرضها بالاسفل   أين يجب ان يوضع الكود ؟؟؟   والف شكر                        

شكرا اخي ramhan شكرا اخي جعفر على التواصل   تم تعديل الكود   ولكن مازالت تظهر شاشة الربط، ( وهي التي يجب الا تظهر لان الجداول داخل القاعدة) في اول فتح البرنامج   المفروض هنا في حال كانت الجداول ضمن القاعدة ان تظهر شاشة PassWord Main   المشكلة انني اضع Break Point على الاسطر الموجودة بالاجراء Relink من اجل التتبع، الا انني لا استطيع التتبع.   ارجو المساعدة والف شكر       kafi up1.rar

السلام عليكم    شكرا اخي ramhanعلى ما تفضلت به، ولكن سياستي في تسويق برنامجي، تعتمد على عرض الديمو على الزبون ( الديمو اما ان تكون قاعدة البيانات فيه منفصلة، أو ان تكون قاعدة البيانات ضمن القاعدة الاساسية) ، وعلى ضوء ما يجد الزبون راحة اعطيه النسخة التي تناسبه.    الف شكر اخي جعفر، على تواصلك معي، للوصول بالكود الى الشكل الاحترافي   تم اضافة الاسطر  التي اشرت اليها ظهرت رسالة خطأ عند السطر Exit sub   صورة 1   قمت بتجميد ذلك السطر   وتابعت التجريب، ظهر لدي رسالة برقم الخطأ ومن ثم ظهرت شاشة الربط  ( وهنا كلتا الشاشتين يجب الا تظهر امام المستثمر ....بل يجب ان تظهر له الشاشة الافتتاحية التي تخوله كتابة كلمة السر) صورة 2   ارجو الاطلاع والتصويب   بارك الله فيك   والف شكر kafi up.rar

السلام عليكم   اخي جعفر بارك الله فيك   قمت بارجاع الجدوال الى نفس قاعدة البيانات، وتفاجئت بأنه عند تشغيل البرنامج تظهر رسالة خطأ ( انا ارغب بأن يظل الكود داخل برنامجي الاساسي، في حال كان رغبة المستثمر بأن تكون الداتا منفصلة، اقوم بفصل الجداول عن القاعدة الاساسية واعطيه البرنامج، من غير ان اعدل على البرنامج الاساسي)   ارجو المساعدة   والف شكر     Ex Q03.rar

السلام عليكم   تمت تجربة المثال مع نظام ويندوز 8.1 واوفيس 2007 المثال لا يعمل ويعطي رسالة خطأ   هل من الممكن التعديل على المثال حتى يعمل في ظل بيئة ويندوز 8.1   والف شكر\      

حاول اخي الكريم 1- فتح ملف اكسس جديد 2- قم بعملية الاستيراد من الملف المعطوب الى الملف الجديد   غالبا ما كان ينجح الامر معي هكذا   والعطب غالبا ما يكون بسبب انقطاع التيار الكهربائي

الف الف شكر اخي جعفر   جزاك الله عني كل خير   بارك الله فيك     الحمد لله نجح الامر مع الكود المختصر الذي تفضلت به حضرتك وتم تطبيقه، والحمد لله نجح الامر   اخي الكريم المثال بحاجة الى بعض اللمسات، حتى يأخذ شكله الاحترافي   اولاً : عندما لا يكون هناك ربط صحيح بالداتا ... تظهر رسالة باسم ملف الداتا الغير مرتبط بالقاعدة الاصلية للبرنامج..... ( صورة 16) وهي شكلها بعيد عن شاشات البرنامج        صممت شاشة تتلائم مع شكل شاشات البرنامج وفيها نفس عبارة التحذير صورة 17          سؤالي : هل بالامكان عدم اظهار شاشة التحذير العائدة للاكسس واظهار الشاشة المشار اليها بالصورة 17   ثانياً : عندما لا يكون هناك ربط صحيح بالداتا، وظهور رسالة التنبيه العائدة للاكسس ثم ظهور شاشتي التي من خلالها يتم الربط بملف البيانات هنا لاحظت انه بعد ان يتم الربط ..........لا يعود البرنامج الى الشاشة الافتتاحية PassWord Main ويبقى بدون اظهار اي شئ للمستثمر والمفترض ان تظهر شاشة Password Main   هل هناك من حل لهذه المشكلة   ثالثاً : انا بحاجة في الماكرو Autoexec  بالاضافة الى الاجراء Relink الذي تفضلت به حضرتك الى الاجراء الذي يعمل على عدم اتاحة الضغط على زر الاغلاق للاكسس صورة 18 كيف لي ان افعل كلا الاجرائين     والف الف شكر          

الف الف شكر اخي جعفر جزاك الله عني كل خير بارك الله فيك   شكرا اخي عبد الله المجرب / واخي مراد على ماتفضلتم به بارك الله فيكم.   الحمد لله نجح الامر مع الكود المختصر الذي تفضلت به حضرتك وتم تطبيقه، والحمد لله نجح الامر   اخي الكريم المثال بحاجة الى بعض اللمسات، حتى يأخذ شكله الاحترافي   اولاً : عندما لا يكون هناك ربط صحيح بالداتا ... تظهر رسالة باسم ملف الداتا الغير مرتبط بالقاعدة الاصلية للبرنامج..... ( صورة 16) وهي شكلها بعيد عن شاشات البرنامج        صممت شاشة تتلائم مع شكل شاشات البرنامج وفيها نفس عبارة التحذير صورة 17          سؤالي : هل بالامكان عدم اظهار شاشة التحذير العائدة للاكسس واظهار الشاشة المشار اليها بالصورة 17   ثانياً : عندما لا يكون هناك ربط صحيح بالداتا، وظهور رسالة التنبيه العائدة للاكسس ثم ظهور شاشتي التي من خلالها يتم الربط بملف البيانات هنا لاحظت انه بعد ان يتم الربط ..........لا يعود البرنامج الى الشاشة الافتتاحية PassWord Main ويبقى بدون اظهار اي شئ للمستثمر والمفترض ان تظهر شاشة Password Main   هل هناك من حل لهذه المشكلة   ثالثاً : انا بحاجة في الماكرو Autoexec  بالاضافة الى الاجراء Relink الذي تفضلت به حضرتك الى الاجراء الذي يعمل على عدم اتاحة الضغط على زر الاغلاق للاكسس صورة 18 كيف لي ان افعل كلا الاجرائين     والف الف شكر Ex Q02 up.rar

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

السلام عليكم شكرا اخي جعفر على استمرارك في المحاولة لايجاد حل   ولكن الملف الاخير الذي ارسلته اخي الكريم، كان ايضا معطوب.   والف شكر