nssj

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

الأخ الكريم جعفر .. تم الأمر بحمد الله فجزاك الله خيراً مع ملاحظة أن الكود لم يحذف المسافات التي في آخر السطر .. وربما لأنني لم أطلب ذلك في بداية الموضوع 🙂 .. ولكن الأمر هين ولا أريد أن أعقد الأمر أكثر من ذلك ثم وأنا أجري التجارب وبعد تقليب النظر بين الأكواد السابقة اخترعت استعلامين، أحدهما لحذف المسافة في بداية السطر UPDATE مسند SET nass = Replace(nass,Chr(13)+" ",Chr(13)); والثاني لحذف المسافة في آخر السطر UPDATE مسند SET nass = Replace(nass," "+Chr(13),Chr(13)); طبعا .. هو يحذف مسافة واحدة فقط .. ولكن هذا بالنسبة لي إنجاز كبييير 🙂 .. وحتى في الوورد الذي أعمل عليه منذ سنين أنا أقوم بهذا الأمر بنفس الطريقة تقريبا .. أستمر بعملية الاستبدال أكثر من مرة لحذف جميع المسافات والأسطر الزائدة ولكن -وإن كان طلبا جانبيا خارج الموضوع- كيف يمكنني إدماج مثل هذين الاستعلامين في استعلام واحد .. لعلي أستخدم هذا الأمر في استعلامات أخرى

الأخ الكريم biskra .. الكود الذي تفضلت به يحذف المسافات المكررة خلال النص، ولم ألاحظ أنه حذف المسافات أول وآخر السطر، وهي المطلوبة ثم بصراحة .. الموضوع يزداد تشعبا بالنسبة لمبتدئ مثلي بينما كنت أظن أنه أيسر من ذلك .. وأنا خايف يصير وضعي أصعب من الصعب 🙄

الأخ الكريم Hawiii .. جربت استخدام الكود فلم أفلح .. سواء لوحده أم باستعلام أم مع وحدة نمطية 🙄 وأود أن أذكرك بأن وضعي صعب جداً .. ولم أصل بعد لدرجة مبتدئ .. ومصطلحات: وحدة نمطية .. واستدعاء الكود .. والتحويل لاستعلام .. مصطلحات لم أستطع تطبيقها إلى الآن فالرجاء التطبيق العملي على الملف حتى أتعلم وأطبق في المرات القادمة .. سواء في هذا الكود أو غيره

أخي الكريم .. هذا الكود قلب الملف رأسا على عقب 🙃 وألغى كل المسافات 😂

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

الإخوة الكرام .. الظاهر أن وضعي أصعب مما ظننت 😪 جربت الكود الذي تفضل به الأخ أبو مهاب ولم يحدث شيئ ثم رأيث مشاركة الأخ جعفر وعملت المطلوب، لكن بخصوص الملاحظتين الأمر لا زال على حاله: التغيير فقط على السحل الذي أنا فيه وليس كل الملف، وإذا وضعت المؤشر تعود المسافات التي تم حذفها حتى لو غادرت السجل ثم عدت إليه !! ثم يظهر لي بخصوص حذف المسافات في بداية السطر أنه يحذف مسافة واحدة فقط والرجاء من أهل الخبرة مراعاة وضعي الصعب وإجراء اللازم على الملف وإعادة رفعه تلافيا لسوء فهمي أو تصرفي

الأخ المكرم جعفر .. صبرك علي شوي .. وخليك معي خطوة بخطوة سلمك الله .. فيظهر أني لم أصل بعد إلى مرتبة: مبتدئ 🤔 أولا: هل لابد من وحدة نمطية .. ألا يمكن أن يقوم الكود بالعمل بدونها ؟ ثانيا: بالتطبيق على الملف المرفق حسب فهمي المتواضع، ظهر لي أن الكود يعمل على السجل الموجود انا فيه فقط، والمطلوب أن يعمل على كل الملف ثم وبمجرد ان أضع المؤشر على خانة النص تعود المسافات في أول الأسطر فيظهر أني أم أفهم الدرس جيداً 🙄 أسطر2.accdb

