ربط فورمه بكود

[ناصر سعيد]

الاستاذ الكبير ياسر

عندي سؤال

هل عندما نريد ان يعمل اي كود مع الفورمه الموجوده حاليا

نضع الفورمه الموجوده بالملف مع كودها الخاص بها ونضيف جملة

  Call DoIt

ونضع الكود المطلوب ربطه بها في موديول

هكذا يتم الربط هل فهمي لها صح

[ياسر خليل أبو البراء]

نعم أخي الكريم

يمكنك استدعاء الكود بهذا الشكل باستخدام كلمة Call ثم اسم الإجراء الفرعي من أي موديول ومن أي فورمة

[ناصر سعيد]

اسم الاجراء الفرعي هو الاسم اللي بعد كلمة sub

لان ارى بعض الاكواد فيها كلمة   sub واحدة  ... هل فهمي صحيح

[ياسر خليل أبو البراء]

لم أفهم سؤالك أخي الكريم

ماذا تقصد؟

نعم اسم الإجراء الفرعي يلي كلمة Sub لكني لم أفهم الجزئية الثانية من سؤالك

[ناصر سعيد]

هل يمكن ان تفرد لنا درسا خاصا بكيفية ربط فورمه بكود

[ناصر سعيد]

كودك الخاص بنسخ الصفوف به عدد 2 SUB   وليست sub واحده

[ياسر خليل أبو البراء]

الكود الذي ستجد به بارامتر أي كلام بين القوسين لا شأن لك به فهو إجراء يشبه الدوال المعرفة وعلى أساسه يعمل الإجراء الفرعي الآخر

فالكود المسمى DoIt هو الكود الذي ستقوم باستدعائه

[ابن بنها]

شكرااااااااا استاذ ياسر

تظهر رساله  وساصورها لكم اعانكم الله

تم تعديل أبريل 22, 2016 بواسطه ابن بنها

[ابن بنها]

تظهر هذه الرساله

 

ماذا نعني هذه الرسائل وماذا افعل

 

[ابن بنها]

تكمله سطر الرساله

نفس السطر للرساله

[ياسر خليل أبو البراء]

أخي الكريم هل تظهر رسالة خطأ عند هذا السطر ..
 الأفضل إرفاق الملف الذي يحدث فيه الخطأ للوقوف بشكل صحيح على الخطأ؟

[ابن بنها]

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

[ياسر خليل أبو البراء]

لا أدري سبب الخطأ لأن جربت الكود عندي ويعمل بشكل جيد ..لذا طلبت إرفاق الملف .. قد تكون نسخة الأوفيس لديك هي المشكلة (أنا أعمل على أوفيس 2016)

ربما يفيدك أحد الأخوة الذين لديهم نسخة أوفيس أقدم

[ابن بنها]

الاوفيس عندي 2003 ... ارجو شرح الرسايل اللي طلعت معناها ايه

وساحاول ارفاق ملف

[ياسر خليل أبو البراء]

أي رسايل تريد شرحها لا أرى أية رسائل ... أرى أسطر باللون الأصفر مما يدل على وجود خطأ في هذا السطر لديك ، والخطأ سببه في الغالب نسخة الأوفيس 2003 ، ولا تسألني عن كيفية حلها لأنه ليس لدي نسخة أوفيس 2003 ولن أرجع 13 سنة للوراء ... حاول تواكب التطور فالتطور لن ينتظرك أخي الفاضل

[ابن بنها]

هذا هو الملف اخي الكريم

 

رساله خطأ 1.rar

[ابن بنها]

سر الفيجوال 1

[ياسر خليل أبو البراء]

شاهد الفيديو التالي لتتأكد بنفسك أن الكود يعمل معي بشكل طبيعي .. هذا يرجع لنسخة الأوفيس في غالب الأمر

 

 

 

Watch.rar

[ابن بنها]

اخي الكريم

اجهزة الكمبيوتر الخاصه بالمدارس انت تعلم امكانياتها جيدا

وكويس انها تعمل جيدا مع 2003

ولذلك ارجوك تشوف حل لان الكود  مع الفورمه راااااائع

[ياسر خليل أبو البراء]

إن شاء الله يتدخل أحد الأخوة ممن لديهم أوفيس 2003 ليجربوا عليه ..لأنني يمكن أن أحاول وأجرب ولكن كيف سأجرب على نسخة لا أعمل عليها

لعله خير ..ننتظر مشاركات الأخوة الأعضاء

[ابن بنها]

مجرد راي يا استاذ ياسر

ممكن نعمل كود جديد للمسح بعدد الصفوف المطلوب مسحها ونضيفه مع الفورمه بفكرتك الرائعه

ونبعد عن السطر الاصفر

[ياسر خليل أبو البراء]

نعم يمكن أخي الكريم ولكن أفضل فتح موضوع جديد مع إرفاق ملف بسيط توضح فيه المطلوب بشكل تفصيلي .. كي لا يطول الموضوع هنا بدون داعي

أفضل طرح موضوع مستقل لأن الكود سيكون مستقل عن الكود الأصلي الذي يؤدي الغرض بالنسبة للنسخ .. ولا تنسى أن تضع كود النسخ للصفوف في كل أوراق العمل بآخر إصدار لديكم ..لتكملة العمل على هذا الأساس

[قصي]

جزاكم الله خيرا

شكرا استاذ ياسر

[قصي]