فلترة السجلات بناء علي عدة حقول

هذا مثال للمبدعة / زهرة

اعتقد ان فيه ماتريد وزيادة..

Multisearch.rar

السلام عليكم ورحمة الله ,,,

شكرا لك استاذ ايهاب , ولكن والله العظيم ثم والله كنت متوقع انة احد يضع المثال السابق . طبعا انا اطلعتة علية من خلال عملية البحث في المنتدي قبل طرح السؤال ,,,, وحصل ما كنت اخاف منة ,,,

سوف يضل السؤال , كيف استطيع تطبيق نفس مثل الاستاذة زهرة علي الملف المرفق في المشاركة الاولي , هذا هو المطلوب وبتلك الصورة

الفلترة علي عدة حقول مهم جدا , لان هذا هو المطلوب مني في البرنامج ولانة ضروري جدا ,,,,

اخواني ارجو المساعدة ومرة اخري شكرا الف شكر للاستاذ ايها و للاستاذة زهرة المبدعة ,,,,وجزاكم الله كل خير ,,

تفضل أخي الكريم

هذا المثال يلبي جميع طلباتك

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

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

Search_Sort.rar

شكرا لك استاذة زهرة ,

ليس هو المطلوب , ان ما ابحث عنة هو التصفية بواسطة عدة حقول وليس حقل واحد فقط اي بواسطة اسم العميل مقسم علي اربع خانات تمثل الاسم الرباعي . طبعا هذا الطلب هو بداية لعمل برنامج بسيط مطلوب مني ,

لدي قناعة ان هذا النوع من التصفية بواسطة عدة حقول ليس مستحيل في الاكسيس ولكن الامر يحتاج الي الصبر و مزيد من الدراسة , وانا ساحاول باذن الله تعالي رغم ضعف الامكانات البرمجية ان اجد الحل فاذا تمكنت بعون من الله تعالي وضعت هنا للفائدة واذا لم افلح فسوف اشرح فكرتي مجدد لعل احد الاخوان يقدم الحل بالشكل المطلوب ,

شكرا للجميع الاستاذ ايهاب و الاستاذة زهرة وجزاكم الله كل خير ,

اخواني الاعزاء

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

طبع هو يقصد مستحيل برمجة الاكسيس لكي يقوم بفلترة سجلات في مربع قائمة بواسطة عدة حقول وانة من الممكن فلترتها بواسطة حقل واحد فقط او حقل واحد في سجل واحد في كل مرة للبحث , وانة يمكن عملها بواسطة لغات برمجية اخري ,,,,

اخواني هل فعلا برمجة مثل هذة الفكرة في الاكسيس مستحيلة .

ارد الافادة ...

سلام

أهلا ماجد

سويت لك المطلوب إن شاء الله ترضى عنا! ياليت GA0010.zip

تحياتي

القحم

سلام

تحياتي للجميع

أعتذر منكم جميعا

المرفق السابق غير صحيح

الرجاء معاينة الملف التالي

المرفق الصحيح: GA0010.zip

اكتب في حقل أو أكثر

اكتب كلمة أو جزء منها

أكرر اعتذاري

القحم

اخي العزيز القحم شكرا لك

ولكن ما كنت اريدة هو ان يتم تصفية او فلترة السجلات تقائيا , اي دون النقر علي زر او الخروج من الحقول المخصص للكتابة ,,,,

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

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

ان اننا نريد عمل فلترة ولكن هنا بعدة حقول وليس حقل واحد فقط وتتغير البيانات ( السجلات ) تلقائيا ,,,

ارجو المساعدة وشكرا لكم ,,,

سلام

أهلا جلال

سهلة: سوف أعيد ترتيب الكود على طلبك

القحم

بعد إذن الجميع

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

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

بسم الله نبدأ

لقد قمت بالتعديل على المثال الذي أرفقته كالتالي:

