Anda sedang offline saat ini, menunggu internet Anda untuk menyambung kembali

Browser Anda tidak didukung

Anda perlu memperbarui browser untuk menggunakan situs ini.

Perbarui versi terbaru dari Internet Explorer

Cara membuat kotak kata kombo yang memiliki lebih dari 25 item dari Microsoft Access Database

PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.

Klik disini untuk melihat versi Inggris dari artikel ini:253542
Untuk versi Microsoft Word 97 artikel ini, lihat 253552.
RINGKASAN
Artikel ini menjelaskan cara membuat dan menggunakan kotak UserForm Combo sebagai catatan makro untuk teks bentuk lapangan untuk menampilkan informasi dari Microsoft Access database. Makro ini dapat digunakan sebagai solusi untuk pembatasan 25-item dalam kolom formulir drop-down.

Untuk informasi lebih lanjut tentang cara untuk melakukan hal ini ketika Anda tidak menggunakan Microsoft Access database, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
198561Cara membuat kotak combo yang berisi lebih dari 25 item
306258 Cara membuat kotak combo yang berisi lebih dari 25 item di Word 2002
INFORMASI LEBIH LANJUT
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 selengkapnya, klik nomor artikel berikut untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
212536Bagaimana menjalankan kode contoh dari artikel Basis Pengetahuan di Office 2000
Dalam template Anda, gunakan langkah-langkah berikut.

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

Membuat UserForm Combo Box

  1. Di Microsoft Office Word 2003 dan di verions sebelumnya, arahkan ke Makro pada Alat menu, dan kemudian klik Penyunting Visual Basic.

    Pada Word 2007, klik Pengembang tab, dan kemudian klik Penyunting Visual Basic
  2. Dalam Project jendela, pilih TemplateProject Anda.

    CATATAN: Jika Project jendela tidak muncul, klik Proyek Explorer pada Lihat menu.
  3. Pada Masukkan menu, klik UserForm. UserForm baru dan Kontrol Toolbox akan muncul. Klik kanan di dalam UserForm, lalu klik Lihat kode pada menu jalan pintas. Tambahkan kode berikut untuk Menginisialisasi acara:
    Option Explicit'Define VariablesPrivate Sub UserForm_Initialize()Dim dbDatabase As DatabaseDim rsNorthwind As RecordsetDim i As IntegerDim aResults()' This code activates the Database connection. Change ' the path to reflect your database.Set dbDatabase = OpenDatabase("C:\My Documents\NorthWind.mdb")' This code opens the Customers table.  Change the Table ' to reflect the desired table.Set rsNorthwind = dbDatabase.OpenRecordset("Customers", dbOpenSnapshot) i = 0    With rsNorthwind   ' This code populates the combo box with the values    ' in the CompanyName field.         Do Until .EOF         ComboBox1.AddItem (i)         ComboBox1.Column(0, i) = .Fields("CompanyName")         .MoveNext         i = i + 1      Loop   End WithEnd Sub					
  4. Pada Alat menu, klik Referensi.
  5. Klik Perpustakaan objek Microsoft DAO 3,6.
  6. Klik Oke untuk menutup Referensi kotak dialog.
  7. Tutup jendela kode.
  8. Klik kanan UserForm, lalu klik Properti pada menu jalan pintas. Pada Abjad tab, mengubah nama (nama) frmcombo, dan mengubah judul untuk Microsoft Word. Dekat UserForm properti jendela.
  9. Pada Kontrol tab toolbox, pilih ComboBox dan meletakkannya di UserForm Anda. Klik kanan ComboBox kontrol, dan kemudian klik Lihat kode pada menu jalan pintas. Mengubah kode ComboBox untuk:
    Private Sub ComboBox1_Change()   ActiveDocument.FormFields("Text1").Result = ComboBox1.ValueEnd Sub
    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.
  10. Tutup jendela kode.
  11. Pada Kontrol tab toolbox, pilih CommandButton dan meletakkannya pada formulir pengguna Anda sebagai Tutup tombol. Klik kanan CommandButton, lalu klik Lihat kode pada menu jalan pintas. Mengubah kode CommandButton untuk:
    Private Sub Cmdclose_Click()   EndEnd Sub					
  12. Tutup jendela kode.
  13. Klik kanan CommandButton, lalu klik Properti pada menu jalan pintas. Pada Abjad tab, mengubah nama (nama) Cmdclose, dan mengubah judul untuk Tutup. Dekat CommandButton properti jendela.
UserForm Combo box sekarang lengkap. Lanjutkan ke prosedur "Membuat the catatan makro".

Membuat catatan makro

  1. Di jendela proyek, pilih TemplateProject Anda.
  2. Pada Masukkan menu, klik Modul. Lembar kode kosong modul muncul.
  3. Ketik kode berikut:
    Sub gocombobox()   frmcombo.ShowEnd Sub					
Catatan makro sekarang lengkap. Pada Berkas menu, klik Menutup dan mengembalikan ke Microsoft Word.

Menciptakan lapangan bentuk teks

  1. Dalam template Anda, pada Lihat menu, titik Toolbar, lalu 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). The Bidang bentuk teks 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 bagian, pilih gocombobox makro dari Catatan: bernama combo box.

    CATATAN: Pastikan nama Bookmark bidang bentuk teks Anda adalah sama dengan yang Anda tentukan pada langkah 9 "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 di Word 2003 dan di verions sebelumnya, klik Baru pada Berkas menu. Pilih template Anda dan kemudian klik Oke.

Menggunakan template dalam Word 2007, klik Microsoft Office tombol, klik Baru, pilih template Anda, dan kemudian klik Buat.

Dokumen baru yang didasarkan pada template Anda muncul. UserForm yang berisi ComboBox dengan item Anda muncul ketika Anda menggunakan tombol TAB untuk bergerak ke bidang bentuk teks.
VB vba vbe pengguna bentuk wd2002 wd2003 wd2007

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 253542 - Tinjauan Terakhir: 09/23/2011 13:11:00 - Revisi: 4.0

  • Microsoft Office Word 2007
  • Microsoft Word 2002
  • Microsoft Word 2000
  • kbhowto kbprogramming kbmt KB253542 KbMtid
Tanggapan
>icrosoft.com/c.gif?DI=4050&did=1&t=">king = 1; var Route = "76500"; var Ctrl = ""; document.write(" >ion.protocol) + "//c.microsoft.com/ms.js'><\/script>");