นำไปใช้กับ
| วัตถุ BoundObjectFrame | วัตถุ Image | วัตถุ OptionGroup | วัตถุ SubForm |
|---|---|---|---|
| วัตถุ CheckBox | วัตถุ Label | วัตถุ Page | คอลเลกชัน TabControl |
| วัตถุ ComboBox | วัตถุ Line | วัตถุ PageBreak | วัตถุ TextBox |
| วัตถุ CommandButton | วัตถุ ListBox | วัตถ Rectangle | วัตถุ ToggleButton |
| วัตถุ CustomControl | วัตถุ ObjectFrame | วัตถุ Report | |
| วัตถุ Form | วัตถุ OptionButton | วัตถุ Section |
เก็บข้อมูลเพิ่มเติมเกี่ยวกับฟอร์ม รายงาน Data Access Page ส่วน หรือตัวควบคุมที่จําเป็นโดยโปรแกรมประยุกต์ Access อ่าน/เขียน สตริง
นิพจน์.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