Egenskaben Mærke

Gælder for

Lagrer ekstra oplysninger om en formular, Rapport, side for dataadgang, sektion eller et kontrolelement, som skal bruges af et Microsoft Office Access 2007-program. Læs/skriv Streng.

udtryk.Mærke

udtryk Påkrævet. Et udtryk, der returnerer et af objekterne på listen Gælder for.

Bemærkninger

Du kan angive et strengudtryk, som er op til 2.048 tegn langt. Standardindstillingen er en streng af længden nul (" ").

Du kan indstille denne egenskab ved hjælp af objektets egenskabsark, en makro eller VBA-kode (Visual Basic for Applications).

I modsætning til andre egenskaber påvirker indstillingen af egenskaben Mærke ikke nogen af objektets attributter.

Du kan bruge denne egenskab til at tildele en identifikationsstreng til et objekt uden at påvirke nogen af dets andre egenskabsindstillinger eller forårsage andre bivirkninger. Egenskaben Mærke er nyttig, hvis du vil kontrollere identiteten af en formular, rapport, dataadgangsside, sektion eller et kontrolelement, der videreføres som en variabel til en procedure.

Eksempel

I følgende eksempel anvendes egenskaben Mærke til at vise brugerdefinerede meddelelser om kontrolelementer i en formular. Når fokus er på et kontrolelement, vises der beskrivende tekst i et navneelement ved navn lblMessage. Du kan angive teksten i meddelelsen ved at angive egenskaben Mærke for hvert kontrolelement til en kort tekststreng. Når et kontrolelement kommer i fokus, tildeles dets Mærke-egenskab til navneelementets Titeltekst-egenskab. I dette eksempel vises den beskrivende tekst til et tekstfelt med navnet txtDescription og en kommandoknap med navnet cmdButton i en formular.

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