الخاصية "علامة"

ينطبق على

عنصر BoundObjectFrame	عنصر Image	عنصر OptionGroup	عنصر SubForm
عنصر CheckBox	عنصر Label	عنصر Page	مجموعة TabControl
عنصر ComboBox	عنصر Line	عنصر PageBreak	عنصر TextBox
عنصر CommandButton	عنصر ListBox	عنصر Rectangle	عنصر ToggleButton
عنصر CustomControl	عنصر ObjectFrame	عنصر Report
عنصر Form	عنصر OptionButton	عنصر Section

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

expression.Tag

التعبير مطلوب. هو تعبير يقوم بإرجاع أحد العناصر الموجودة في القائمة "ينطبق على".

ملاحظات

يمكنك إدخال تعبير سلسلة يصل طوله إلى 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