هناك جزأين تقريبًا لاستخدام قواعد بيانات Access. الأول هو حساب البيانات ومعالجتها. تُستخدم جميع جداول البيانات والاستعلامات لإكمال معالجة البيانات كمرجع، الثاني هو إنتاج واجهة المستخدم (UI). على الرغم من أن هذا الجزء ليس جوهريًا، إلا أنه مهم جدًا أيضًا. نظرًا لأن المستخدمين العاديين لا يعرفون كيفية إنشاء الاستعلامات والمهام الأخرى، فكل ما يحتاجون إليه هو النقر فوق الزر للحصول على المعلومات الضرورية، لذلك نحتاج إلى إنشاء عدد كبير من النماذج لتوجيه المستخدمين لتنفيذ عمليات قاعدة البيانات للحصول على المعلومات التي يحتاجونها. لذلك، بالنسبة لنظام تطبيق قاعدة بيانات جيد، لا غنى عن هذين الجزأين.
أثناء عملية بناء النموذج وتوجيه المستخدمين لاستخدامه، كثيرًا ما نواجه هذه المشكلة: في بعض الأحيان يقوم المستخدم بالضغط على زر أمر، وعندما يبدأ البرنامج في تنفيذ البرنامج المرتبط بذلك الزر، نظرًا لكثرة العمل الحسابي المعنية، لذلك، سوف يعمل الكمبيوتر بشكل أبطأ، وستظهر الشاشة غير مستجيبة في Access. إذا استغرق الأمر وقتًا أطول قليلاً، فهل سيجعل الناس يشعرون وكأنهم قد تعطلوا؟ لذلك، في هذه الحالة، سيكون من الأفضل أن يكون هناك مربع مطالبة لإخبار المستخدم بما يفعله الكمبيوتر في هذا الوقت، بالإضافة إلى ذلك، يمكن أن يجعل الوقت يبدو أقصر، لأن الانتظار دون أي تغييرات سيجعل الناس يشعرون أطول!
لإكمال نافذة عرض المعلومات الفورية هذه، أول شيء نفكر فيه هو إضافة جزء من التعليمات البرمجية إلى جزء معين من البرنامج. يفتح هذا الرمز نافذة جديدة تحتوي على نص ذي صلة في النافذة، مثل "البرنامج قيد التشغيل". يرجى الانتظار..." "انتظر، الرمز بسيط جدًا أيضًا، وهو كذلك في Access
…
DoCmd.OpenForm "انتظر"
Forms!Wait!lblwait.Caption = "البرنامج قيد التشغيل، الرجاء الانتظار..."
…
من بينها، الانتظار هو اسم النموذج (النموذج)، lblwait هو اسم عنصر تحكم التسمية (التسمية) في النموذج. عند تشغيل البرنامج إلى علامة القطع، سيتم فتح نافذة الانتظار، ثم اسم سيتم تغيير عنصر التحكم في التسمية إلى "البرنامج قيد التشغيل" قيد التشغيل، يرجى الانتظار...".
ولكن عند تشغيل رمز البرنامج هذا، ستجد أن التأثير ليس كما تخيلته، حيث تظهر نافذة الانتظار، ولكنها مجرد منطقة بيضاء بدون أي نص. في البداية، قد تعتقد أن جهاز الكمبيوتر الخاص بك قيد التشغيل ببطء والشاشة لا تعمل، ولكن حتى لو قمت بالتبديل إلى أسرع جهاز كمبيوتر لتشغيله، فستظل النتيجة هكذا، أليس هذا محبطًا؟ !
في هذا الوقت، جاء دور طريقة Repaint لتظهر مواهبها، قم بتعديل الكود أعلاه قليلاً، كما يلي:
…
DoCmd.OpenForm "انتظر"
Forms!Wait!lblwait.Caption = "البرنامج قيد التشغيل، الرجاء الانتظار..."
نماذج!انتظر.أعد الرسم
…
قم بتشغيله مرة أخرى وسترى النافذة تظهر بشكل طبيعي وتطالب.
بعد ذلك، يمكنك إضافة هذا الرمز حيثما دعت الحاجة، وتغيير النص، ويمكنك مطالبة المستخدم في الوقت الحقيقي بما يفعله البرنامج أثناء تشغيل البرنامج!
السبب في الواقع بسيط للغاية، وهو أنه أثناء تشغيل البرنامج، لن يتم تحديث شاشة العرض في الوقت الفعلي، مما سيؤدي إلى تسريع تشغيل البرنامج لن يحتوي البرنامج على أي تحديثات للعرض، كما لو أنه قد تعطل، ولكن إضافة طريقة إعادة الرسم ستؤدي إلى تحديث شاشة العرض، مما يسمح لنا برؤية حالة تشغيل البرنامج ديناميكيًا.