في قواعد بيانات Access لسطح المكتب إذا قمت بتعيين خيارات نافذة المستند لاستخدام نوافذ متداخلة بدلا من المستندات المبوبة، يمكنك استخدام إجراء الماكرو MoveAndSizeWindow لنقل النافذة النشطة أو تغيير حجمها. للحصول على معلومات حول كيفية تعيين خيارات نافذة المستند، راجع قسم الملاحظات.
ملاحظة: لا يمكن تطبيق إجراء الماكرو هذا على نوافذ التعليمات البرمجية في محرر Visual Basic. للحصول على معلومات حول كيفية التأثير على نوافذ التعليمات البرمجية، راجع موضوع الخاصية WindowState .
ملاحظة: لا يتوفر إجراء الماكرو MoveAndSizeWindow في تطبيقات Access على الويب.
الإعداد
يحتوي إجراء الماكرو MoveAndSizeWindow على الوسيطات التالية.
|
وسيطة الإجراء |
الوصف |
|---|---|
|
لليمين |
الموضع الأفقي الجديد للزاوية العلوية اليمنى للنافذة، مقاسة من الحافة اليسرى للنافذة التي تحتوي عليها. أدخل الموضع في مربع الوسيطة اليمنى . |
|
إلى الأسفل |
الموضع العمودي الجديد للزاوية العلوية اليمنى للنافذة، مقاسة من الحافة العلوية للنافذة التي تحتوي عليها. |
|
العرض |
العرض الجديد للنافذة. |
|
الارتفاع |
ارتفاع النافذة الجديد. |
إذا تركت وسيطة فارغة، Access تستخدم الإعداد الحالي للنافذة.
يجب إدخال قيمة وسيطة واحدة على الأقل.
ملاحظة: كل قياس بالبوصة أو السنتيمتر، اعتمادا على الإعدادات الإقليمية في Windows لوحة التحكم.
ملاحظات
لإعداد تطبيق لاستخدام نوافذ متداخلة بدلا من المستندات المبوبة، استخدم الإجراء التالي:
-
انقر فوق ملف > خيارات.
-
انقر فوق قاعدة البيانات الحالية.
-
في قسم خيارات التطبيق ، ضمن خيارات نافذة المستند، انقر فوق Windows المتراكب.
-
انقر فوق موافق، ثم أغلق قاعدة البيانات وأعد فتحها.
يشبه هذا الإجراء النقر فوق نقل أو حجم في قائمة التحكم بالنافذة. باستخدام أوامر القائمة، يمكنك استخدام مفاتيح الأسهم الخاصة بلوحة المفاتيح لنقل النافذة أو تغيير حجمها. باستخدام إجراء الماكرو MoveAndSizeWindow ، يمكنك إدخال قياسات الموضع والحجم مباشرة. يمكنك أيضا استخدام الماوس لتحريك النوافذ وحجمها.
يمكنك استخدام إجراء الماكرو هذا على أي نافذة، في أي طريقة عرض.
تلميحات
-
لنقل نافذة دون تغيير حجمها، أدخل قيم الوسيطتين لليمينوأسفل ولكن اترك الوسيطتين WidthوHight فارغتين.
-
لتغيير حجم نافذة دون نقلها، أدخل قيم وسيطتي العرضوالارتفاع ولكن اترك الوسيطتين إلى اليمينوالسهم لأسفل فارغتين.
لتشغيل إجراء الماكرو MoveAndSizeWindow في وحدة Visual Basic for Applications (VBA)، استخدم أسلوب MoveSize للكائن DoCmd .
مثال
مزامنة النماذج باستخدام ماكرو
تفتح إجراءات الماكرو التالية نموذج قائمة المنتجات في الزاوية السفلية اليسرى من نموذج الموردين، وتعرض منتجات المورد الحالي. يظهر استخدام إجراءات EchoوMsgBoxوGoToControl و StopMacroوOpenForm و MoveAndSizeWindow . كما يظهر استخدام تعبير شرطي مع إجراءات MsgBoxوGoToControl و StopMacro . يجب إرفاق هذا الماكرو بزر مراجعة المنتجات في نموذج الموردين.
|
الشرط |
الإجراء |
الوسيطات: إعداد |
تعليق |
|---|---|---|---|
|
Echo |
Echo On: لا |
إيقاف تحديث الشاشة أثناء تشغيل الماكرو. |
|
|
IsNull([معرف المورد]) |
Msgbox |
الرسالة: انتقل إلى سجل المورد الذي تريد رؤية منتجاته، ثم انقر فوق الزر مراجعة المنتجات مرة أخرى. Beep: نعم النوع: بلا العنوان: حدد موردا |
إذا لم يكن هناك مورد حالي في نموذج الموردين، فعرض رسالة. |
|
Gotocontrol |
Control Name: CompanyName |
انقل التركيز إلى عنصر تحكم CompanyName. |
|
|
... |
StopMacro |
إيقاف الماكرو. |
|
|
Openform |
اسم النموذج: قائمة المنتجات طريقة العرض: ورقة البيانات اسم عامل التصفية: Where Condition: [معرف المورد] = [Forms]! [الموردون]! [معرف المورد] وضع البيانات: للقراءة فقط وضع النافذة: عادي |
افتح نموذج قائمة المنتجات واعرض منتجات المورد الحالي. |
|
|
MoveAndSizeWindow |
اليمين: 0.7799" لأسفل: 1.8 بوصة |
ضع نموذج قائمة المنتجات في أسفل يمين نموذج الموردين. |
