nssj

الأخ الكريم Moosak الحل الذي اقترحته قام بجزء كبير من المطلوب، لكن توجد ملاحظتان: 1 – إذا كان النص يبدأ أصلا بكلمة (عن) فالنتيجة صفحة خالية من أي نص، انظر عند التطبيق رقم (4) وهذه الملاحظة يمكن تجاوزها مؤقتاً لأن الجدول المطلوب التطبيق عليه حاليا أنا متأكد أن جميع نصوصه لا تبدأ بعن، لكن إن أمكن حل هذه الإشكالية فهو أفضل عند التطبيق على جداول أخرى 2 – هذه الطريقة تبقى على النص إلى أول نقطة ، كما جاء في الكود "." ، والمطلوب أول فقرة بمعنى سطر جديد، فقد يأتي في النص نقطة قبل نهاية الفقرة .. وأيضاً لا يشترط أن تكون نهاية الفقرة نقطة، فقد تكون فاصلة وقد لا يوجد في النص ولا نقطة كما في رقم (15) وعندها تكون النتيجة (#دالة!) وجربت أن أستبدل "." بـ (chr(13)) وما زبطت .. Short text 2.accdb

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

جربت الملفات على جهازين غير جهازي، واحد منهم نفس الوندوز (10) لكن أوفس (2010) والثاني وندوز (7) وأوفس (2010) والنتيجة أحسن بخصوص الملف الأول في مشاركتك الأولى (Book2) لم تظهر الحروف (v) (c) في الجهازين وكان يظهر الكلام المطلوب قصه .. لكن نفس الملاحظة بخصوص تأثر مفتاح (NumLock) أما الملفات اللي بعده فالنتيجة نفسها .. ظهرت الرسالتين في الجهازين .. وأيضاً لما طبقت اقتراح الأخ ابو البشر النتيجة نفسها على كل الأجهزة: ما في مشكلة بالقص واللصق .. القضية بتأثر مفتاح (NumLock) وإن الكود يعمل حتى لو لم يتم تحديد أي شيء

أصبح الآن يعمل لكن كما كان الأمر أول مرة .. يعمل حتى لو لم يتم تحديد شيء، وأيضاً لا زال مفتاح (Num Lock) يتغير أحيانا مع الكود .. وبعد مرور بعض الوقت برنامج الأكسس يتوقف ولا بد من إجباره على الإغلاق وإعادة تشغيله

الآن أصبحت تظهر هذه الرسالة .. واعذروني أيها الإخوة الكرام .. الكود معقد بالنسبة لمبتدئ مثلي ومن الصعب علي معالجة هذه المشاكل بنفسي 😐

هذه الرسالة التي تظهر عند فتح الملف .. والأوفس عندي (2013) وأنا عادة عندما أرى مثل هذه الأسطر الحمراء أرفع الراية البيضاء .. وأكف عن التجارب والتخبيصات 😁

جزاك الله أخي الكريم .. ما قمت به قد حقق 90% من المطلوب .. أحيانا وليس دائماً 🤔 !! هذا بعد أن قمت بتعديل بسيط عليه .. وقد كنتُ في غنى عن هذا لو أنني استطعت أن أشرح لك المطلوب بشكل أفضل بخصوص اللصق في التالية أو السابقة وفي أول الكلام أو آخره ولأن الصورة واضحة بالنسبة لي وصلت للمطلوب بحمد الله ببعض التعديلات التي ستراها في الملف المرفق، فقد أبقيت على الجمل التي كتبتَها مع (‘) * المشكلة في الظاهرة الغريبة التي ظهرت عندي أنه عند اللصق لا تظهر الجملة التي تم قصها إنما يظهر (v) (c) وجربت أن ألغي السطر 'Call SendKeys("^c", True) وزبطت .. ومضيت في التجارب لكن لم يدم الأمر .. رجعت الحروف بالظهور بدل الكلام .. وإذا أعدت الكرة وفعَّلت هذا السطر ثم ألغيته يعمل الكود لبعض الوقت ثم تعود هذه الحروف بالظهور * أما الـ 10% المتبقية فهي أنه إذا لم يتم تحديد شيء فإن الكود يقص الكلام كله .. والأفضل أنه إذا لم يتم تحديد شيء من الكلام ألا يعمل الكود أو يخرج رسالة وحاولت أعمل حالي معلِّم 🙂 وأضفت هذه الأسطر Me.cop.SetFocus Me.cop = "" DoCmd.RunCommand acCmdPaste Refresh If IsNull(cop) Or cop = "" Then MsgBox "لم تقم بتحديد النص المطلوب", vbExclamation Me.nass.SetFocus Exit Sub End If لكن هالمرة ما زبطت 🙄 * كما ولا حظت أن مفتاح (Num Lock) يتغير عندما أستخدم الكود .. بيشتغل وبيطفي .. وأيضاً ليس في كل مرة !! BOOK (3).accdb

الإخوة الكرام .. أحتاج إلى كود يقوم بقص النص الذي تم تحديده بالفأرة ثم يضعه في أول الصفحة التالية أو آخر الصفحة السابقة وفي الملف المرفق محاولتي بهذا الخصوص، وهي ناقصة من جهتين: 1- الذي قمت به قص النص كله، والمطلوب قص النص المحدد فقط وليس كل النص 2- تمكنت من لصق النص في الموضع المطلوب في آخر الصفحة السابقة أو أول الصفحة التالية، ولا مشكلة إن كانت الصفحة المطلوب اللصق فيها فارغة، المشكلة التي واجهتني هي وجود نص في الصفحة فلا بد حينها من لص النص في فقرة مستقلة وليس ملتصقا بالنص القديم ففي حالة اللصق في التالية المطلوب لصق النص المحدد في أول الصفحة التالية، ويليها في سطر جديد النص القديم وفي حالة اللصق في السابقة المطلوب لصق النص في سطر جديد بعد النص القديم DoCmd.RunCommand acCmdCut DoCmd.GoToRecord , "", acPrevious Me.nass.SelStart = Me.nass.SelLength DoCmd.RunCommand acCmdPaste BOOK.accdb

شكراً للإفادة اخي الكريم kanory وشكراً لك أيضاً لأنك صاحب كود الإضافة الذي استخدمته وأجريت عليه بعض التعديلات .. وأرجوا ألا تكون تخبيصات 😁

الإخوة الكرام .. في الملف المرفق أمر (إضافة بعد هذا) يقوم بإضافة سجل جديد ولا مشكلة في الإضافة .. المشكلة أني أضفت بعض الأسطر للكود لإضافة رقم الجزء والصفحة الحالية للصفحة الجديدة المضافة pt = Me.Part pg = Me.page .. .. Me.Part = pt Me.page = pg وعندها ظهرت هذه الرسالة فما الخطأ ؟ Book01.accdb

أخي الكريم .. دعني أصوغ الأمر بشكل آخر بعد الاكتشافات الأخيرة لدي كود عند حدث (KeyDown) الغرض منه منع الكتابة باستخدام الكيبورد في حقل (takhrij) النموذج الفرعي (takhrij) لكنه لا يعمل في النموذج المنقسم (3frm) في حين أنه يعمل في النموذج المفرد (4frm) كما تراه في المرفق لماذا يعمل هنا ولا يعمل هناك والكود نفسه والملفات نفسها .. الذي اختلف فقط هو طريقة عرض النموذج ؟؟ ولماذا هذه الظاهرة هي في هذا الكود فقط، بينما الكود الآخر في حدث (عند النقر المزدوج) يعمل بشكل جيد في النموذجين: المنقسم والمفرد ؟؟ وأمر آخر .. أنشأت نموذجا آخر (5Frm) بطريقة عرض (نموذج منقسم) ووضعت فيه هذا الكود Private Sub takhrij_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = 9 Or KeyAscii = 8 Or KeyAscii = 46 Then KeyAscii = KeyAscii Else KeyAscii = 0 End If End Sub وعمل الكود بشكل جيد إذا المشكلة هي في كود (KeyDown) مع النموذج المنقسم فقط وأنا أتطلع لمعرفة السبب والحل إن أمكن ، فليست القضية هي قضية هذا الكود فقط فقد تم استبداله بآخر يقوم بنفس المهمة ولكن معرفة السبب ستفيدني حتى لا يتكرر الأمر في كود آخر، حيث أنني أستخدم (النموذج المنقسم) كثيرا .. فقد أكون بصدد إنشاء كود وأحاول وأكرر المحاولة لأن الكود لا يعمل ظنا مني أن الخطأ في الكود .. والحقيقة أنه لا يعمل لأن النموذج (نموذج منقسم) فهل عند أهل الخبرة تفسير لهذه الظاهرة .. أم أنه علي أن أعيد النظر في استخدامي للنموذج المنقسم إذا كان يتسبب بمشاكل في تنفيذ بعض الأكواد وأرجو ألا أفاجأ بأن المشكلة هي عندي فقط وأن الكود يعمل عند غيري في جميع النماذج .. كما حدث معي في موضوع سابق 😒 takhrij2.accdb

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

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

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

🤔 🤔 🤔

الإخوة الكرام .. في الملف المرفق نموذج (3Frm) فيه نموذج فرعي (takhrij) لإدخال البيانات في حقل (takhrij) وأريد أن يكون إدخال البيانات فيه بثلاث طرق فقط: 1- الاختيار من قائمة منسدلة 2- القص واللصق 3- باستخدام كود عند النقر المزدوج ينقل القيمة المطلوبة من النموذج الرئيسي لذلك وضعت فيه هذا الكود حتى لا يتم الاستجابة لأبي كبسة في الكيبورد إلا أربع كبسات Private Sub takhrij_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode = 13) Or (KeyCode = 9) Or (KeyCode = 8) Or (KeyCode = 46) Then KeyCode = KeyCode Else KeyCode = 0 End If End Sub لكن الكود لا يعمل في هذا النموذج الفرعي .. في حين أنه يعمل عند فتح النموذج (takhrij) لوحده فما هو الخطأ ؟؟ takhrij.accdb

