الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

بحث مرتبط بعدة حقول

مغلق
بدأه جمال ابو ايهم في 22 أغسطس 2007 · 13 رد · 1,177 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عذرا هذا الملف المرفقعندي فورم Seach**فيه حقل locationحقل sublocationاريد عند الاختيار من قائمة location تظهر في قائمة sublocation الحقول المرتبطة ثم تظهر في الجدول السفلي seach البيانات المرتبطة من الحقلين السابقين بحيث يتم البحث ضمن ال sublocationوعند اختيار all wings يتم تجاهل قائمة location وقائمة sublocation والبحث في جميع مفردات locationمرفق الملف

db1.zip

jmt

#2

أخي الفاضل جمال

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

post-15367-1187780201_thumb.gif

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

لأنك لو بحثت في جهازك الآن ستجد 1000 قاعدة بيانات تحمل الأسم db1.mdb

#3

عذرا لقد ارسلت ملف خاطئ واخذت بالنصيحة الملف اسمه search

search.rar

jmt

#4

بسم الله الرحمن الرحيم

الأخ الكريم

جرب الملف المرفق - جرب الإطار MySearch

search1.rar

#5

الاخ العزيز اشكر جهودك الرائعة

ولكن لم اصل الى كل ما ابحث عنه:

اولاً :

ان يتم الربط في النموذج Mysearch

مع استعلام يتضمن بعض بياناتasset

ثانيا:

أن استطيع البحث جزئياً عن كلمة ضمن النتيجة كما في مثالي

مرفق الملف مع الحقول التي اريد توضيح طريقة العمل

ومع الشكر

search12.rar

jmt

#6

بسم الله الرحمن الرحيم

أخى الكريم جمال أبو ايهم أحسن الله إليك

1-البحث يتم داخل العنصر Mydetails -الذى يعرض بيانات من الجدول Asset- تلقائيا بمجرد أن تختار الموقع المطلوب فى Location -عنوانها Belongs to- ثم Sublocation -عنوانها Location - وهى العناوين التى وضعتها أنت عند تصميم الجداول -

2- النموذج يعمل كما طلبت أنت أن تكون القائمة SubLocation تتغير بتغير محتويات القائمة Location كما أنه بتغير مربع التأكد All wings يتغير ما يعرض فى العنصر Mydetails فمرة كل البيانات مرة البيانات التى تمت تصفيتها عن طريق Belongs To و Location - وهذا ما طلبته أنت تحديداً

3- قمت أنت بتغيير فى النموذج Mysearch الذى مما أدى إلى وجود أخطاء عند تحميله

4- على كلاً فقد أكون مخطئا أو متسرعاً وسوف أحاول فيما يلى عل الله يوفقنى

. سأستخدم نفس العناوين التى استخدمتها أنت فى نموذج Search

.سأضيف عملية بحث عن طريق الخانة الإضافية التى أضفتها أنت تعمل مع الزر Search

.سأجعل القائمة Sublocation تعرض محتوى الحقل (Section/Subsection) بدلا من الحقل (Name) الأمر بسيط الخاصية "عرض الأعمدة"

0سم;0سم;2.805سم

تتحول إلى

1سم;0سم;2.806سم

.سأجعل عملية البحث اختيارية بين ثلاث أنواع هى

الكل - من القوائم - بواسطة كلمة

سيكون البحث بالكلمة بواسطة محتوى الحقل (Section/Subsection)

جرب فى الخانة Keyword

وأكتب مثلاً 1

أو g

ثم أضغط على زر البحث

وأرجو أن يكون هذا هو المطلوب وأن يفى بالغرض

search13.rar

#7

بسم الله الرحمن الرحيم

الاخ العمري ارجو أن تتحملني

ما قمت به اكثر من رائع

ولكن:

أولاً : اريد عند اختيار all wings يكون مربع النص word الخاص بالبحث متاح وبالتالي نستطيع البحث ضمن all wings

ثانياً: وعند اختيار search list نختار location و sub location كما فعلت ولكن ايضا يكون مربع النص word الخاص بالبحث متاح وبالتالي نستطيع البحث ضمن نتيجة location و sub location

ثالثاُ : أن يكون البحث عن كلمة ضمن جميع بيانات الاستعلام وليس فقط ضمن location لأني جربت البحث عن بيانات مخزنة ضمن حقل brand ولكن لم يعطي نتيجة ونفس الشي لبقية الحقول ...

اشكر جهودك وتعاونك وجعلها في ميزان حسناتك

jmt

#8

بسم الله الرحمن الرحيم

الأخ الكريم جمال

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

البحث بواسطة كلمة بعد تحديد موقع Sublocation أضفته فى الملف المرفق كإختيار منفصل

البحث بواسطة كلمة فى حقل بعينه دون التقيد بحقل معين أضفته فى الملف المرفق -حدد الحقل الذى تريد البحث فيه من Field-

search14.rar

تم تعديل هذه المشاركة بواسطة العمرى بن في 24 أغسطس 2007 في 14:46

#9

الاخ العمري

