Bagaimana cara mencetak konten ListBox VBA

Pengarang: Monica Porter
Tanggal Pembuatan: 20 Berbaris 2021
Tanggal Pembaruan: 21 November 2024
Anonim
Listbox data Printout Userform Excel VBA
Video: Listbox data Printout Userform Excel VBA

Isi

Mencetak konten dari Visual Basic for Applications (VBA) ListBox dapat membantu Anda melihat konten kontrol saat men-debug kesalahan program. VBA dapat digunakan dalam aplikasi Microsoft Office apa pun, termasuk Access. ListBox biasanya digunakan di Access untuk memberikan opsi klasifikasi data tambahan kepada pengguna. Gunakan properti ItemData untuk mengakses item di dalam kotak, menentukan nomor baris, dan menampilkannya melalui jendela Immediate.


Instruksi

Menulis Program VBA di Access (Hemera Technologies / AbleStock.com / Getty Images)
  1. Buka Microsoft Access, klik tab Create dan klik "Form Design" untuk membuat form baru. Klik Daftar Kotak di panel Kontrol dan klik formulir untuk menambahkan kotak kombo baru. Klik Tombol untuk menambahkan tombol baru. Tambahkan tombol lain menggunakan proses yang sama.

  2. Klik kanan tombol pertama dan klik Properties. Klik tab Acara, pilih "[Prosedur Acara]" dan klik elips untuk membuat acara untuk tombol itu.

  3. Tambahkan kode berikut dalam acara klik tombol untuk menambahkan empat item ke kotak:

    Me.List0.AddItem ("item 2") Me.List0.AddItem ("item 3") Me.List0.AddItem ("item 2") Me.List0.AddItem ("item 1" item 4 ")

  4. Kembali ke Microsoft Access dan klik kanan tombol pertama. Klik Properties dan klik tab Event, pilih "[Prosedur Acara]" dan klik pada elips untuk membuat event klik untuk tombol itu.


  5. Tambahkan kode berikut untuk mencetak konten ListBox di jendela Immediate:

    Dim X Untuk X = 0 Sampai 3 Debug.Print (Me.List0.ItemData (X)) Berikutnya X

  6. Kembali ke Microsoft Access dan klik "Pratinjau" untuk membuka formulir. Klik tombol pertama untuk mengisi kontrol ListBox; klik tombol kedua untuk mencetak konten di jendela Immediate.

Apa yang kamu butuhkan

  • Microsoft Access

Kisah tentang helm Romawi

John Stephens

November 2024

Keberadaan tentara Romawi udah lebih dari 1200 tahun. Ini dimulai ebagai milii amatir di ebuah kota di Italia tengah, tetapi menjadi tentara profeional bertandar pertama di dunia di bawah reimen Caear...

Cara Menggunakan Pemotong Segel Botol

John Stephens

November 2024

Awalnya, topi timah diterapkan pada tutup botol anggur untuk mencegah tiku dan erangga menggerogoti atau menuuk melalui gabu, ehingga piau digunakan untuk memotong egel. aat ini, bagaimanapun, laminai...

Baca Hari Ini