nssj

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

وهنا قد تسأل أخي الكريم: إذاً استخدم البحث الافتراضي وخلصنا 😅

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

بارك الله فيك أخي الكريم .. وزادك علما ونفعا لإخوانك

ثم إنني لما رأيت موضوع الأسهم هذا والانتقال إلى نتيجة البحث التالية في نفس السجل وتظليلها .. وهكذا

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

أحسن الله إليك أخي الكريم .. هذه الخيارات تجعل النتيجة: جيدة جدا 

لكن ظهرت لي مشكلة كان ينبغي أن أتنبه لها مُبكرا 🤔 .. مشكلة في تلوين نتائج البحث عند البحث مع تجاهل التشكيل ونحوه .. وسوف أطرح هذه المشكلة في موضوع مستقل بعون الله .. والله الموفق

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

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

وطبعاً .. لم أستطع مقاومة شغفي بالتجارب والتطفل على أعمال أهل الخبرة 😁 .. فسرقت عبارة الاستعلام

DCount("*","[TAB_RMZ_X]","[RMZno]=" & [RMZno])

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

30 دقائق مضت, Moosak said:

المشكله أنه لايوجد لديك ربط بين الجدولين TAB و TAB_RMZ

أخي الكريم .. ربما لم أوضح المطلوب تماما .. أنا أرغب بإظهار هذه النتيجة في جدول (TAB_RMZ) وليس (TAB)

يعني .. النتيجة الموجودة في حقل (عدد مرات التكرار) في استعلام (CalcFildQ) المطلوب أن تظهر في جدول (TAB_RMZ) في حقل يتم إنشاؤه خصيصا باسم (Total)

وإن تعذر هذا في الجدول .. فلا بأس أن يظهر في النموذج (FRM_RMZ)

أرجو ان يكون الأمر أصبح أسهل هكذا .. 😄

يتم حساب عدد الرموز من الجدول الوسيط (TAB_RMZ_X)

ويظهر هذا الرقم في الجدول المطلوب (TAB_RMZ) عند الكبس على علامة (+) فيظهر عدد مرات تكرار هذا الرمز وأين يوجد، هذا بناء على العلاقة بين الجداول الثلاثة

والمطلوب -إن أمكن- طريقة لإظهار هذا الرقم مباشرة في حقل خاص

الإخوة الكرام .. في الملف المرفق ثلاثة جداول بينهما علاقة متعدد لمتعدد

والمطلوب -سلمكم الله- إدراج حقل محسوب باسم (Total) في جدول (TAB_RMZ) يظهر فيه عند كل رمز عدد المرات التي وجد فيها هذا الرمز في الجدول الرئيسي (TAB)

MusndWZwayid 004.accdb

جزاك الله خيرا أخي الكريم جعفر .. هذه نتيجة جيدة بالنظر لما اتفقنا سابقا: علينا أن نتقيد بشروط وأحكام شرطي المرور أكسس 🙂 

أقصد أخي الكريم عند البحث عن كلمة (مثال) في هذا الملف المرفق الجديد تظهر نتيجتان كما في هذه الصورة

النتيجة الأولى ظاهرة في الشاشة وملونة

النتيجة الثانية لا تظهر في الشاشة إلا عند تحريك شريط التمرير للأسفل

فهل يمكن عند عرض نتائج البحث أن يتحرك شريط التمرير بشكل تلقائي لتظهر النتائج حيثما كان موقعها في النص كما في الصورة

تلوين2.accdb

هل هذا يعني أن الأمر غير وارد في أكسس 🤔

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

مع أنني كنت أجري هذه العملية كثيرا في تجاربي .. حذف عمود الترقيم التلقائي ثم إضافته .. ويعود الترقيم التلقائي متسلسلا بالشكل المطلوب بغض النظر عما تم حذفه أو إضافته من السجلات

لكن هالمرة ما زبطت .. ممكن يكون بسبب حجم الملف الكبير ؟؟

على كل حال .. تعلمت من كلام الأساتذة الكرام أمثالك أخي الكريم أنه لا ينبغي التدخل في عمود الترقيم التلقائي .. وهذا ما أنوي فعله .. لكن بعد الانتهاء تماما من التصميم النهائي للجدول وترك التجارب والبدء في (الجَد) 🙂

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

