ينطبق على
عنصر 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