تعريف مصفوفتين لحقول الجدول ومربعات النص التي سيتم إدخال قيم البحث فيها وعرفناهم أعلى شاشة الكود ليتم استدعائهما من أي حدث على النموذج الأولى باسم ( ArryField ) أي مصفوفة الحقول والثانية ببأسم ( ArryControl ) أي مصفوفة مربعات البحث وكان وذلك على النحو التالي:

Dim ArryField(5) As String, ArryControl(5) As String

طبعاً المصفوفتين ستحتوي على اسماء الحقول ومربعات النصوص وذلك لا بد أن يكون نوع محتوياتها ( String ) _ نص

في حدث في الحالي للنموذج حملنا اسماء الحقوق وأسماء مربعات النصوص في المصفوفتين حسب الكود التالي:

 

	ArryField(1) = "n1"
	ArryField(2) = "n2"
	ArryField(3) = "n3"
	ArryField(4) = "n4"

	ArryControl(1) = "Txt1"
	ArryControl(2) = "Txt2"
	ArryControl(3) = "Txt3"
	ArryControl(4) = "Txt4"

تم إنشاء وحدة نمطية عامة وهي التالي :

 

Private Sub MdlFilter()
On Error Resume Next

	Dim R As Byte, MyFltr As String, C As String, strsql As String
	MyFltr = ""
	For R = 1 To 4

		If Not (IsNull(Controls(ArryControl(R)).Value)) And (Controls(ArryControl(R)).Value) <> "" Then

		   If MyFltr = "" Then C = "" Else C = " AND "
		   MyFltr = MyFltr & C & " [" & ArryField(R) & "] " & " Like '" & Controls(ArryControl(R)) & "*'"
	  End If
	Next

	If MyFltr = "" Then
	Me.ttt.RowSource = "select * From NN"
	Else
			strsql = "select * From NN Where" & MyFltr
	Me.ttt.RowSource = strsql
End If
End Sub

في هذه الوحدة النمطية عرفنا أربع متغيرات هي R و MyFltr و C و strsql

المتغير R لوب للمرور على الحقول ومربعات النصوص وهي من 1 إلى 4

المتغير C نخزن فيه المعامل And

المتغير MyFltr نخزن فيه شرط البحث أي قيم مربعات النصوص التي تحتوي على قيم

المتغير strsql نخزن فيه جملة SQL مع الشرط لنجعلها في ما بعد مصدر للقائمة

بعد ذلك أسندنا للمتغير MyFltr قيمة خالية Null وذلك في السطر التالي

   MyFltr = ""

بعد ذلك بدأنا اللوب كما في السطر التالي

	For R = 1 To 4

بعد ذلك نقوم بإختبار قيم مربعات النصوص بواسطة المصفوفة مع اللوب إذا لم يكن أي من مربعات النصوص فارغ يسندها للمتغير MyFltr وذلك بواسطة السطر التالي:

		If Not (IsNull(Controls(ArryControl(R)).Value)) And (Controls(ArryControl(R)).Value) <> "" Then

نختبر قيمة المتغير MyFltr إذا كان فارغ نسد للمتغير C قيمة فارغة "" وإذا لم يكن فارغاً نسند للمتغير C القية And وذلك بواسطة الكود التالي :

		   If MyFltr = "" Then C = "" Else C = " AND "

بعد ذلك نضع قيم الشرط في المتغير MyFltr بواسطة الكود التالي :

 yFltr = MyFltr & C & " [" & ArryField(R) & "] " & " Like '" & Controls(ArryControl(R)) & "*'"

بعد ذلك ننهي الشرط بواسطة End If

ثم نعيد المرور على المصفوفتين والأختبار بواسطة Next

نقوم بإختبار قيمة المتغير MyFltr بواسطة السطر التالي:

	If MyFltr = "" Then

إذا كانت القيمة فارغة أي "" نجعل مصدر القائمة كل السجلات بواسطة السطر التالي:

 Me.ttt.RowSource = "select * From NN"

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

 strsql = "select * From NN Where" & MyFltr
  Me.ttt.RowSource = strsql

