خاصية Tag

ينطبق على

عنصر BoundObjectFrame

عنصر Image

عنصر OptionGroup

عنصر SubForm

عنصر CheckBox

عنصر Label

عنصر Page

مجموعة TabControl

عنصر ComboBox

عنصر Line

عنصر PageBreak

عنصر TextBox

عنصر CommandButton

عنصر ListBox

عنصر Rectangle

عنصر ToggleButton

عنصر CustomControl

عنصر ObjectFrame

عنصر Report

عنصر Form

عنصر OptionButton

عنصر Section

يقوم بتخزين معلومات إضافية حول نموذج أو تقرير أو صفحة الوصول إلى البيانات أو مقطع أو عنصر تحكم التي يحتاجها تطبيق Microsoft Office Access 2007. قم بقراءة/كتابة سلسلة.

expression.Tag

expression Required. تعبير يُرجع أحد العناصر في قائمة "ينطبق على".

ملاحظات

يمكنك إدخال تعبير السلسلة بطول 2048 حرفاً. يكون الإعداد الافتراضي سلسلة فارغة (" ").

يمكنك تعيين هذه الخاصية باستخدام صفحة الخصائص أو الماكرو للعنصر أو التعليمات البرمجية لـ Visual Basic for ‎‎‎‎‎‎‎Applications ‎ (‏‎‎‎‎VBA).

على عكس الخصائص الأخرى، لا يؤثر إعداد خاصية Tag على أي من سمات العنصر.

يمكنك استخدام هذه الخاصية لتعيين سلسلة تعريف لعنصر ما دون التأثير على أي من إعدادات الخصائص الأخرى أو التسبب في حدوث أي تأثيرات جانبية أخرى. تكون خاصية Tag مفيدة عندما تحتاج إلى التحقق من هوية نموذج أو تقرير أو صفحة الوصول إلى البيانات أو مقطع أو عنصر التحكم الذي يتم تمريره كمتغير لإجراء ما.

مثال

يستخدم المثال التالي خاصية Tag لعرض رسائل مخصصة حول عناصر التحكم في نموذج. عندما يتم التركيز على عنصر تحكم، يتم عرض نص وصفي في عنصر تحكم الوصف يسمى lblMessage. يمكنك تحديد نص الرسالة بواسطة تعيين خاصية Tag لكل عنصر تحكم على سلسلة نص مختصر. عندما يتم التركيز على عنصر تحكم، يتم تعيين خاصية Tag الخاصة به إلى خاصية Caption الخاصة بعنصر تحكم الوصف. يعرض هذا المثال النص الوصفي لمربع نص يسمى txtDescription وزر أمر يسمى cmdButton في نموذج.

Sub Form_Load()
Dim frmMessageForm As Form
Set frmMessageForm = Forms!Form1
frmMessageForm!lblMessage.Caption = "" ' Clear text.
frmMessageForm!txtDescription.Tag = _
"Help text for the text box."
frmMessageForm!cmdButton.Tag = _
"Help text for the command button."
End Sub
Sub txtDescription_GotFocus()
' Tag property setting as caption.
Me!lblMessage.Caption = Me!txtDescription.Tag
End Sub
Sub txtDescription_LostFocus()
Me!lblMessage.Caption = ""
End Sub
Sub cmdButton_GotFocus()
' Tag property setting as caption.
Me!lblMessage.Caption = Me!cmdButton.Tag
End Sub
Sub cmdButton_LostFocus()
Me.lblMessage.Caption = " "
End Sub
توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×