يمكنك استخدام إجراء الماكرو GoToControl في قواعد بيانات Access لسطح المكتب وتطبيقات Access على الويب لنقل تركيز إلى حقل المحددة أو عنصر تحكم في سجل الحالي نموذج المفتوحة أو ورقة بيانات النموذج أو ورقة بيانات الجدول أو ورقة بيانات الاستعلام. يمكنك استخدام هذا الإجراء عندما تريد أن يكون التركيز على حقل أو عنصر تحكم معين. يمكن بعد ذلك استخدام هذا الحقل أو عنصر التحكم للمقارنات أو إجراءات FindRecord . يمكنك أيضا استخدام هذا الإجراء للتنقل في نموذج وفقا لشروط معينة. على سبيل المثال، إذا أدخل المستخدم لا في عنصر تحكم متزوج في نموذج تأمين صحي، يمكن أن يتخطى التركيز تلقائيا عنصر التحكم اسم الزوج والانتقال إلى عنصر التحكم التالي.
الإعداد
يحتوي إجراء GoToControl على الوسيطة التالية.
|
وسيطة الإجراء |
الوصف |
|
اسم عنصر التحكم |
اكتب اسم الحقل أو عنصر التحكم حيث تريد التركيز. هذه الوسيطة مطلوبة. ملاحظة: أدخل اسم الحقل أو عنصر التحكم فقط في الوسيطة Control Name ، وليس المعرف المؤهل بالكامل، مثل [Forms]! [المنتجات]! [معرف المنتج] إذا كنت تستخدم قاعدة بيانات Access لسطح المكتب. |
ملاحظات
لا يمكنك استخدام إجراء الماكرو GoToControl لنقل التركيز إلى عنصر تحكم في نموذج مخفي.
تلميح: يمكنك استخدام إجراء الماكرو GoToControl للانتقال إلى نموذج فرعي ، وهو نوع من عناصر التحكم. يمكنك بعد ذلك استخدام إجراء GoToRecord للانتقال إلى سجل معين في النموذج الفرعي. يمكنك أيضا الانتقال إلى عنصر تحكم على نموذج فرعي باستخدام إجراء GoToControl للانتقال أولا إلى النموذج الفرعي ثم إلى عنصر التحكم الموجود على النموذج الفرعي.
لتشغيل إجراء GoToControl في وحدة Visual Basic for Applications (VBA)، استخدم أسلوب GoToControl للكائن DoCmd . يمكنك أيضا استخدام أسلوب SetFocus لنقل التركيز إلى عنصر تحكم في نموذج أو أي من نماذجه الفرعية، أو إلى حقل في جدول مفتوح أو استعلام أو ورقة بيانات نموذج.
أمثلة
تعيين قيمة عنصر تحكم باستخدام ماكرو
يفتح الماكرو التالي نموذج إضافة منتجات من زر في نموذج الموردين. يظهر استخدام إجراءات Echo و Close و OpenForm و SetValue و GoToControl . يعين الإجراء SetValue عنصر تحكم معرف المورد في نموذج المنتجات إلى المورد الحالي في نموذج الموردين. ثم ينقل إجراء GoToControl التركيز إلى حقل معرف الفئة، حيث يمكنك البدء في إدخال البيانات للمنتج الجديد. يجب إرفاق هذا الماكرو بالزر إضافة منتجات في نموذج الموردين.
|
الإجراء |
الوسيطات: إعداد |
تعليق |
|
Echo |
Echo On: لا |
إيقاف تحديث الشاشة أثناء تشغيل الماكرو. |
|
إغلاق |
نوع العنصر: نموذج اسم العنصر: قائمة المنتجات حفظ: لا |
إغلاق نموذج قائمة المنتجات. |
|
Openform |
اسم النموذج: المنتجات طريقة العرض: نموذج وضع البيانات: إضافة وضع النافذة: عادي |
افتح نموذج المنتجات. |
|
Setvalue |
العنصر: [Forms]! [المنتجات]! [معرف المورد] التعبير: معرف المورد |
قم بتعيين عنصر تحكم معرف المورد إلى المورد الحالي في نموذج الموردين. |
|
Gotocontrol |
اسم عنصر التحكم: CategoryID |
انتقل إلى عنصر تحكم معرف الفئة. |
التحقق من صحة البيانات باستخدام ماكرو
يتحقق ماكرو التحقق التالي من الرموز البريدية التي تم إدخالها في نموذج الموردين. يظهر استخدام إجراءات StopMacro و MessageBox و CancelEvent و GoToControl . يتحقق التعبير الشرطي من البلد/المنطقة والرمز البريدي الذي تم إدخاله في سجل في النموذج. إذا لم تكن التعليمات البرمجية البريدية بالتنسيق الصحيح للبلد/المنطقة، فسيعرض الماكرو مربع رسالة ويلغى حفظ السجل. ثم يقوم الماكرو بإرجاعك إلى عنصر تحكم الرمز البريدي، حيث يمكنك تصحيح الخطأ. يجب إرفاق هذا الماكرو بخاصية BeforeUpdate لنموذج الموردين.
|
الشرط |
الإجراء |
الوسيطات: إعداد |
تعليق |
|
If IsNull([CountryRegion]) |
StopMacro |
إذا كانت CountryRegion فارغة، فلا يمكن التحقق من صحة التعليمات البرمجية البريدية. |
|
|
إذا كان [CountryRegion] In ("France","Italy","Spain") وLen([الرمز البريدي]) <> 5 |
Messagebox |
الرسالة: يجب أن يكون الرمز البريدي 5 أحرف. Beep: نعم النوع: معلومات العنوان: خطأ في التعليمات البرمجية البريدية |
إذا لم تكن التعليمات البرمجية البريدية مكونة من 5 أحرف، فعرض رسالة. |
|
Cancelevent |
إلغاء الحدث. |
||
|
Gotocontrol |
اسم عنصر التحكم: الرمز البريدي |
||
|
إذا كان [CountryRegion] in ("Australia","Singapore") وLen([الرمز البريدي]) <> 4 |
Messagebox |
الرسالة: يجب أن يكون الرمز البريدي 4 أحرف. Beep: نعم النوع: معلومات العنوان: خطأ في التعليمات البرمجية البريدية |
إذا لم تكن التعليمات البرمجية البريدية مكونة من 4 أحرف، فعرض رسالة. |
|
Cancelevent |
إلغاء الحدث. |
||
|
Gotocontrol |
اسم عنصر التحكم: الرمز البريدي |
||
|
If ([CountryRegion] = "Canada") و([الرمز البريدي] Not Like"[A-Z][0-9][A-Z] [0-9][A-Z][0-9]") |
Messagebox |
الرسالة: التعليمات البرمجية البريدية غير صحيحة. مثال على التعليمات البرمجية الكندية: H1J 1C3 Beep: نعم النوع: معلومات العنوان: خطأ في التعليمات البرمجية البريدية |
إذا لم تكن التعليمات البرمجية البريدية صحيحة بالنسبة إلى كندا، فعرض رسالة. (مثال على التعليمات البرمجية الكندية: H1J 1C3) |
|
Cancelevent |
إلغاء الحدث. |
