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

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

قام بنشر

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

قام بنشر (معدل)

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

 

تم تعديل بواسطه محمد صلاح1
قام بنشر (معدل)

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

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

مع جزيل الشكر

02 Data 1.accdb

تم تعديل بواسطه محمد صلاح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"

:rol: بس خلاص

  • Thanks 1
قام بنشر (معدل)
17 ساعات مضت, محمد صلاح1 said:

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

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

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

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

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

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

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