Properti Tag

Berlaku untuk

Objek BoundObjectFrame

Objek Image

Objek OptionGroup

Objek SubForm

Objek CheckBox

Objek Label

Objek Page

Kumpulan TabControl

Objek ComboBox

Objek Line

Objek PageBreak

Objek TextBox

Objek CommandButton

Objek ListBox

Objek Rectangle

Objek ToggleButton

Objek CustomControl

Objek ObjectFrame

Objek Report

Objek Form

Objek OptionButton

Objek Section

Menyimpan informasi tambahan tentang formulir, laporan, halaman akses data, bagian, atau kontrol yang diperlukan oleh aplikasi Microsoft Office Access 2007. String baca/tulis.

ekspresi.Tag

ekspresi Diperlukan. Sebuah ekspresi yang mengembalikan salah satu objek dalam daftar Berlaku Untuk.

Keterangan

Anda dapat memasukkan ekspresi string hingga 2048 karakter. Pengaturan defaultnya adalah string kosong (" ").

Anda dapat mengatur properti ini menggunakan lembar properti objek, makro, atau kode Visual Basic for Applications (VBA).

Tidak seperti properti lain, pengaturan properti Tag tidak memengaruhi atribut objek apa pun.

Anda dapat menggunakan properti ini untuk menetapkan string identifikasi pada objek tanpa memengaruhi pengaturan propertinya yang lain atau mengakibatkan efek samping lainnya. Properti Tag akan berguna saat Anda perlu memeriksa identitas formulir, laporan, halaman akses data, bagian, atau kontrol yang diberikan sebagai variabel untuk suatu prosedur.

Contoh

Contoh berikut menggunakan properti Tag untuk menampilkan pesan kustom tentang kontrol pada formulir. Ketika kontrol memiliki fokus, teks deskriptif ditampilkan dalam kontrol label yang disebut lblMessage. Tentukan teks untuk pesan dengan mengatur properti Tag bagi setiap kontrol ke string teks pendek. Saat kontrol menerima fokus, properti Tag kontrol ditetapkan ke properti Caption kontrol label. Contoh ini menampilkan teks deskriptif untuk kotak teks bernama txtDescription dan tombol perintah bernama cmdButton pada formulir.

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
Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×