ترتيب التاريخ تصاعدى من النموذج الرئيسى

[محمد احمد لطفى]

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

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

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

test1005.rar

[عبد الفتاح كيرة]

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

أولا ما يصلح أن تسمى حقلا باسم date

غيرته إلى mdate

أضف السطرين التاليين إلى زر ترتيب تصاعدى فى النموذج الرئيسى

Me.test.Form.OrderBy = "mdate asc"
Me.test.Form.OrderByOn = True

ملفك بعد التعديل

test1005.rar

[محمد احمد لطفى]

جزاك الله خيرا نتعلم منك الكثير

[عبد الفتاح كيرة]

كلنا نتعلم

شكرا لك

[محمد احمد لطفى]

كيف يتم عرض الترتيب مع عدم عرض الخلايا الفارغة

[عبد الفتاح كيرة]

4 ساعات مضت, محمد احمد لطفى said:

كيف يتم عرض الترتيب مع عدم عرض الخلايا الفارغة

ملفك ليس به سجلات فارغة

ما يظهر فى نهاية النموذج الفرعى هو لاستقبال سجل جديد

[محمد احمد لطفى]

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

 

Me.test.Form.OrderBy = "mdate asc"
Me.test.Form.OrderByOn = True

test1005.rar

[jjafferr]

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

 

اما التقرير ، فلا يحترم ترتيب الاستعلام ، وانما يجب عمله من المجاميع

 

جعفر

[محمد احمد لطفى]

عند الضغط تصفية التاريخ سيظهر بعد الخلايا لا يوجد بها تاريخ  

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

660.Test2000.rar

[jjafferr]

استخدم نفس الطريقة التي استعملناها هنا:

 

جعفر

[محمد احمد لطفى]

1 hour ago, jjafferr said:

استخدم نفس الطريقة التي استعملناها هنا:

 

جعفر

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

[jjafferr]

سؤالك كان ، وعليه وضعت لك الرد:

2 ساعات مضت, محمد احمد لطفى said:

لا اريد منع الخلايا الفارغة من الاستعلام 
لانه سيحذف سجلات 

 

اما الآن فانت تقول غير هذا:

3 دقائق مضت, محمد احمد لطفى said:

ولكن ستظهر الخلايا الفارغة وغير الفارغة الا يوجد كود لعرض لحجب الخلايا الفارغة

 

جعفر

[محمد احمد لطفى]

14 hours ago, محمد احمد لطفى said:

كيف يتم عرض الترتيب مع عدم عرض الخلايا الفارغة

أسف لذلك فتحت موضوع جديد 

هذا  نموذج تصفية بيانات 

فى بعض الاحيان سأحتاج ظهور الخلايا التى بها تاريخ فقط 

مع عدم عرض السجلات التى لا يوجد بها بيانات فى التاريخ 
وجزاكم الله خيرا 

660.Test2000.rar

[jjafferr]

بدون عرض الخلايا الفارغة:

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

 

جعفر

[محمد احمد لطفى]

4 hours ago, محمد احمد لطفى said:

عند الضغط تصفية التاريخ سيظهر بعد الخلايا لا يوجد بها تاريخ  

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

660.Test2000.rar

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

[محمد احمد لطفى]

أكيد فيه كود ذى فلتر الترتيب
 

Me.test.Form.OrderBy = "mdate asc"
Me.test.Form.OrderByOn = True

[jjafferr]

نعم شيء من هذا القبيل

Me.test.Form.Filter = "[mdate]=#1-2-2017#"
Me.test.Form.FilterOn = True

 

جعفر

[محمد احمد لطفى]

الله عليك 
كيف نعمل اكبر من التاريخ ليعطينا تاريخ اليوم و التواريخ التالية

Just now, محمد احمد لطفى said:

الله عليك 
كيف نعمل اكبر من التاريخ ليعطينا تاريخ اليوم و التواريخ التالية

أسف 
 

Me.test.Form.Filter = "[mdate]>=#1-2-2017#"
Me.test.Form.FilterOn = True

لى عودة

 

انا عارف انى زهقت حضرتك 

الكود اشتغل رائع

ولكن عند الضغط على زرارا 
Up

لارجاع جميع البيانات 
أو تنفيذ امر أخر 
لا ينفذ الامر 

660.Test2000.rar

تم تعديل يونيو 28, 2017 بواسطه محمد احمد لطفى

[jjafferr]

9 ساعات مضت, محمد احمد لطفى said:

الكود اشتغل رائع

ولكن عند الضغط على زرارا 
Up

لارجاع جميع البيانات 
أو تنفيذ امر أخر 
لا ينفذ الامر 

 

الحمدلله

 

طريقة عمل فلتر/تصفية/Filter النموذج هو ، انه يضيف الى التصفية كلما طلبت منه تصفيه ، او استخدمت الامر السابق ،

لذلك ، واذا اردت تصفية واحدة فقط بإستخدام الزر ، فعليك حذف التصفية السابقة ، ثم عمل تصفية جديدة ، 

 

9 ساعات مضت, محمد احمد لطفى said:

التاريخ ليعطينا تاريخ اليوم و التواريخ التالية

 

Me.test.Form.Filter = ""
Me.test.Form.Filter = "[mdate]>=#" & Date & "#"
Me.test.Form.FilterOn = true

 

جعفر

[محمد احمد لطفى]

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

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

وجزاك الله خيرا

 

[محمد احمد لطفى]

جزاك الله خيراً
شكرا لك استاذى جعفر 

تم عكس الامر باضافة فى زرار 
Up 
 

Me.test.Form.Filter = "[mdate]>=#" & Date & "#"
Me.test.Form.FilterOn = false

لى عودة فى موضوع أخر 

تم تعديل يونيو 28, 2017 بواسطه محمد احمد لطفى

[jjafferr]

تمام