الإخوة الكرام .. في الملف المرفق حاولت إدراج عمود للترقيم التلقائي (ID) بحيث يكون الترتيب حسب عمود (TNO)

ولكن الترقيم التلقائي لا يكون متسلسلا حسب المطلوب .. يعني أنه يضع الترقيم التلقائي دون الالتزام بأن يكون الترتيب حسب (TNO)

كما يظهر في الصورة

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

ما هو السبب ؟؟ وأين الخطأ ؟؟

MusndWZwayid003.rar

تم الأمر بالطريقة التي كنت أتطلع لها .. والحمد لله 

وجزاك الله خيرا أخي الكريم  فقد انطلقت من هذا الكود الأخير وأجريت عدة تجارب، ظهر لي أن المشكلة في رمزي (*) (#)

وكانت نتيجة التجارب هذا الكود الذي أدى المطلوب بشكل دقيق

Not Like "@" And Not Like "$" And Not Like "[*]" And Not Like "^" And Not Like "+" And Not Like "=" And Not Like "!" And Not Like "%" And Not Like "[#]" And Not Like "|" And Not Like "<" And Not Like "؟" And Not Like "<<"

جزاك الله خيرا أخي الكريم يوسف أحمد   وأحسن إليك

تم المطلوب .. وجربت الاستعلام على الملف الأصلي وعرفت أين الأخطاء

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

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

وهي طريقة للبحث عن هذه الرموز التي لها معان خاصة في أكسس مثل (* ^ #) فطرق البحث والاستبدال العادية لا تنفع معها

وهي موجودة بكثرة في الجدول الرئيسي (TAB) .. لأن أصله ملفات وورد التي كنت أعمل عليها سابقا .. وأنا الآن أريد الانتقال للعمل على أكسس

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

أرجو أن أكون قد أوضحت المطلوب

وكالمرة السابقة كتبت الرد السابق قبل الاطلاع على مشاركتك الأخيرة أخي الكريم 😂

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

الأخ الكريم يوسف أحمد ..  رأيت مشاركتك بعد أن كتبت التعليق السابق

وجزاك الله خيرا .. فقد فهمت قصدي وأني أريد كل عمود لوحده

وعدلت على الاستعلام الأول ليصبح هكذا

<>0 And <>1 And <>2 And <>3 And Is Not Null

وكانت النتيجة المطلوبة

لكن .. نفس المشكلة في العمود الثاني (TFR) .. تخرج جميع النتائج .. والمفروض أن تكون النتيجة هكذا

جزاك الله خيرا أخي الكريم Moosak .. الاستعلام المذكور أدى المطلوب بخصوص عمود (TFLVL)

مع العلم أنه كان قصدي التعامل مع كل عمود لوحده، ولكن يظهر أني لم أوضح المطلوب

لكني عدلت على (Quiry 1) ليعمل على كل عمود لوحده، فكانت هذه صيغته في عمود (TFLVL)

SELECT TAB.ID, TAB.TNO, TAB.NOM, TAB.NASS, TAB.TFLVL
FROM TAB
WHERE (((TAB.TFLVL)="0" Or (TAB.TFLVL)="1" Or (TAB.TFLVL)="2" Or (TAB.TFLVL)="3" Or (TAB.TFLVL) Is Null));

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

وحاولت أن أجرى نفس الطريقة على عمود (TFR) وعدلت الاستعلام إلى

SELECT TAB.ID, TAB.TNO, TAB.NOM, TAB.NASS, TAB.TFR
FROM TAB
WHERE (((TAB.TFR)="@" Or (TAB.TFR)="$" Or (TAB.TFR) Like "*" Or (TAB.TFR)="^" Or (TAB.TFR)="+" Or (TAB.TFR)="=" Or (TAB.TFR)="!" Or (TAB.TFR)="%" Or (TAB.TFR)="#" Or (TAB.TFR)="|" Or (TAB.TFR)=">" Or (TAB.TFR)=">>" Or (TAB.TFR)="؟" Or (TAB.TFR) Is Null));

لكن يظهر أن هذه الجملة بحاجة لتعديل

Or (TAB.TFR) Like "*"

فعند تشغيل الاستعلام تخرج جميع النتائج

الإخوة الكرام .. في الملف المرفق عمودان (TFLVL) (TFR)     

(TFLVL) المطلوب التأكد أن القيم فيه هي أحد هذه الأرقام فقط

0

1

2

3

(TFR) المطلوب التأكد أن القيم فيه هي أحد هذه الرموز فقط

@

$

*

^

+

=

!

%

#

|

> 

>> 

؟

وحيث يوجد غيرها تميز من خلال (ID)  لتصحيحها

MusndWZwayid 01.accdb

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

تلوين نتيجة البحث

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

أما موضوع إظهار نتيجة البحث في السطر الأول، وبالتحديد في منتصف السطر الأول بحيث يسبقها بضع كلمات، فهذا الأمر لم أجد كلاما حوله

وتظهر أهميته في الحقول النصية الطويلة، فإذا لم تكن كلمة البحث في بدايات النص فلن تظهر في نموذج نتائج البحث، وعليك أن تبحث عنها في كل نتيجة

فما هي طريقة إظهار نتائج البحث في منتصف السطر الأول ؟

تلوين.accdb

جزاك الله خيرا أخي الكريم .. الاختصار يعمل بشكل جيد .. وأصبح كود البحث يتجاهل الفروق بين الحروف المطلوبة

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

Dim str As String

searchtext.SetFocus
str = Me.searchtext.Text
Me.searchtext = Replace(str, "أ", "ا")
str = Me.searchtext.Text
Me.searchtext = Replace(str, "إ", "ا")
str = Me.searchtext.Text
Me.searchtext = Replace(str, "آ", "ا")
str = Me.searchtext.Text
Me.searchtext = Replace(str, "ة", "ه")
str = Me.searchtext.Text
Me.searchtext = Replace(str, "ى", "ي")
str = Me.searchtext.Text
Me.searchtext = Replace(str, "ؤ", "و")

وأصبح الكود يعمل بشكل جيد ويستبدل جميع الحروف المطلوبة

ولكن هل توجد صيغة تختصر هذا السطر المكرر، أم أن هذه أفضل صياغة للكود

الإخوة الكرام .. في الملف المرفق كود لاستبدال بعض الحروف بحروف أخرى في مربع البحث (searchtext)

وأنا لست من أهل الخبرة في كتابة الأكواد، ولكن هذا الكود محاولة تجميعية من هنا وهناك

Private Sub search_go_Click()
Dim str As String
searchtext.SetFocus
str = Me.searchtext.Text
Me.searchtext = Replace(str, "أ", "ا")
Me.searchtext = Replace(str, "إ", "ا")
Me.searchtext = Replace(str, "آ", "آ")
Me.searchtext = Replace(str, "ة", "ه")
Me.searchtext = Replace(str, "ى", "ي")
Me.searchtext = Replace(str, "ؤ", "و")

والمشكلة فيه أنه لا يستبدل كل هذه الأحرف‘ إنما يستبدل الأحرف الموجدة في آخر جملة من الكود فقط ويتجاهل ما قبلها

فما هي الصيغة الصحيحة لتأدية المطلوب واستبدال جميع هذه الأحرف

وللتوضيح .. هذا الاستبدال في مربع البحث (searchtext) يجعل كود البحث يعمل بشكل أدق في المساواة بين أشكال الهمزة (أ إ آ ا) ونحوها عند البحث ..

Replace.accdb

19 ساعات مضت, أبو إبراهيم الغامدي said:

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

قمت بذلك والأمر يتم بسلاسة والحمد لله ..  فجزاك الله خيرا

19 ساعات مضت, أبو إبراهيم الغامدي said:

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

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

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

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

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

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

وقد جربت التعديل على رقم الارتباط بالشاشة التي تفضلت بها .. وتم التغيير بسلاسة .. ولكن لم يحفظ التعديل في حقل (MNO) الذي جداول الكتب

لذلك عندما شغلت كود (إجراء دمج المراجع) حصل الخلل لأن الجدول الوسيط أخذ المعلومات القديمة الموجودة في حقل (MNO)

فما هو المطلوب لكي يتم حفظ التغييرات في حقل (MNO) في جداول الكتب

4 دقائق مضت, أبو إبراهيم الغامدي said:

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

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

المهم الوصول للنتيجة المطلوبة إن أمكن: أن تحفظ التعديلات في حقل (MNO) الذي في جداول الكتب وأن يبقى هو المستودع الرئيسي للبيانات