คุณสมบัติ 'แท็ก' (Tag)

นำไปใช้กับ

เก็บข้อมูลเพิ่มเติมเกี่ยวกับ ฟอร์มรายงานData Access Pageส่วน หรือ ตัวควบคุม ที่จําเป็นสําหรับแอปพลิเคชัน Microsoft Office Access 2007 อ่าน/เขียน สตริง

นิพจน์.Tag

นิพจน์ จำเป็น นิพจน์ที่ส่งกลับวัตถุใดวัตถุหนึ่งในรายการ นําไปใช้กับ

ข้อสังเกต

คุณสามารถป้อน นิพจน์สตริง ที่มีความยาวไม่เกิน 2048 อักขระ การตั้งค่าเริ่มต้นคือ สตริงความยาวเป็นศูนย์ (" ")

คุณสามารถตั้งค่าคุณสมบัตินี้ได้โดยใช้ แผ่นคุณสมบัติ ของวัตถุ แมโคร หรือโค้ด Visual Basic for Applications (VBA)

การตั้งค่าคุณสมบัติ Tag ไม่มีผลต่อแอตทริบิวต์ใดๆ ของวัตถุ ไม่เหมือนกับคุณสมบัติอื่น

คุณสามารถใช้คุณสมบัตินี้ในการกําหนดสตริงการระบุไปยังวัตถุโดยไม่มีผลต่อการตั้งค่าคุณสมบัติอื่นๆ ของวัตถุ หรือทําให้เกิดผลข้างเคียงอื่นๆ คุณสมบัติ แท็ก มีประโยชน์เมื่อคุณจําเป็นต้องตรวจสอบข้อมูลเฉพาะตัวของฟอร์ม รายงาน Data Access Page ส่วน หรือตัวควบคุมที่ส่งผ่านเป็นตัวแปรไปยังกระบวนงาน

ตัวอย่าง

ตัวอย่างต่อไปนี้ใช้คุณสมบัติ แท็ก เพื่อแสดงข้อความแบบกําหนดเองเกี่ยวกับตัวควบคุมบนฟอร์ม เมื่อตัวควบคุมมีโฟกัส ข้อความอธิบายจะแสดงในตัวควบคุมป้ายชื่อที่เรียกว่า lblMessage คุณสามารถระบุข้อความสําหรับข้อความได้โดยการตั้งค่าคุณสมบัติ แท็ก สําหรับตัวควบคุมแต่ละตัวให้เป็นสตริงข้อความสั้นๆ เมื่อตัวควบคุมได้รับโฟกัส คุณสมบัติ 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