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

مساعدة في عملية ترتيب و بحث

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

مرحبا إخواني في المنتدى الرائع و أشكر إدارة المنتدى و المشرفين على هذا العمل الرائع

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

___________.rar

#2

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

الرجاء القيام بما يلي:

اما تغيير البرنامج

او تغيير واجهة التطبيق للأوفيس الى الانجليزية

او تغيير التسميات للجداول والنماذج الى الانجليزية

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#3

شكرا لك اخي على الإهتمام و اتمنى المداومة

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

أرجو الرد في أقرب وقت و جظاكم الله كلّ خير

sar.rar

#4

ان شاء الله غدا الجمعة سيكون كل شي جاهز

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

همام

تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 16 فبراير 2007 في 00:50

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#5

أشكر ،اشكر يا أخي همام على الإهتمام

الله يطول في عمر والدتك و ادعوا الله لها الصحة و العافية و الهناء

و تحياتي الخالصة لك و لوالدتك وشكرا لك مرة اخرى

#6

بارك الله فيك اخي الحمد لله الوالدة بخير ان شاء الله

دعواتك ان شاء الله مستجابة والله يعطيك العافية

تفضل هالمرفق فيه شرح ايضا لما قمت بعمله

الفضل يعود في عمله لاحد الأخوة وقامت زهرة المنتدى بالتعديل عليه

وانا قمت باضافة تعديل أخر

الفائدة التي تريدها وحسب الشكل الذي تريده اختره انت

همام

Serch.zip

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#7

شكرا لك اخي همام و لزهرة المنتدى حقا لقد أفرحتني فهذا تقريبا كلّ ما انتظره

فقد أخذت كلّ شيء وعملت آخر من جديد إلاّ انه واجهتني مشكلتين إذا كان بالإمكان حلّها

اولا : لا أستطيع إدخال التاريخ كاملا في خانة txt فهو يعطني إمكانية إدخال رقم واحد فقط من التاريخ (date )رغم أنني اخذت خيار التاريخ و بالنسبة للرقم و الإسم فهما يعملان بشكل جيد ، أمّا في المرفق الذي بعثته لي فالتاريخ يعمل بشكل جيد

ثانيا : وهو اهتزاز النموذج و حدث هذا لي عندما ادخلت الكود الخاص بالنموذج عند خيار الفتح او الحالي ، امّا من قبل لم يحدث الاهتزاز فكان كلّ شيء طبيعي فقط مشكلة إدخال التاريخ

و لديّ طلب و رجاء ان تضع مرفق خاص بشرح اكواد هذا البرنامج خاصة كود (combo3 ) فمعرفتي سطحية في برمجة VBA

واسمحني إن كنت أثقلت عليك بالطلبات و شكرا لك مرّة أخرى

#8

أين أنت يا اخي همام هل يمكن التواصل و أرجوك أن تستحملني قليلا

#9

عزيزي الفاضل

لم تواجهني اي مشكلة في البرنامج عللى الاطلاق

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

الحل: اذهب الى لوحة التحكم وغير خصائص الوقت والتاريخ الى اربع خانات بالنسبة للتاريخ

المشكلة الثانية لم يظهر اي اهتزاز للنموذج او ماذا تقصد تحديد بالاهتزاز

لاني لم الاحظ اي شي غريب

اخوك همام

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#10

بالنسبة لشرح كود Combo3 هو مايلي:

Private Sub Combo3_AfterUpdate()
	Dim Ct As String
	Dim S1 As String, S2 As String

  Ct = """"
  Select Case Me.OptSearch
	Case 2: S1 = "":  S2 = "*"
	Case 1: S1 = "*": S2 = "*"
	Case 3: S1 = "*": S2 = ""
  End Select
	Me.TXT_Search.SetFocus
 Me.List6.RowSource = "SELECT names.num, names.nom, names.date " & _
   "FROM names WHERE names." & Me.Combo3 & " " & "Like " & Ct & S1 & Trim(Nz(Me.TXT_Search.Text)) & S2 & Ct & " " & _
	"ORDER BY names.num"
  Me.nam.Form.RecordSource = "SELECT names.num, names.nom, names.date " & _
   "FROM names WHERE names." & Me.Combo3 & " " & "Like " & Ct & S1 & Trim(Nz(Me.TXT_Search.Text)) & S2 & Ct & " " & _
	"ORDER BY names.num"
End Sub

في السطر الأول: التعريقات الخاصة بمتغيرات نوعها نص وهي التي يتحدد بناء عليها عامل الفلترة او معيار التصفية لعرض السجلات في القائمة

Select Case Me.OptSearch هو مجموعة خيار تحدد قيمة متغير الفلترة او التصفية وهذا واضح من الكود في تغيير قيم S التي استخدمت لاحقا في جملة SQL التي تعرض السجلات في القائمة

Me.List6.RowSource هنا يتم تغيير مصدر السجل للقائمة تبعا للحقل الذي تم اختياره من Combo3

كذلك Me.nam.Form.RecordSource تقوم بفلترة السجلات التي ستعرض في النموذج الفرعي وهنا تم اضافة ذلك لكي تتمكن من اختيار الطريقة المناسبة لعرض نتائج البحث حسبما تشاء

جمل Select هي جمل SQL معروف الهدف منها وهو هنا تغيير مصدر السجل الى ما ترجعه هذه الجمل من بيانات لكل من القائمة والنموذج الفرعي وهذه الجمل كما ذكرت سابقا تعتمد في جزء كبير منها على متغير S الذي يحدد نوع البحث كما هو موضح في مجموعة الخيار وكذلك تعتمد على المتغير txtSearc الذي يكتب فيه النص الذي يتم البحث عنه

اي استفسار اخر انا جاهز

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#11

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

أمّا فيما يخص مشكلة التاريخ فالمشكلة حلت والحمد لله ، وآسف على تأخري في الرد وإن شاء الله سنتابع التحاور

فلدي بعض الاستفسارات سأقدمها في حينها إن شاء الله

#12

بارك الله فيك اخي الكريم وابق على تواصل ستجدني في مساعدتك باذن الله

همام

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

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

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