WD2000: Cara membuat kotak Combo yang berisi lebih dari 25 item

Artikel ini menjelaskan cara membuat dan menggunakan kotak UserForm Combo sebagai makro entri untuk lapangan bentuk teks. Makro ini dapat digunakan sebagai solusi untuk pembatasan 25-item dalam kolom formulir drop-down.

CATATAN: Untuk informasi tambahan tentang cara untuk melakukan hal ini ketika Anda menggunakan Microsoft Access database, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.
Untuk informasi lebih lanjut tentang cara menggunakan kode contoh dalam artikel ini, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:Dalam template kata Anda, ikuti langkah berikut ini.

CATATAN: Untuk menutup jendela (misalnya, kode jendela atau jendela Properties), klik X di sudut kanan atas jendela.

Membuat UserForm Combo Box

1. Pada Alat menu, titik Makro kemudian klik Penyunting Visual Basic.
2. Dalam Proyek jendela, pilih TemplateProject Anda.
   
   CATATAN: Jika Proyek jendela tidak muncul, klik Proyek Explorer pada Lihat menu.
3. Pada Masukkan menu, klik UserForm. UserForm baru dan toolbox kontrol muncul. Klik kanan UserForm, dan kemudian klik Lihat kode. Tambahkan kode berikut

   Private Sub UserForm_Initialize()
   
     ComboBox1.ColumnCount = 1
   
     'Load data into ComboBox
   
     ComboBox1.List() = Array("Zero", "One", "Two", "Three")
   
   End Sub

   dan kemudian tutup jendela kode.
4. Klik kanan UserForm, dan kemudian klik Properti pada menu jalan pintas. Pada Abjad tab, mengubah nama (nama) frmcombo, dan mengubah judul untuk Microsoft Word. Dekat UserForm properti jendela.
5. Pada Kontrol tab toolbox, pilih ComboBox dan meletakkannya di UserForm Anda. Klik kanan ComboBox kontrol, dan kemudian klik Lihat kode pada menu jalan pintas. Untuk mengubah ComboBox kode berikut:

   Private Sub ComboBox1_Change()
   
      ActiveDocument.FormFields("Text1").Result = ComboBox1.Value
   
   End Sub
   						

   dan kemudian tutup jendela kode.
   
   CATATAN: Text1 adalah nama bookmark bidang bentuk teks yang Anda masukkan ke dalam template Anda dalam langkah 2 pada "Membuat the bentuk bidang teks" prosedur dari artikel ini.
6. Pada Kontrol tab toolbox, pilih CommandButton dan tempat itu pada Anda UserForm sebagai Tutup tombol. Klik kanan CommandButton kemudian klik Lihat kode pada menu jalan pintas. Untuk mengubah CommandButton kode berikut:

   Private Sub Cmdclose_Click()
   
     Unload Me
   
   End Sub
   						

   dan kemudian tutup jendela kode. Klik kanan CommandButton dan klik Properti pada menu jalan pintas. Pada Abjad tab, mengubah nama (nama) Cmdclose, dan mengubah judul untuk Tutup. Tutup jendela CommandButton properti.

UserForm Combo box sekarang lengkap. Lanjutkan ke prosedur "Membuat the catatan makro" untuk membuat entri makro.

Membuat catatan makro

1. Di jendela proyek, pilih TemplateProject Anda.
2. Pada Masukkan menu, klik Modul. Lembar kode modul kosong akan ditampilkan.
3. Ketik kode berikut:

   Sub gocombobox()
   
      frmcombo.Show
   
   End Sub
   					

Catatan makro sekarang lengkap. Pada Berkas menu, klik Menutup dan mengembalikan ke Microsoft Word. Lanjutkan ke prosedur "Membuat the bentuk bidang teks" untuk menciptakan lapangan bentuk dalam template kata Anda.

Menciptakan lapangan bentuk teks

1. Dalam template Anda, pada Lihat menu, titik Toolbar kemudian klik Bentuk.
2. Posisi titik penyisipan di mana Anda ingin hasil dari daftar drop-down yang dimasukkan. Pada Bentuk toolbar, klik Bidang bentuk teks (tombol pertama di sebelah kiri). Bidang bentuk teks akan dimasukkan ke dalam template Anda sebagai shading abu-abu.
   
   CATATAN: Jika Anda melihat {FORMTEXT} lapangan, tekan ALT + F9 mematikan kode lapangan.
3. Klik kanan Bidang bentuk teks, lalu klik Properti pada menu jalan pintas.
4. Dalam Teks bentuk lapangan pilihan dialog kotak, di bawah Menjalankan makro Klik tanda panah bawah di Catatan kotak, pilih gocombobox makro, dan kemudian klik Oke.
   
   CATATAN: Pastikan Nama bookmark dari Anda Bidang bentuk teks adalah sama seperti yang Anda tentukan pada langkah 4 "Membuat the UserForm Combo Box" prosedur sebelumnya dalam artikel ini.
5. Pada Bentuk toolbar, klik Melindungi bentuk.
6. Simpan dan tutup template Anda.

Menggunakan template Anda, klik Baru pada Berkas menu. Pilih template Anda dan kemudian klik Oke. Dokumen baru yang didasarkan pada template Anda muncul. UserForm mengandung ComboBox dengan item Anda akan ditampilkan ketika Anda menggunakan tombol TAB untuk bergerak ke Bidang bentuk teks.

Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use (http://go.microsoft.com/fwlink/?LinkId=151500) for other considerations.