وحيث أنه لا يمكننا الكتابة والتصفية في مربع النص إلا بواسطة خاصية Text وهذا الخاصية تتطلب أن يكون مربع النص يمتلك التركيز وحيث أن مربعات النص تمر عبر مصفوفة فلا يمكن التعامل مع هذه الخاصية ولذلك فقد قمت بعمل 4 مربعات نص أخرى أسميتها Txt1 إلى Txt4 وأسندت لها قيم مربعات الكتابة إلا أنها مخفية عن الأعين وتم إسناد القيم في حدث عند التغيير بواسط الكود التالي:

	Me.Txt1 = Me.Txtn1.Text

وتم استدعاء الوحدة النمطية العامة بواسطة : Call MdlFilter

وهكذا مع بقية مربعات النصوص الأخرى

الشفرة تبحث عن أول حرف ثم الذي يليه حسب الإدخال أي (( يبدأ بــ ) )

إذا أردت أن تبحث ( يحتوي على ) فأضف نجمة للسطر التالي:

yFltr = MyFltr & C & " [" & ArryField(R) & "] " & " Like '" & Controls(ArryControl(R)) & "*'"

ليصبح السطر كالتالي :

yFltr = MyFltr & C & " [" & ArryField(R) & "] " & " Like '*" & Controls(ArryControl(R)) & "*'"

كذلك إذا اردت البحث بواسطة ( ينتهي بـــ ) فعدل السطر السابق إلى السطر التالي

 MyFltr = MyFltr & C & " [" & ArryField(R) & "] " & " Like '*" & Controls(ArryControl(R)) & "'"

طبعاً العملية كلها تتلخص في تبدل النجمة أو حذفها.

وهذه الأكواد الموجودة على النموذج كاملة

 

Dim ArryField(5) As String, ArryControl(5) As String


Private Sub Form_Load()

	ArryField(1) = "n1"
	ArryField(2) = "n2"
	ArryField(3) = "n3"
	ArryField(4) = "n4"

	ArryControl(1) = "Txt1"
	ArryControl(2) = "Txt2"
	ArryControl(3) = "Txt3"
	ArryControl(4) = "Txt4"

End Sub

Private Sub MdlFilter()
On Error Resume Next

	Dim R As Byte, MyFltr As String, C As String, strsql As String
	MyFltr = ""
	For R = 1 To 4

		If Not (IsNull(Controls(ArryControl(R)).Value)) And (Controls(ArryControl(R)).Value) <> "" Then

		   If MyFltr = "" Then C = "" Else C = " AND "
		   MyFltr = MyFltr & C & " [" & ArryField(R) & "] " & " Like '" & Controls(ArryControl(R)) & "*'"
	  End If
	Next

	If MyFltr = "" Then
	Me.ttt.RowSource = "select * From NN"
	Else
			strsql = "select * From NN Where" & MyFltr
	Me.ttt.RowSource = strsql
End If
End Sub

Private Sub Txtn1_Change()

	Me.Txt1 = Me.Txtn1.Text
	Call MdlFilter

End Sub

Private Sub Txtn2_Change()

	Me.Txt2 = Me.Txtn2.Text
	Call MdlFilter

End Sub

Private Sub Txtn3_Change()
	Me.Txt3 = Me.Txtn3.Text
	Call MdlFilter

End Sub

Private Sub Txtn4_Change()

	Me.Txt4 = Me.Txtn4.Text
	Call MdlFilter

End Sub

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

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

أما بالنسبة لكودنا السابقة فقد تغلب على تلك المشكلة.

أرجو لك التوفيق وأن أكون قدمت لك الفائدة

كما أعتذر من الأخوة المشاركين .

Musleh.rar

السلام عليكم ورحمة الله

أخي مصلح الحريصي .. أبصم لك بالعشرة .. أنك من المبدعين

وفقك الله ورعاك على هذا المثال الرائع

والشكر موصولا لإستاذ الجميع الأخ مهند عبادي .. جزاكما الله خير

EKSEER

أخي ekseer شكراً لك

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

ما يهمنا هو تحقيق رغبات أخواننا في هذا المنتدى ومنهم أخونا جلال فأرجو أن نكون كذلك

