Berlaku untuk
Objek BoundObjectFrame |
Objek Gambar |
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 Persegi |
Objek ToggleButton |
Objek CustomControl |
Objek ObjectFrame |
Objek Report |
|
Objek Formulir |
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. 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