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

Di Microsoft Office Word 2003 dan verions sebelumnya, arahkan ke makro pada menu alat , dan kemudian klik Penyunting Visual Basic.

Di Word 2007, klik tab pengembang , dan kemudian klik Penyunting Visual Basic

Di jendela proyek , pilih TemplateProject Anda.

Catatan: jika jendela proyek tidak muncul, klik Proyek Explorer menu tampilan .

Masukkan menu, klik UserForm. UserForm baru dan Toolbox kontrol akan ditampilkan. Klik kanan di dalam UserForm, dan kemudian klik Lihat kode pada menu jalan pintas. Tambahkan kode berikut ini untuk menginisialisasi peristiwa:

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

Pada menu alat , klik referensi.

Klik Microsoft DAO Perpustakaan objek 3.6.

Klik OK untuk menutup kotak dialog referensi .

Tutup jendela kode.

Klik kanan UserForm, dan kemudian klik properti pada menu jalan pintas. Pada tab abjad , ganti nama (nama) untuk frmcombo, dan kemudian ganti judul untuk Microsoft Word. Tutup jendela Properti UserForm .

Pada tab toolbox kontrol , pilih ComboBox dan menempatkannya di UserForm Anda. Klik kanan kontrol ComboBox , dan kemudian klik Lihat kode pada menu jalan pintas. Ubah kode ComboBox untuk:

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

Catatan: Text1 adalah nama Bookmark bidang formulir teks yang Anda masukkan ke template Anda dalam langkah 2 "Membuat formulir bidang teks" prosedur dari artikel ini.

Tutup jendela kode.

Pada tab toolbox kontrol , pilih CommandButton dan menempatkannya di formulir pengguna sebagai tombol tutup . Klik kanan CommandButton, dan kemudian klik Lihat kode pada menu jalan pintas. Ubah kode CommandButton untuk:

Private Sub Cmdclose_Click()
   End
End Sub

Tutup jendela kode.

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

Di jendela proyek, pilih TemplateProject Anda.

Pada menu Sisipkan, klik Modul. Kode lembar modul kosong akan ditampilkan.

Ketik kode berikut ini:

Sub gocombobox()
   frmcombo.Show
End Sub

Dalam template Anda, pada menu tampilan , arahkan ke Toolbar, dan kemudian klik bentuk.

Posisi titik penyisipan mana Anda ingin hasil dari daftar drop-down dimasukkan. Formulir , klik Bidang formulir teks (tombol pertama di sebelah kiri). Bidang formulir teks dimasukkan ke dalam template Anda sebagai pembayangan abu-abu.

Catatan: jika Anda melihat kolom {FORMTEXT} , tekan ALT + F9 untuk mematikan kode bidang.

Klik kanan Bidang formulir teks, dan kemudian klik properti pada menu jalan pintas.

Di kotak dialog Opsi bidang teks formulir , di bawah bagian menjalankan makro di , pilih makro gocombobox dari entri: bernama kotak kombo.


Catatan: Pastikan nama Bookmark kolom formulir teks yang sama seperti yang Anda tentukan di langkah 9 prosedur "Membuat UserForm kotak kombo" sebelumnya dalam artikel ini.

Formulir , klik Melindungi bentuk.

Simpan dan tutup template Anda.