وهذه مساهمة مني .. آمل قبولها بصدر رحب

Filter2.rar

سلام

تحياتي للجميع

أبو سارة: خبير فوق العادة، ومدير الأزمات

أكسسنا: أكسسنابرو، اسم يشرف بك

رعاكما الله وبارك فيكما وفي عطائكما ونفع بكما الجميع

بحق: -- الجامعة العربية للبرمجة --

القحم

السلام عليكم ورحمة الله وبركاتة ,

كل الاستاذة و الاخوان ( ايهاب - زهراء - القحم - مصلح الحريصي - Accessna ) شكرا جزيلا لكم وجزاكم الله كير خير ,,,,,

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

ومهم دعوت لن اوفيكم حقكم و لكن لكم الجزء عند الله تعالي , و الحمد لله .

مشرفنا الغالي ابو سارة

لك مني كل الشكر والتقدير على هذا الشرح والمثال الرائعين جداً من اخ واستاذ يحب الخير للجميع. بارك الله فيك وجزاك خير الجزاء

اخي الغالي اكسينا مثال رائع .. دائماً مبدع بارك الله فيك ونفع بعلمك ...

وكما قال اخي المبدع القحم

بحق: -- الجامعة العربية للبرمجة --

وفقكم الله جميعاً

شكراً للجميع على المشاركات والله الدعوات والكلام الطيب راحة للنفس

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

أخي جلال

بما أننا وصلنا ولله الحمد لما تريد فلا بد من( عمل مناضرة مع الاستاذ ورد لأكسيس اعتبارها ) وسجلها في شريط فيديو وأبعثه لنا

تمنياتي للجميع بالتوفيق

كالعادة رائع ومبدع أستاذي أبو ساره ..... بارك الله فيك

شكرا للجميع

أهم شيئ فرحني في هذا الموضوع تقبل مشاركتي بصدر رحب

الصراحة أنا دخلت المنتدى وكنت ناوي على كسر بعض الأعراف التي تغلغلت في المنتديات العربية

وهي تعظيم الأشخاص وقبول كل شيئ منهم مهما كانت تحتوي على عيوب أو أخطاء

والخشية من تقويم أعمالهم ومن ثم مصارحتهم ومقارعتهم بالحجة

والحمد لله كنت أحس بعدم قبولي لمقارعتي "الكبار" ولكني لم أتردد في وضع مشاركاتي ليس تقليلا لهم ولكن لإثراء المواضيع والمنافسة في إيجاد الأفضل ولو من مبتدئ

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

تقبلوا تحياتي

أخي الغالي Accessna والله أوجعني ردك لأنني لم أتخيل إن فينا من يفكر بهذا الأسلوب.

اقتباس

وهي تعظيم الأشخاص

العظمة لله وحده سبحانه وتعالى .

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

اقتباس

وقبول كل شيئ منهم مهما كانت تحتوي على عيوب أو أخطاء

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

اقتباس

والخشية من تقويم أعمالهم ومن ثم مصارحتهم ومقارعتهم بالحجة

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

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

اقتباس

والحمد لله كنت أحس بعدم قبولي لمقارعتي "الكبار"

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

اقتباس

ولكني لم أتردد في وضع مشاركاتي ليس تقليلا لهم ولكن لإثراء المواضيع والمنافسة في إيجاد الأفضل ولو من مبتدئ

ولماذا تتردد وأنت الكسبان فإذا أخطأت وجدت من صوبك وأستفد من ذلك فلا يولد المرء عالماً وأن أصبت فقد نفعت غيرك بعلمك ووجدت الدعاء لك بالغيب فالجميع هنا معلم ومتعلم.

لك تحياتي

اقتباس

الأعراف التي تغلغلت في المنتديات العربية

اقتباس

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

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

اقتباس

أخي الغالي Accessna والله أوجعني ردك لأنني لم أتخيل إن فينا من يفكر بهذا الأسلوب.

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

مواضيع وردود مميزة شكراً لكم .

جمال الخنجر