شغل محترفين جزاك الله الف خير ومافي كلام بعد يلي شفته

يعني اقفلت علي كل الابواب بهذه الطريقة فالبحث على هذا الحال هو اكثر مما اريد

اشكر جهودك

كنت احاول وضع عداد للنتائج يعطي عدد سجلات النتائج عن طريقة الدالة Count

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

حاولت في النموذج الأصلي ولكن لم استطع تحقيق ذلك !!!!

ارفقت نفس الملف مع مربع النص number of result

هل من الممكن توضيح الكود لهذا الحقل

مع كل التقدير

search15.rar

jmt

#10

بسم الله الرحمن الرحيم

الأخ الكريم جمال

العنصر التابع يعرض فى أسفله عدد السجلات داخله وأظن أنه لا حاجة لوجود تبيان أخر على عدد السجلات

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

إذا أردت من خلال التصميم من الأفضل تحويل العنصر التابع إلى نموذج فرعى

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

حسناً جرب الملف المرفق

search15.rar

تم تعديل هذه المشاركة بواسطة العمرى بن في 26 أغسطس 2007 في 00:10

#11

الاخ العمري

جزاك الله كل خير وهذا كل ما اريد

والاهم من ذلك اني استفدت كثيرا منك

افكار بسيطة ولكن نتائج عظيمة

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

للفائدة فقط :

عندما كتبت كود الاستعلام داخل النموذج كنت تختار جميع الحقول من جدول asset كما في الكود

Set DBS = CurrentDb

Set qrdf = DBS.QueryDefs("Mysearch")

If Option3.Value = True Then

strsql = " SELECT ASSET.*"

strsql = strsql & " FROM ASSET"

strsql = strsql & " WHERE (((ASSET." & [Forms]![mysearch]![Combo1] & ") Like " & Chr(34) & "*" & [Forms]![mysearch]![word] & "*" & Chr(34) & " ));"

ElseIf Option4.Value = True Then

strsql = " SELECT ASSET.*"

strsql = strsql & " FROM ASSET"

strsql = strsql & " WHERE (((ASSET." & [Forms]![mysearch]![Combo1] & ") Like " & Chr(34) & "*" & [Forms]![mysearch]![word] & "*" & Chr(34) & ")"

Dim X As String

X = [Forms]![mysearch]![myNAME]

strsql = strsql & " AND ((ASSET.LOCATION_ID)='" & X & "'));"

اذا كنت اريد حقول محددة من الجدول asset وليس جميع الحقول هل استطيع اختيار حقول باستخدام select

مثلا اريد من asset النتيجة فقط تحتوي على الحقول

Hardware Category

Brand

Location

وهل يمكن توضيح الكود الذي استبدله مكان " *.strsql = " SELECT ASSET"

jmt

#12

الأخ الكريم جمال

أنا لا أكتب أى كود للإستعلام

أقوم بإنشاء إستعلام جديد فى عرض التصميم

وأضيف إليه الحقول المطلوبة

والمعايير المطولبة

ثم أعرضه فى نمط عرض SQL

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

مثلاُ هذا ما تحصل عليه فى عرض SQL لإستعلام يحدد ثلاث حقول من جدول Asset

SELECT ASSET.CATEGORY, ASSET.BRAND, ASSET.LOCATION_ID
FROM ASSET;

ننسخه ثم نلصقه فى نافذة وحدة نمطية

ولتحوله إلى كود مناسب يجب أن يأخذ مثل الصورة التالية

strsql = "SELECT ASSET.CATEGORY, ASSET.BRAND, ASSET.LOCATION_ID"
strsql = strsql & " FROM ASSET;"

لاحظ وجود مسافة بعد علامة التنصيص الأولى فى السطر الثانى

#13

كلام رائع وجميل ونجح معي 100%

مساعدة اخيرة اخوي العمري :

حاولت اربط حقل جديد مع البحث CATEGORY

يعني فقط في الخيار رقم 4 لأنه هو الخيار الذي اريده

قمت باضافة مربع سرد يحتوي عناصر قائمة CATEGORY

وموجود اصلا lOCATION وايضا SUB LOCATION

[b]اريد أن اربط في البحث هذه الحقول الثلاث

بمعنى اختار CATGORY ثم اختار LOCATION ثم SUB LOCATIONويعرض النتائج وفقا لهذه الحقول ثم استطيع البحث عن كلمة كما هو موجود اصلاً

حاولت اعمل بنفس طريقتك:

عرفت متحول يعطي قيمة mY-CATEGORY

ادخلت على تعليمة SQL باستخدام AND بعد WHERER

مرفق الملف

jmt

#14

بسم الله الرحمن الرحيم

أخ جمال

جرب ملف قاعدة البيانات المرفق جرب فيه الإطار NewSearch

لاحظ تغير طريقة البحث فهناك عرض لكل البيانات - وهناك عرض لناتج عملية البحث

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

-هناك أيضا ملف شرح لإنشاء جدول بالحالات الفريدة للـ Category-

search16.rar

هذا الموضوع مغلق.

مواضيع مشابهة