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

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 253542 - Melihat produk di mana artikel ini berlaku.
Untuk versi Microsoft Word 97 artikel ini, lihat 253552.
Perbesar semua | Perkecil semua

Pada Halaman ini

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 Variables
    
    Private Sub UserForm_Initialize()
    
    Dim dbDatabase As Database
    Dim rsNorthwind As Recordset
    Dim i As Integer
    Dim 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 With
    End 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.Value
    End 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()
       End
    End 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.Show
    End 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.

Properti

ID Artikel: 253542 - Kajian Terakhir: 23 September 2011 - Revisi: 4.0
Berlaku bagi:
  • Microsoft Office Word 2007
  • Microsoft Word 2002
  • Microsoft Word 2000
Kata kunci: 
kbhowto kbprogramming kbmt KB253542 KbMtid
Penerjemahan Mesin
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

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com