وعليكم السلام ورحمة الله وبركاته أخي الكريم جعفر .. وبارك الله فيك لكن إذا تكرمت أنا بحاجة لهذا الكود منفصلاً عن كود التحويل من وورد. أي أني بحاجة لهذا الكود لاستخدامه بين الحين والآخر على أي نموذج في أي قاعدة بيانات، كل المطلوب من مبتدئ مثلي حينها تغيير اسم النموذج أو الجدول في زر تنفيذ الكود وهي عملية أقوم بها بين الحين والآخر لمعالجة ظهور هذه المسافات والأسطر الفارغة نتيجة عمليات القص واللصق المتكررة والمتعددة من هنا وهناك، فضلا عن احتمال وجودها بالخطأ عند الكتابة السريعة ونحو ذلك .. فهي أشبه بعملية تشطيب (سوبر ديلوكس) بعد ورشة عمل عنيييييفة ☺️ ثم على ذكر موضوعنا بخصوص التحويل من وورد .. هل لك أن تنظر في وضع اللمسة الأخيرة هناك لنغلق الموضوع .. وجزاك الله خيرا

الأخ الكريم (أبو عبد الله) لم أعرف أن أستخدم هذه الدالة على حقل النص، فالرجاء تطبيقه على الملف المرفق ويبقى موضوع: حذف الأسطر الفارغة

الإخوة الكرام .. ماهو الكود الذي يقوم بحذف الأسطر الفارغة سواء في بداية الحقل أو أثنائه وكذلك كود حذف المسافة أو المسافات التي تكون في بداية الأسطر أسطر.accdb

وأخيراً وبحمد الله .. ظهرت هذه الرسالة .. بدون عمليات تجميل أو استبدال في الوورد فجزاك الله خيراً أخي الكريم جعفر .. ولكن معلش .. هل هناك مجال للمسة فنية أرجو أن تكون الأخيرة 😅 بخصوص الرسائل السابقة .. بقيت الرسالة الثانية (3163) والتي تخرج بسبب اختلاف ترتيب الأعمدة بين الجدولين، فإذا نسيت أن أجعل عمود النص العمود الأخير، وهو المبرمج ليكون مذكرة تخرج هذه الرسالة .. فلعلك تعالجها بنفس الطريقة ، وإذا كان من الأيسر لك أن تخصص لهما رسالة واحدة، كأن تكون: الرجاء التأكد من مطابقة الملف للخصائص المطلوبة المهم ألا يعمل الكود في هذه الحالة أيضاً وهل من الضروري أن تخرج بعد ذلك الرسالة التي تخرج بعد إتمام العملية: Done وحياك الله أخي الكريم أحمد الفلاحجي وشكراً للأخ (أبو إبراهيم) على مشاركته، لكن لم أعرف أن أتصرف مع الملف المرفق، بسبب خروج رسائل بخصوص مسار الملفات لم أعرف التصرف معها لقلة خبرتي لكن بخصوص الاستيراد بعد حفظ ملف الوورد على هيئة ملف Html، فجربتها لكن تبقى مشكلتنا الأساسية: أن يستورد الفقرات كما هي، وعندما قمت بذلك تم إلغاء الفقرات وأصبح النص كله في فقرة واحدة أما كلامك أخي الكريم عن البطء في معالجة البيانات .. فهو كلام مهم جداً لكنه كلام بين الخبراء ولا أفهم فيه 🙄.. وهو مفيد في الموضوع المهم جداً بالنسبة لي: إضافة سجل بين السجلات ونقل السجلات

