The following example uses the Tag property to display custom messages about controls on a form. When a control has the focus, descriptive text is displayed in a label control called lblMessage
. You specify the text for the message by setting the Tag property for each control to a short text string. When a control receives the focus, its Tag property is assigned to the label control's Caption property. This example displays the descriptive text for a text box named txtDescription
and a command button named cmdButton
on a form.
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()
Me!lblMessage.Caption = Me!txtDescription.Tag ' Tag property setting as caption.
End Sub
Sub txtDescription_LostFocus()
Me!lblMessage.Caption = ""
End Sub
Sub cmdButton_GotFocus()
Me!lblMessage.Caption = Me!cmdButton.Tag ' Tag property setting as caption.
End Sub
Sub cmdButton_LostFocus()
Me.lblMessage.Caption = " "
End Sub