خطأ فى ترحيل البيانات من اليوزر فورم الى الشيت

[إبراهيم ابوليله]

الاخوه الكرام

عندى فاتوره بها اكثر

من 100سطر

ويحدث خطأ اثناء الترحيل ارجو المساعده ان امكن

Copy of S.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / إبراهيم ابوليله

بارك الله فيك

ولكن بالنسبة للكود الخاص بملفك ليس بالكود اي خطأ

ولكن الكود طويل جدا فهذه هي فحوي الرسالة التي تظهر لك ولتفادي ذلك

** اولا : يمكنك تقسيم الكود الي اجزاء بسيطة لتقليل طول اسطر الكود واستدعاء هذه الاجزاء مع بعضها من خلال عبارة  Call macro 

** ثانيا يمكنك  تغيير الكود باستخدام جمل دوران مثلا وطرق اخري ... حيث ان الكود المستخدم مع سهولته وبساطته الا انه مع ملفك يصبح طويلا جدا

 

** ثالثا وهو الاهم ( وهو امر لك وحدك ) وجود اكثر من 100 صف بالفاتورة امر مرهق جدا للمصمم و مستخدم البرنامج وكذلك ايضا

   اظن ان ذلك يرهق ويؤثر ايضا علي رامات الجهاز ويحتاج رامات عاليه

 

وفي النهاية شاهدت هذا الرابط  بعنوان ( هل للكود حد اقصي في الاسطر والاوامر .. وما هذه الرساله ؟؟ )

 

http://www.officena.net/ib/index.php?showtopic=47661&hl=%2B%D8%A7%D9%84%D9%83%D9%88%D8%AF+%2B%D8%B7%D9%88%D9%8A%D9%84

 

عذرا للاطالة  اخي الكريم

تقبل خالص تحياتي

[إبراهيم ابوليله]

اخى حماده

طبعا مشكور على المعلومات الجميله دى

ومشكور على الرد والاهتمام

ولكن هل ممكن تساعدنى فى عمل ذلك

ارجو المساعده

فانت ذكرت انه يمكن عمل ذلك

عن طريق جمل الدوران

ارجو المساعده ان سمح الوقت معك

بارك الله فيك

[حمادة عمر]

السلام عليكم

الاخ الكريم / إبراهيم ابوليله

بارك الله فيك

شاهد اخي الكريم الملف المرفق

نظرا لضيق الوقت فقط لدي هذه الايام ( الميزانية بقي ) قمت بضبط الكود الذي قمت انت بوضعه ليعمل بشكل سليم وطبيعي

وان شاء الله حال وجود اي وقت فراغ ساعمل علي الفورم خاصتك

** حيث تم تقسيم الكود الي ثلاثة اجزاء ( جزء رئيسي وهو في حدث الزر الخاص بالترحيل  - جزئين في موديل منفصل )

  ولكن يجب ملاحظة انه عند تقسيم الكود ونقله الي موديل جديد فانه يجدب عليك تغيير كلمة ME في الكود الي  UserForm24

** وبذلك اصبح لدينا كودين اسمهما مثلا  Sub sama1  و Sub sama2

** ثم يتم استدعاؤهما في الكود الاساسي في حدث الزر بوضع السطرين

Call sama1
Call sama2
Call sama3



** قم بتجربة الكود وابلغني بالنتائج

مع ملاحظة انه في الكود كان هناك بعض الاكواد المكررة والتي كانت ستعيق عمل الكود مثل الاكواد الخاصة بـ

If B29.Value <> "" Then

وكذلك

If b64.Value <> "" Then

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

ان شاء الله في الملف والكود بطلبك

تقبل خالص تحياتي

 

 

 

Copy of S-SAMA.rar

[إبراهيم ابوليله]

اخى حماده

بارك الله فيك وطبعا مجهود مشكور عليه

وانا فى انتظار الرد الاخر

حينما يسمح لك الوقت بذلك

[حمادة عمر]

ولكن اخبرني اولا هل هذا الحل يعمل معك بالشكل المطلوب ام لا

تقبل خالص تحياتي

[إبراهيم ابوليله]

اخى حماده

انشاء الله

سوف يتم التجربه

وستم الرد سريعا