Làm thế nào để tạo một hộp tổ hợp từ có hơn 25 mục từ cơ sở dữ liệu Microsoft Access

Trong Microsoft Office Word 2003 và trước verions, trỏ tới Macro trên menu công cụ , và sau đó bấm Visual Basic Editor.

Trong Word 2007, bấm vào tab nhà phát triển , và sau đó bấm Visual Basic Editor

Trong cửa sổ Project , chọn TemplateProject của bạn.

Chú ý: nếu cửa sổ dự án xuất hiện, nhấp vào Dự án Explorer menu xem .

Trên menu chèn , nhấp vào UserForm. UserForm mới và Điều khiển công cụ sẽ xuất hiện. Bấm chuột phải vào UserFormrồi sau đó bấm Xem mã trên menu lối tắt. Thêm mã sau vào sự kiện khởi tạo :

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

Trên menu Công cụ, bấm vào Tham chiếu.

Nhấp vào Microsoft DAO 3.6 đối tượng thư viện.

Bấm OK để đóng hộp thoại Tài liệu tham khảo.

Đóng cửa sổ mã.

Bấm chuột phải vào UserForm, và sau đó bấm thuộc tính lối tắt menu. Trên tab chữ , đổi tên (Name) thành frmcombo, và sau đó đổi tên tiêu đề cho Microsoft Word. Đóng cửa sổ Thuộc tính UserForm .

Trên tab điều khiển công cụ, chọn ComboBox và đặt nó vào UserForm của bạn. Bấm chuột phải vào ComboBox điều khiển rồi sau đó bấm Xem mã trên menu lối tắt. Thay đổi mã ComboBox:

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

Chú ý: Text1 là đánh dấu tên trường mẫu văn bản mà bạn nhập vào mẫu của bạn trong bước 2 của "Tạo các trường văn bản biểu mẫu" quy trình trong bài viết này.

Đóng cửa sổ mã.

Trên tab điều khiển công cụ, chọn CommandButton và đặt nó trên biểu mẫu sử dụng như một nút đóng . Bấm chuột phải vào CommandButtonrồi sau đó bấm Xem mã trên menu lối tắt. Thay đổi mã CommandButton:

Private Sub Cmdclose_Click()
   End
End Sub

Đóng cửa sổ mã.

Bấm chuột phải vào CommandButton, và sau đó bấm thuộc tính lối tắt menu. Trên tab chữ đổi (tên) để Cmdclose, và sau đó đổi tên tiêu đề để đóng. Đóng cửa sổ Thuộc tính CommandButton .

Trong cửa sổ Project, chọn TemplateProject của bạn.

Trên menu Chèn, bấm vào Mô đun. Một trang mã mô-đun trống xuất hiện.

Nhập mã sau đây:

Sub gocombobox()
   frmcombo.Show
End Sub

Trong mẫu của bạn, trên menu xem , trỏ chuột vào thanh công cụ, và sau đó bấm vào biểu mẫu.

Vị trí của điểm chèn nơi bạn muốn kết quả danh sách thả xuống cho. Trên thanh công cụ mẫu , bấm Trường biểu mẫu văn bản (nút đầu tiên bên trái). Trường biểu mẫu văn bản được chèn vào mẫu của bạn là màu xám bóng.

Chú ý: nếu bạn thấy trường {}FORMTEXT} , nhấn ALT + F9 để tắt mã trường.

Bấm chuột phải vào Trường biểu mẫu văn bảnvà sau đó bấm thuộc tính lối tắt menu.

Trong hộp thoại Tuỳ chọn trường biểu mẫu văn bản , trong phần chạy macro , chọn macro gocombobox từ các nhập: tên hộp tổ hợp.


Lưu ý: đảm bảo rằng tên trường mẫu văn bản của bạn là giống như bạn đã chỉ định trong bước 9 quy "Tạo các UserForm hộp tổ hợp" trước đó trong bài viết này.

Trên thanh công cụ mẫu , bấm vào Hình thức bảo vệ.

Lưu và đóng mẫu của bạn.