وهذا موضوع آخر هدية بسيطة : البحث بجزء من الكلمة داخل مربع التحرير بمجرد الكتابة comboBox

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

نعم .. طريقة البحث ممتازة، لا سيما وأنه يبحث داخل الـ (comboBox) نفسه وليس عبر مربع نص خارجي، ثم يخرج النتائج مع التغيير أثناء الكتابة وليس بعد التحديث أو عند الخروج أما بخصوص التنقل بين النتائج، فقد تمكنت بفضل الله من حل هذه المشكلة بوضع هذا الكود في حدث (عند مفتاح للأسفل) If KeyCode = 40 And Shift = 0 Or KeyCode = 38 And Shift = 0 Then G = 1 End If مع إضافة بسيطة في أول كود البحث كما في الملف المرفق فأصبح يتنقل بين النتائج باستخدام مفتاحي: للأعلى وللأسفل فأرجو أن يكون تصرفي هو الحل الصحيح ولدي ملاحظة أخرى بخصوص هذا الكود: فهو يبحث عن الحروف حتى لو كانت متتالية في أكثر من كلمة، وبالنسبة لي فالمطلوب البحث عن الحروف متتابعة أو متلاصقة في نفس الكلمة يعني عند طلب البحث عن (زج) تخرج النتائج بهذا الشكل والنتيجة الأخيرة غير مطلوبة بالنسبة لي، ولكنه يبحث عن الحروف المدخلة حتى إذا لم تكن متتابعة في نفس الكلمة، لذلك أخرج النتيجة الأخيرة لأنه وجد حرف (ز) في كلمة (زاهد) ثم وجد حرف (ج) في كلمة (للتجارة) وهذه الطريقة في البحث قد تناسب غيري بل قد تكون بغيته المنشودة، لكن بالنسبة لي فالنتيجة المطلوبة هي وتمكنت بفضل الله من الوصول إليها بعد عدة تجارب ومحاولات في حذف بعض أسطر الكود .. حذفتها من باب التجربة لأني بصراحة لا أعلم ماذا تعني ؟؟ 😅 فلست من أهل الاختصاص وإنما من أهل التجارب والمحاولات 🙂 ونتيجة هذه التجارب في نموذج (Search_combo 2) في نفس الملف المرفق، لعل أحد الإخوة من ذوي الخبرة ينظر فيه ويعطينا رأيه .. لأني عندما طبقت هذا الكود في قاعدة بياناتي واجهتني بعض المشاكل البسيطة في تظليل الكلمة المدخلة في مربع البحث .. فقد تكون هناك طريقة أفضل للوصول للمطلوب: البحث عن الحروف متتابعة في نفس الكلمة Search_inside_Combo X.accdb

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

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

