اذهب الي المحتوي
أوفيسنا

الفرز الفردي والمتعدد في الاستعلام


الردود الموصى بها

شكرا لأخي أكسيسنا وأختي نرجس على تفاعلهما

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

السلام عليكم

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

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

.....................

أخي المثابر محب العلم

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

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

a>

والثانية :

هي أنني أول مرة أقوم بإنشاء مربع قامة فلم أستطيع التعامل معها

والتطبيق موجود في المرفق

في انتظار مساعدتك وقت ماتستطيع

:rol:

DevelopedsortingTESTTT.rar

تم تعديل بواسطه نرجس الورد
رابط هذا التعليق
شارك

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

حياك الله أختي نرجس ،

بالنسبة للمشكلة الأولي يبدو أنك نسيت تنقلي للتطبيقك مربع القائمة المخفي والمصغر في وضع التصميم أنظري الصورة :

post-27241-1204875566_thumb.png

بالنسبة للموضوع الثاني ، لم أفهم بالضبط ما الذي تريدني أن أعمله :rol:

مع وافر الاحترام

رابط هذا التعليق
شارك

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

حياك الله أختي نرجس ،

بالنسبة للمشكلة الأولي يبدو أنك نسيت تنقلي للتطبيقك مربع القائمة المخفي والمصغر في وضع التصميم أنظري الصورة :

post-27241-1204875566_thumb.png

بالنسبة للموضوع الثاني ، لم أفهم بالضبط ما الذي تريدني أن أعمله :rol:

مع وافر الاحترام

جزاك الله خير على التوضيح أخي الكريم محب العلم

الموضوع الثاني خاص بطريقة انشاء مربع اختيار حقول الفرز

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

حفظك الله ورعاك

تم تعديل بواسطه نرجس الورد
رابط هذا التعليق
شارك

حياك الله أختي نرجس ،،

1. تنشئين مربع قائمة بالمواصفات الآتية :

الاسم / cbolookup

مصدر الصف / QSchoolers

نوع مصدر الصف / قائمة الحقول

عمود منضم / 1

متعدد التحديد / عادي

مرئي / لا

2. تنشين مربع قائمة أخر المواصفات الآتية :

الاسم / L

نوع مصدر الصف / قائمة القيم

عمود منضم / 1

متعدد التحديد / عادي

مرئي / نعم

عدد الأعمدة / 2

عرض الأعمدة / 3سم

3. في قسم التعريفات لأكواد النموذج تعرفين متغيرين هكذا

Option Compare Database
Private theList(19, 2) As String
Private theFields As Byte
المتغير thefields سيحفظ به عدد الحقول المصفوفة thelist مؤلفة من ثلاث أعمدة العمود 0 لأسم الحقل والعمود 1لنوع الفرز والعمود 2لأغراض برمجية 4. في حدث عند الفتح للنموذج تضعين الكود الأتي
Private Sub Form_Open(Cancel As Integer)
For i = 0 To Me.cboLookup.ListCount - 1
 ItemStr = cboLookup.ItemData(i) & ";A to Z"
 l.AddItem Item:=ItemStr, Index:=i
 theList(i, 0) = cboLookup.ItemData(i)
 theList(i, 1) = "A to Z"
Next i
 theFields = Me.cboLookup.ListCount
 Me.godown.Enabled = False
 Me.goup.Enabled = False
 End Sub

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

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

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

رابط هذا التعليق
شارك

عذرا لتأخري في الرد

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

حياك الله أختي نرجس ،،

شكرا لطيب وسمو أخلاقك أخي الفاضل محب العلم

1. تنشئين مربع قائمة بالمواصفات الآتية :

الاسم / cbolookup

مصدر الصف / QSchoolers

نوع مصدر الصف / قائمة الحقول

عمود منضم / 1

متعدد التحديد / عادي

مرئي / لا

2. تنشين مربع قائمة أخر المواصفات الآتية :

الاسم / L

نوع مصدر الصف / قائمة القيم

عمود منضم / 1

متعدد التحديد / عادي

مرئي / نعم

عدد الأعمدة / 2

عرض الأعمدة / 3سم

جميل جدا وشرح دقيق

قمت بإنشاء هذه المربعات حسب تعليماتك

3. في قسم التعريفات لأكواد النموذج تعرفين متغيرين هكذا

Option Compare Database
Private theList(19, 2) As String
Private theFields As Byte
المتغير thefields سيحفظ به عدد الحقول المصفوفة thelist مؤلفة من ثلاث أعمدة العمود 0 لأسم الحقل والعمود 1لنوع الفرز والعمود 2لأغراض برمجية
تبقت علي هذه النقطة الثالثة فقط واعذرني فلم أعرف أين يكون " قسم التعريفات لأكواد النموذج" ؟ ولم أجد هذا الكود في المثال بعد تعديلك عليه! ربما هي نقاط صغيرة ولكني لا أعرفها فلم أدرس الـ Sql ولا الفيجوال بيسك فأنا أتعلم من فيض علمكم مع مرور الوقت أما النقطة الرابعة فلا مشكلة لدي بها والحمد لله
4. في حدث عند الفتح للنموذج تضعين الكود الأتي
Private Sub Form_Open(Cancel As Integer)
For i = 0 To Me.cboLookup.ListCount - 1
ItemStr = cboLookup.ItemData(i) & ";A to Z"
l.AddItem Item:=ItemStr, Index:=i
theList(i, 0) = cboLookup.ItemData(i)
theList(i, 1) = "A to Z"
Next i
theFields = Me.cboLookup.ListCount
Me.godown.Enabled = False
Me.goup.Enabled = False
End Sub

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

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

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

جزاك الله خيرا وحفظك لمحبيك

في انتظار توضيحك للنقطة الثالثة

وتقبل مني وافر الشكر والتقدير

تم تعديل بواسطه نرجس الورد
رابط هذا التعليق
شارك

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

ولم أجد هذا الكود في المثال بعد تعديلك عليه!

:Rules:

ما يحاول قوله هذا الرجل أن الكود موجود ...

بالفعل أخي المحترم الكود موجود :biggrin2:

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

ولكن اعذرني هذه المرة أيضاً

فقد اتبعت أحداث الأزرار وطبقتها ولكن الأزرار لم تعمل :eek2:

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

وتجد المشكلة في المرفق

:rol:

:fff:

DevelopedsortingTEST3.rar

تم تعديل بواسطه نرجس الورد
رابط هذا التعليق
شارك

  • 3 weeks later...

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

عسى المانع خير أخي الفاضل

ننتظر عودتك سالماً وكما عهدنا جهدك المميز يثري هذا المنتدى الأصيل

الله يحفظك ويرعاك وينير دربك

:rol:

رابط هذا التعليق
شارك

  • 2 weeks later...

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

أخي المحترم محب العلم

ننتظر أن نسمع أخبارك الطيبة بفارغ الصبر

وانشاء الله هذه الغيبة كلها خير وسلام

أخواني الأفاضل هل أجد منكم مساعدة ..

فالمشكلة لازالت عندي قائمة وهي هامة ضرورية

أرجو مساعدتكم يحفظكم الله

تم تعديل بواسطه نرجس الورد
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information