VBA

Microsoft Office Access: إظهار رسالة حفظ مخصصة

Kuwait10 أمثلة ودروس وتلميحات Microsoft Office Access ،

المعضلة

قام “علي” بتصميم قاعدة بيانات بأسماء المرضى، كذلك قام بتصميم نموذج لإدخال البيانات، ووضع فيه أزرار للتحكم بالسجلات، كزر الانتقال إلى السجل الأول، وزر الانتقال إلى السجل الثاني، وزر إضافة سجل جديد، وزر حفظ سجل.
لاحقا سلم “أحمد” قاعدة بيانات المرضى للمستخدم النهائي، وقام المستخدم بإدخال بيانات المرضى، ولكن عندما ينقر المستخدم على زر “حفظ سجل” يقوم برنامج Microsoft Office Access بحفظ البيانات تلقائيا، دون إظهار رسالة تأكيد عملية الحفظ، لذلك طلب المستخدم من “علي” إظهار رسالة مخصصة تفيد بنجاح عملية حفظ بيانات المريض كلما قام بالنقر فوق زر حفظ.

الحل

الحل سيكون بالتأكيد من خلال كتابة بعض التعليمات البرمجة (VBA)!
وإليكم الـ Code كاملا، كل ما عليكم هو تغيير “txtPatientName” إلى اسم مربع النص الذي يحتوي على اسم المريض أو العميل مثلا في النموذج الذي تستخدمه.

التطبيق

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

هل لديك سؤال لي؟
إبعث بسؤالك عبر البريد الإلكتروني التالي: kuwait10@msn.com
أو من خلال صفحة “إتصل بي”.

الإعلان

منع التعديل أو إضافة أو حذف السجلات من النموذج (Microsoft Office Access)

Kuwait10 أمثلة ودروس وتلميحات Microsoft Office Access ،،،،

التحكم بالسجلات من خلال لغة VBA

ربما مضت فترة طويلة لم أكتب عن Microsoft Office Access، على كل حال؛ اليوم سأكتب لكم عن تلميحة جيدة تتعلق بمنع التعديل أو إضافة أو حذف السجلات من النموذج، من خلال شفرة برمجية بسيطة (Code)، نستخدم هذه الشفرة في حدث عند التحميل للنموذج (Form Load):

لمنع إضافة السجلات برمجيا نكتب الأمر التالي:
Me.AllowAdditions = False

لمنع حذف السجلات برمجيا نكتب الأمر التالي:
Me.AllowDeletions = False

لمنع التعديل على السجلات برمجيا نكتب الأمر التالي:
Me.AllowEdits = False

حيث Me تشير إلى النموذج نفسه، أما إذا أردنا السماح بإضافة أو حذف أو التعديل على السجلات فنغير False إلى  True، وهذا كل شيء.