الحمد لله .. زبطت أخيراً 😁 ولكن بما إن هذا يؤكد إن المشكلة عندي .. يمكن من كثرة التجارب والاختراعات اللي أكثرها (فاشلة .. 🙂) صار في إشي غلط عندي في خيارات وإعدادات أكسس .. إشي ما بيروح حتى بإزالة البرنامج وإعادة تحميله .. مع إني حريص إن كل التجارب تكون في الأكواد والاستعلامات وتصميم النماذج مش في خيارات البرنامج بس إيش هو (هذا الإشي الغلط) بلاش يعمل معي مشاكل تانية وتالثة و .. 🤔

شيء محير فعلا 🤔 🙄.. جربت الملف على جهاز تاني عليه أوفس (365) والنتيجة تمام وحذفت الأوفس من جهازي ونزلت (2016) والنتيجة على جهازي نفسها: المؤشر في أول الحقل وحملت (2021) نفس النسخة اللي عندك والنتيجة نفسها .. يعني في مشكلة إعدادات أو خيارات جهازي لكن .. لما نزلت أوفس (2013) على جهازي: النتيجة تمام إشي محير ولا لأ ؟؟ المفروض إن الكود يعمل المطلوب بغض النظر عن نسخة الأوفس مش المشكلة في هذا الكود .. إذا بتنحل المشكلة بكبسة (END) الأمر هين .. لكن إذا ما عرفت السبب ممكن يتكرر الموال في كود تاني وثالث .. وحضرتي بحاول وبحاول وبطلب المساعدة .. والمشكلة مش في الكود .. المشكلة في مكان تاني مش معروف 🤔

😐 🙄 🤔 الغريب .. إني جربت الملف على جهاز ثاني عليه أكسس (2010) والنتيجة تمام أما على جهازي أكسس (2019) فمش تمام .. إيش يعني ؟؟؟ في مشكلة في نسخة الأكسس اللي عندي أو إنو في خيارات لازم أعدلها ؟؟