Berlaku untuk
|
Objek BoundObjectFrame |
Objek Gambar |
Objek OptionButton |
Objek SubForm |
|
Objek CheckBox |
Objek Label |
Objek OptionGroup |
Kumpulan TabControl |
|
Objek ComboBox |
Objek Line |
Objek Page |
Objek TextBox |
|
Objek CommandButton |
Objek ListBox |
Objek PageBreak |
Objek ToggleButton |
|
Objek CustomControl |
Objek ObjectFrame |
Objek Rectangle |
Anda dapat menggunakan properti IsVisible dalam kode Visual Basic for Applications (VBA) untuk menentukan apakah kontrol pada laporan dapat dilihat. Boolean baca/tulis.
ekspresi.IsVisible
ekspresi Diperlukan. Ekspresi yang mengembalikan salah satu objek dalam daftar Berlaku Untuk.
Keterangan
Properti IsVisible menggunakan pengaturan berikut ini.
|
Pengaturan |
Deskripsi |
|
True |
(Default) Kontrol dapat dilihat. |
|
False |
Kontrol tidak dapat dilihat. |
Catatan: Anda dapat mengatur properti IsVisible hanya dalam aktivitas Cetak pada bagian laporan yang berisi kontrol.
Anda dapat menggunakan properti IsVisible bersama properti HideDuplicates untuk menentukan kapan kontrol pada laporan dapat dilihat, serta memperlihatkan atau menyembunyikan kontrol lain sebagai hasilnya. Misalnya, Anda dapat menyembunyikan kontrol baris saat kontrol kotak teks disembunyikan karena kontrol berisi nilai duplikat.
Contoh
Contoh berikut menggunakan properti IsVisible dari kotak teks untuk mengontrol tampilan kontrol baris pada laporan. Laporan didasarkan pada tabel Produk dan menggunakan tiga kontrol dengan properti berikut.
|
Properti |
Kontrol baris |
Kotak teks #1 |
Kotak teks #2 |
|
Name |
Line0 |
IDKategori |
NamaProduk |
|
ControlSource |
IDKategori |
NamaProduk |
|
|
HideDuplicates |
Ya |
Tidak |
|
|
Left |
0 |
0 |
2.0 |
|
Top |
0 |
.1 |
.1 |
|
Width |
4.0 |
1.0 |
1.0 |
Tempelkan kode berikut ke dalam bagian Pernyataan modul laporan, lalu tampilkan laporan untuk melihat pemformatan baris yang dikontrol oleh properti IsVisible:
Private Sub Detail_Print(Cancel As Integer, _
PrintCount As Integer)
If Me!CategoryID.IsVisible Then
Me!Line0.Visible = True
Else
Me!Line0.Visible = False
End If
End Sub