ملاحظة فنية تخرج هذه الرسائل إذا كان هناك اختلاف في عدد الأعمدة وخصائصها بين الملف وبين الجدول الافتراضي (tbl_From_Word) وإذا لم أنتبه وأعدت الكبس على (Import Word Files) قد أضطر لإجبار البرنامج على الخروج لأنه يأخذ وقتا طويلاً فلو كان بالإمكان عند حدوث هذا الأمر (عدم تطابق الملف مع tbl_From_Word) ألا يبدأ الكود بالعمل وإن كررت -خطأ- الكبس على (Import Word Files) كما يحدث عندما لا تحدد ملفا معينا، تخرج رسالة (رجاء اختيار الملف) ولا يبدأ الكود بالعمل مهما كررت الكبس عليه

أخي الكريم .. فعلت ذلك أكثر من مرة .. وحصل تقدم بسيط ، ولا أدري لعل الخطأ مني منذ البداية في الطريقتين (1 - 2) النتيجة تمام الطريقة (3) وهي الأكثر أمانا بالنسبة لي النتيجة نفسها: وجود الشرطة والمهم في الأمر أن المربع لا يزال موجوداً في أكسس في كل المواضع التي كانت علامة السطر الجديد فيها في الوورد (فاصل أسطر يدوي) بمعني انه في أكسس لا تظهر الفقرة في سطر جديد بل بعد هذا (المربع المش ظريف) وهذا ملف الوورد الذي أجريت عليه التجارب، وعلامة (فاصل أسطر يدوي) موجودة فيه في خمسة مواضع، بعد (##) 03.doc

أنا حريص كل الحرص على الاستماع لنصائح الخبراء أمثالكم أخي الكريم .. وأحب أن أطمئنك أن الجدول الرئيسي هو جدول واحدأ لكن في البداية أنا بحاجة للتعامل مع كل جدول -أو مسند- لوحده لإجراءات خاصة بكل واحد منها، وبعد الانتهاء من كل ذلك سيصبحون جدولاً واحدا .. وإلا فكيف سيكون الجدول الرئيسي بهذا الحجم الذي سبب لي البطء والمشاكل 😒 وبالعودة إلى موضوعنا .. لا يزال صاحبنا (مربع الاستفهام الظريف 😅) مصراً على الإزعاج .. وإن كان هذه المرة بشكل أقل .. وبطريقة حيرتني فأنا أستخدم أكثر من طريقة لتحويل حقل النص إلى وورد وإجراء المقارنة، ليس من بينها استخدام التقرير لأني لا أعرفها بعد وهذه المرة .. كل طريقة تختلف نتيجتها 1- الطريقة الأسرع: نسخ العمود من أكس ولصقه كنص عادي (الاحتفاظ بالنص فقط) في الوورد .. والنتيجة بهذه الطريقة تمام .. كما كان في الوررد .. لكن أصبحت أتجنب هذه الطريقة لأنها تزيد " في أول وآخر كل حقل، بل وأثناء النص بجانب كل " موجودة في النص !! 2- نسخ العمود ولصقه في الوورد كما هو، ثم تحويله إلى نص عادي غير منسق، والنتيجة: الكلام متصل وليس في سطر جديد وملاحظة جانبية في هذه الطريقة: لا توجد مشكلة " ، لكن تم إلغاء المسافات المتكررة !! 3- تصدير الجدول كلف (Word RTF) ثم نسخ العمود المطلوب ولصقه كنص عادي، والنتيجة: استبدال الفقرة بشرطة وسبب كل هذا: حضرة جناب (المربع الظريف)، لأنه لا يزال موجوداً في أكسس ولم يتم تحويله لسطر جديد، سواء في الجدول أو في النموذج مع أنني إذا نسخت هذا السطر مع (المربع الظريف) ولصقته في الوورد سيتحول لسطر جديد! وبما أنني لا أجيد في الكود إلا القص واللصق، وبعد النظر في الأكواد السابقة استخدمت هذا الإستعلام: UPDATE tbl_From_Word SET Col_4 = replace(Col_4,Chr(11),Chr(13)); وتم تحويل (المربعات الظريفة) لأسطر، وعند التحويل للوورد بجميع الطرق والمقارنة كانت النتيجة المطلوبة: لا فروق بين المستندات الحاصل بعد كل هذا .. لضمان سلامة النص على كل الاحتمالات لابد من ضمان تحول هذا (المربع الظريف) إلى سطر جديد في أكسس وأن لا يظهر أبداً، فهل هذا بالإمكان؟ إن لم يكن .. فلعله من الأسلم القيام بعملية الاستبدال المذكروة في وورد قبل البدء بالتحويل بانتظار رأيكم أخي الكريم لوضع اللمسة الأخيرة على هذا الموضوع

الأخ الكريم جعفر .. تم المطلوب بحمد الله .. وجزاك الله خيراً

الأخ المكرم جعفر وبقية الإخوة الكرام .. أشكر لكم متابعة الموضوع معي .. وأرجو أن تستمروا فيه معي لنهاية الطريق للوصول لأفضل النتائج .. أو لأفضل الطبخات 🙂.. مع أقصى سرعة ومرونة يسمح بها شرطي المرور (ACCESS) لأنه لابد لي من نقل عملي من الوورد لأكسس للاستفادة من مزاياه أنا أكتب هذه الكلمات على عجل للانشغال اليوم ببعض الأمور .. وسأعود لاحقا بتفاصيل أكثر بعون الله وإنما أحببت أن أخبركم ببعض المستجدات الجيدة بحمد الله.. قمت بالأمس بزيادة الرام للجهاز من (4) إلى (12) ونزلت أكسس (2019) والنتيجة بحمد الله أفضل مع أن التجارب لا تزال في بداياتها .. لكن إلى الآن لم يغلق البرنامج والحمد لله والظاهر أن الكود الذي تفضل به الأخ (husamwahab) والذي يعمل على الترقيم العشري أسرع في الملفات الكبيرة، مع أني لم أستطع أن أجعله يعمل بشكل جيد في النموذج المفرد، لأن خاصية الإضافة وحدها مطلوبة في النموذج المفرد أيضاً، أما النقل ففي النموذج المستمر فقط لغايات التحديد ولعله يمكن البناء على هذه الطريقة، مع التعديلات التي يراها أهل الخبرة، والإضافات التي سأحاول توضيحها بالتفصيل لاحقا بعون الله المهم في البداية رأي الخبراء في الخطوط العريضة لهذه العملية بالنظر لحجم الملف الكبير من حيث: عدد السجلات وطول الأحاديث في بعض الحقول وأرجو أن يؤخذ بالاعتبار العلاقات والارتباطات المتعددة والمتشابكة التي ستنشأ مستقبلا بين الملف الرئيسي وبين جداول أخرى .. وظني -ولست من أهل الخبرة- أنه لا تأثير لهذه العلاقات والارتباطات على موضوعنا لأن هذه التغييرات على الجدول الرئيسي، المهم أن المفتاح الرئيسي (MNO) لن يتغير حتى لو انتقل الحديث من أول الجدول لآخره، وكل حديث جديد سيضاف سيأخذ تلقائيا رقم (MNO) خاصاً به ومرفق رابط الملف الــ (big boss 🙂) الذي أجري عليه التجارب، وقد ميزت الأحاديث الطويلة جداً بــ (ططط) في بدايتها حيث أنها كانت سبب المشكلة والمشكلة كانت عند الوصول إلى هذه الأحاديث المطولة والتنقل قبلها وبعدها .. كان البرنامج يخرج .. وأحيانا تكون الأمور على ما يرام فإذا أضفت بعض التنسيقات على النموذج من حيث الألوان والخطوط تحدث المشكلة .. هذا قبل تحديث الرام ونسخة أكسس .. ولا تزال التجارب جارية big boss

عندما أضفت عبارة (من طريق يونس) ثم كبست على الرقم خرجت الرسالة .. لا بد أولا من (تحديث الكل) أو الخروج من الحقل والعودة إليه لينتقل .. لو كنت أعلم أن ذلك ييسر الأمر لأرسلت لك الملف على هذا الأساس 🙂 .. أنا لم أكن أعلم أصلاً أن هذا ممكن .. فأحسن الله إليك

معذرة أخي الكريم .. فهذا ملف تجارب .. وكنت وقتها أجرب ما ذا يعني (مجموعة حيوية) و (لقطة) في خصائص النموذج .. وكنت مسروراً بهذا الاكتشاف 🙂 .. مع أني لم أزل لا أعرف ما الفرق بين (مجموعة حيوية) و (مجموعة حيوية غير متسقة) 🤔 وبارك الله فيك أخي الكريم على هذا التعديل .. فقد أصبح بالإمكان التعديل والحذف والإضافة من خلال النموذج دون مشاكل، لكن لابد من عمل تحديث، أو الخروج من الصفحة والعودة إليها ليتم استيعاب هذه التحديثات والانتقال للرقم .. ولعلك تتكرم بجعل الكود يقوم بهذه الخطوة بنفسه إن أمكن وبخصوص وضع الرقم بين {} .. أنا كنت أستفسر منك إن كان وضع الرقم بين رموز أو أقواس خاصة يسهل العملية أو يجعل الوصول للرقم أفضل وإن تغير النص ذلك أنه يبدو لي أن الدالة تبحث عن الرقم بأن تقوم بعد الأحرف وغيرها، وتحفظ أن الرقم موجود بعد كذا حركة من بداية السطر .. أو شيء من هذا القبيل وبما أنني أحب التفكير معكم بصوت مرتفع قلت في نفسي: لو كان الرقم بين رموز خاصة لا تستخدم في هذا الجدول إلا لهذا الغرض: الإحاطة بالرقم المطلوب لعملية الانتقال .. هل يجعل هذا عمل الكود أفضل إذ يبحث عن هذا الرمز فيصل للرقم مباشرة .. أم أن الأمر ليس كما ظننت ؟؟

الأخ الكريم جعفر .. هل هذا الإجراء يقتضي ألا يتم تغيير النص في (الإحالات2) إلا من الجدول أو نموذج آخر لأني عندما حاولت أن أغير في النص في النموذج نفسه بإضافة أرقام أخرى أو غير ذلك، خرجت لي رسالة الخطأ التي تخرج عندما تكبس كبسا مزدوجا على غير الرقم، ولم تنتهي المشكلة إلا عندما رجعت إلى الجدول وحذفت الرموز البرمجية التي أضيفت وهل يمكن أن يسهل الأمر أن يجعل الرقم المراد الانتقال إليه بين رموز أو أقواس مخصصة لا تستخدم إلا لهذا الغرض، وليكن مثلاً {} وأعدت رفع الملف بعد جعل الأرقام بين {} إن كان هذا يفيد إحالات2.accdb

الأخ الكريم جعفر .. جزاك الله خيرا وأحسن إليك هديتك هذه تتيح لي مرونة وخيارات أكثر في العمل .. فبارك الله فيك ولا تزال التجارب جارية .. والله الموفق وهل هذا الأمر يعني أنه يمكن لرموز خاصة في حقل نصي أن يكون لها ارتباط خاص مع جداول أخرى .. إذا كان الجواب "نعم" فسأوضح المطلوب في موضوع مستقل لزيادة الإيضاح ثم أخي الكريم .. هل أطمع بمرورك على موضوعنا الأول (تحويل جدول من وورد إلى أكسس) لوضع اللمسات النهائية التي تراها مناسبة على هديتك القيمة هناك

قد يكون العنوان مبهماً غير واضح .. لكن بالمثال يتضح الموضوع بإذن الله في المثال المرفق في جدول (الإحالات2): [&] حديث أبي بكرة يأتي (20152) هل بالإمكان أن يكون لهذا الرقم ارتباط تشعبي بحيث إذا ضغطت عليه ينتقل للرقم المطلوب، قياساً على أنه يمكن تلوين هذا الرقم عند اختيار (نص منسق)، لأن هذا مفيد لإدراج أكثر من إحالة في نفس الخانة أحد الإخوة أخبرني أن هذا غير ممكن، وأن كل ما هو مكتوب في حقل واحد يكون ككتلة واحدة لا يمكن تخصيص بعضه بإجراء معين كهذا الإجراء هل هذا كلام نهائي أم يمكن فعل ذلك بطريقة ما وبناء على كلام هذا الأخ تم تصميم جدول الإحالات على أساس أن يكون الرقم المحال عليه في حقل خاص، كما هو في جدول (الإحالات) إحالات.accdb

How to Fix MaxLocksPerFile Microsoft Access Error نتيجة التجارب إلى الآن: قبل التغيير المذكور (Dim kano As Long) وعند التجربة على الملفات الكبيرة كانت النتيجة سريعة وبلا مشاكل وبعد التغيير والترقي إلى الملفات الأكبر بدأت السرعة تقل، وعند الانتقال للملف (أكبر الجميع - big boss 🙂) [140000- سجل] قلت السرعة أكثر ولا حظت أيضاً أن الكود الذي تفضل به الأخ (husamwahab) أكثر سرعة في الملفات الكبيرة لكن .. ليست المشكلة في السرعة .. المشكلة أن الأكسس أصبح يغلق ولاحظت مع تكرار المحاولة أن المشكلة ليست في هذا الكود أو ذاك، لأن البرنامج لا يغلق فقط عند الإضافة، بل عند الانتقال من حديث لآخر وبالتحديد في الأحاديث الطويلة جداً، لا مشكلة في الإضافة بعد الأحاديث العادية أو التنقل بينها، لكن في الأحاديث الطويلة جدا -والتي تعمدت إضافتها للتجارب- تحدث المشكلة وللتأكد من سبب المشكلة .. تتبعت بعض هذه الأحاديث المطولة واختصرت كل واحد منها إلى النصف .. فأصبح الأداء أفضل بكثير وأصبح الخروج من البرنامج قليلاً جدا .. ولما حولت حقل (Nass) من مذكرة إلى نص لم تعد هناك مشكلة .. إذاً سبب المشكلة هي هذه الأحاديث الطويلة وليس عدد الأحاديث وكالعادة .. عدت للشاملة للتجربة على نفس الملف بأحاديث المطولة دون اختصار، نعم عند الوصول لهذه الأحاديث يصبح التنقل أبطأ قليلاً، ولكن تضاف الصفحة بعدها ويمكنني التنقل بينها ببعض البطء لكن دون أن يغلق البرنامج فما هو الفرق .. الجهاز نفسه والملف نفسه .. هل لأني أعمل على الأكسس مباشرة أما في الشاملة فالعمل على برنامج تعتمد قواعد بياناته على أكسس .. وفرق بين الأمرين اعذروني .. فأنا أفكر بصوت عالي .. وأنتظر رأي الخبراء في هذا المجال إذا كنت في حاجة مرسلا ... فأرسل حكيما ولا توصه وإن باب أمر عليك التوى ... فشاور لبيبا ولاتعصه فوجود هذه الأحاديث الطويلة جداً في حقل واحد أمر لابد منه، ولا أستطيع أن أقسم الحديث الواحد إلى أكثر من حقل فما هو المطلوب لأفضل أداء في هذه الحالة

تم بحمد الله تجاوز هذه المشكلة بعد البحث وعند التجربة ظهرت لي رسالة (overflow) فاجتهدت وغيرت في الكود Dim kano As Integer إلى Dim kano As Long والظاهر أن اجتهادي لم يكن خطأ .. اختفت الرسالة .. والنتيجة جيدة جداً إلى الآن .. السرعة كبيرة بحمد الله .. ولا تزال التجارب جارية خشية ظهور رسائل أخرى

أخي الكريم عندما حاولت التجربة على الملف المعد لذلك وفيه (84000) سجل ظهرت هذه الرسالة