TechKnowledge Content
هل من الممكن إضافة زر إلى نافذة "السهول الكبيرة" وفتح التعليمات البرمجية ل VBA قاعدة بيانات Microsoft Access موجودة عند النقر
فوق هذا الزر؟
الدقة
يمكن القيام بذلك باستخدام Modifier و VBA.
1. أضف زرا جديدا إلى نافذة "السهول العظمى" المطلوبة باستخدام "المعدل".
2. امنح هذا الزر اسما وصفيا مثل btnOpenAccessDb.
3. امنح الأمان لهذه النافذة المعدلة، ثم افتح النافذة نفسها في السهول العظمى.
4. أضف النافذة إلى VBA ثم أضف الزر الجديد إلى VBA أيضا.
5. افتح محرر VBA وانتقل إلى مقطع التعليمات البرمجية لنافذة السهول العظمى هذه. فيما يلي عينة التعليمات البرمجية التي يمكن استخدامها هنا: Option Explicit
Dim appAccess As Object
Private Sub btnOpenAccessDb_BeforeUserChanged(KeepFocus As Boolean, CancelLogic As Boolean)
Dim docAccess
Set appAccess = CreateObject("Access.Application")
docAccess = appAccess.OpenCurrentDatabase("C:\My Documents\db1.mdb", True) appAccess.Visible = True End Sub Note -تم تصميم عينة التعليمات البرمجية هذه لفتح
adatabase المسماة "db1.mdb" الموجودة في دليل C:\My Documents ويمكن تغييرها حسب الحاجة. يجب أن يتم بعد كائن appAccess في المقطع إعلانات عامة بحيث يستمر خارج نطاق حدث النقر فوق الزر الذي يتم فيه تشغيل التعليمة البرمجية.
كانت هذه المقالة TechKnowledge Document ID:32879