nssj

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

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

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

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

للرفع 🤔 🤔

الإخوة الكرام ما هو الخطأ في هذا الكود DoCmd.RunSQL "ALTER TABLE tt DROP CONSTRAINT PRIMARYKEY ;" DoCmd.RunSQL "ALTER TABLE tt DROP COLUMN id ;" DoCmd.RunSQL "ALTER TABLE tt ADD id AUTOINCREMENT ;" DoCmd.RunSQL "ALTER TABLE tt ADD primary key(id) ;" End Sub المطلوب منه حذف المفتاح الرئيسي لإعادة الترقيم التلقائي ثم إعادته بعد الترتيب كما كان مفتاحا أساسيا يعمل للمرة الأولى فقط ثم يعطي رسالة خطأ .. ولا يعمل مرة أخرى إلا إذا حذفت تعيينه مفتاح ثم عينته مرة أخرى !! ترقيم.accdb

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

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

بارك الله فيك أخي الكريم

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

ورحم الله والديك وجميع المسلمين في ليلة الجمعة المباركة هذه أخي الكريم .. أقصد هل بالإمكان تعديل على الكود ليغير الترقيم التلقائي على جميع الاحتمالات التي يمكن أن يكون فيها الترقيم التلقائي من حيث الفهرسة وعدمها وكونه مفتاحا أم لا باستخدام IF أو أي دالة أخرى للاحتمالات دون الحاجة لتغيير الخصائص لتوافق الكود ، بل دون النظر أصلاً لخصائص الحقل ، حيث أن الكود سيعمل المطلوب على جميع الاحتمالات

بارك الله فيك أخي الكريم ولكن .. ألا يمكن أن يعمل الكود على كل الاحتمالات: مفتاح أساسي // بدون مفتاح ولا فهرسة // بدون مفتاح لكن مع فهرسة بدل أن نستخدم كوداً خاصاً لكل حالة

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

هذا هو رابط الملف وقد أضفت فيه مربع نص للسجل الحالي (CurrentRecord) فهل يمكن أن يفيد في موضوعنا https://www.mediafire.com/file/20qs7zojbpxrvlt/book07.rar/file

أحسن الله إليك أخي الكريم تم المطلوب بحمد الله

الإخوة الكرام عند جدولان الرئيسي (b01) الثانوي (b02) وأريد استبدال بيانات حقل (Nass) في جدول (b01) من مثيلاتها في الجدول الثاني (b02) فقط في حالة اتحاد رقم (hno) في كل منهما بحيث يكون الناتج هو الجدول الرئيسي نفسه (b01) كاملاً لكن بنصوص الجدول الثاني (b02) في حالة اتحاد الرقم، وتبقى باقي البيانات غير المشتركة على حالها فما هي صيغة الاستعلام الذي يؤدي هذا الغرض b01.accdb

مشكلة طارئة بعد أن تم المطلوب في هذا الملف التجريبي الصغير قمت بتجربة الأكواد على ملف كبير وفيه أكثر من (45000) صف ، في نموذج مفرد فلم تعمل الأكواد وأصبحت تظهر رسالة الخطأ في هذا السطر من الكود الذي تفضلت به x = Me.ID وفي الكود الذي اخترعته أنا LastID = DMax("[ID]", "book0001)" فاجتهدت وغيرت Dim x As Integer / إلى / Dim x As Long وَ Dim LastID As Integer / إلى / Dim LastID As Long فاختفت رسالة الخطأ لكنه أصبح يدرج الصفحة الجديدة في آخر الملف ولا يضعها مكانها ولما فتحت النموذج في وضع التخطيط وطلبت منه الفرز بناء على (IDX) وأغلقت النموذج بعد الحفظ أصبح يضع الصفحات في موضعها فهل الكود بحاجة لتعديل أم أنه لابد من هذه الخطوة قبل أول استخدام للكود هذه هي المشكلة الأولى، ولكنها يسيرة المشكلة الأكبر أن هذا الملف رغم عدد سجلاته الكبير فهو ملف مصغر للتجارب، مصغر من حيث حجم النص فلم أجعله بخيار (مذكرة) لذلك تم حذف معظم النصوص لكن لما جربته على الملف الرئيسي حيث النصوص كاملة بخيار (مذكرة) رجع ليقف عند الصفحة الأولى، مع ملاحظة انه أصبح يأخذ وقتا أطول فهل حجم الداتا له تأثير على الكود .. وهل من حل وحجم الملف يتجاوز (100) ميجا ولا يمكن رفعه هنا

جزاك الله خيراً أخي الكريم تم المطلوب بحمد الله بهذه الطريقة أستطيع إضافة سجل خلال السجلات وهي طريقة خطرت في بالي: الاعتماد على الترقيم العشري كترقيم ثانوي لكن لعل هناك طريقة أكثر احترافية لهذا الغرض: إدراج سجل خلال السجلات وليس في آخرها دون وجود عمود للترقيم العشري كما هو الحال في برنامج الشاملة ولعلي سأطرح هذا الأمر في موضوع جديد لعل أهل الخبرة يفيدوننا

شكرا لك أخي الكريم على كلامك الطيب المشجع مع أنك نسيت التعليق على الكود الذي اخترعته بالقص واللصق .. وهل هو مناسب .. وما هو الأفضل من حيث الأداء والسرعة في الملفات الكبيرة وبالإضافة إلى ما سبق سأنتقل للاستفسار الثاني فقد لاحظت أن حقل (ID) يتحول بعد الكود إلى مفتاح أساسي مع أنه في الجدول الأصلي لم يكن كذلك وقد خشيت بادئ الأمر أن يتسبب ذلك بمشكلة >> لأن المفتاح الأساسي لكل الملفات التي عندي هو حقل لم أدرجه في المثال، وهو حقل (Mno) لكن بعد إدراجه لم تحدث أي مشكلة المشكلة التي طرأت عندما أضفت بعض الحقول التي أرغب أن تكون مطلوبة ولا يسمح بتركها فارغة، وهو في الملف المرفق (Type) فتظهر رسالة خطأ عند تطبيق الكود بالنظر إلى أنها فارغة وجربت مؤقتا أن أتخلص من هذه الرسالة بوضع قيمة افتراضية عشوائية (0) وانتهت المشكلة لكنني أفضل ألا أجعل في مثل هذه الحقول المطلوبة قيمة افتراضية حتى لا أنسى تعبئتها بحيث لا يتم الحفظ أو الانتقال من الصفحة قبل تعبئتها بالشكل المطلوب فهل يمكن التعديل على الكود بحيث لا تظهر رسالة الخطأ هذه ويبقى الأمر كما هو المعتاد في مثل هذه الحقول المطلوبة: تظهر الرسالة فقط عند الحفظ أو الخروج أو الانتقال لسجل آخر قبل تعبئتها ولا تنسى أخي الكريم في زحمة هذه المطالب المطلب الأول 😀 book77.accdb

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

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

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

شكرا أخي الكريم أحمد هذا هو المطلوب ولكن هل يمكن إضافة للكود بحيث يكون المؤشر في الصفحة الجديدة المضافة سواء في النموذج المتعدد أو النموذج المفرد ولعل هذا الموضوع يكون مفتاحاً لحل مشكلة إضافة سجل خلال السجلات، وإعادة ترقيم ID بعد كل تحديث

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

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