رسالة عند انتظار ظهور نتائج البحث

[محمد صلاح1]

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

[محمد صلاح1]

المطلوب بتفصيل أكثر كود رسالة تظهر وتختفي تلقائياً تفيد المستخدم بالانتظار عند إجراء عمل استعلام البحث عندما يستغرق وقتاً يتعدي الـ 20 ثانية خلال البحث في نصوص كثيرة

 

تم تعديل مايو 16, 2019 بواسطه محمد صلاح1

[ابو جودي]

Waiting_Fotm.zip

اقتح النموذج

HomePage

[محمد صلاح1]

ما شاء الله عليك أستاذ محمد وعلي نشاطك المحمود في المنتدي

المثال الذي طرحته حضرتك قريب جداً من المقصود ولكن يبقي الجزء الأهم وهو كيف أطبقه علي مثالي المرفق عند البحث من خلال النموذج frm_Hadeeth_ProSearch

مع جزيل الشكر

02 Data 1.accdb

تم تعديل مايو 16, 2019 بواسطه محمد صلاح1

[ابو جودي]

1- انشئ موديول جديد وضع به هذا الكود

Option Compare Database
Option Explicit

Public Function GetWaiting(strData As String)
    DoCmd.OpenForm "frmWaiting"
    Forms!frmWaiting!lblWaiting.Caption = strData
    Pause 0.1
End Function

Public Function Pause(NumberOfSeconds As Variant)
On Error GoTo Err_Pause
    Dim PauseTime As Variant, Start As Variant
    PauseTime = NumberOfSeconds
    Start = Timer
    Do While Timer < Start + PauseTime
    DoEvents
    Loop
Exit_Pause:
    Exit Function
Err_Pause:
    MsgBox Err.Description
    Resume Exit_Pause
End Function

 

2- قم بنقل النموذج   frmWaiting    من المثال المرفق

3- فى نموذج البحث فى قاعدتك اذهب الى زر الامر الخاص بالبحث

وضع به هذا الكود

On Error Resume Next
Call GetWaiting("برجاء الإنتظار .. جارى معالجة البيانات............")

.......... هنا كود البحص الخاص بك مكان هذا السطر ..............

DoCmd.Close acForm, "frmWaiting"

بس خلاص

[محمد صلاح1]

بعد التطبيق علي الشرح الوافي ألف شكر النتيجة ممتازة

تم تعديل مايو 16, 2019 بواسطه محمد صلاح1

[محمد صلاح1]

أستاذ محمد

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

[ابو جودي]

17 ساعات مضت, محمد صلاح1 said:

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

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

نص الرساله بالاحمر سهل ادخل ع التصميم وغيره للاحمر

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

ولكن تقف الحركة نهائيا لحين اكتمال الاستعلام والانتهاء منه 

تم تعديل مايو 19, 2019 بواسطه ابا جودى

[محمد صلاح1]

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