Bir Microsoft Access veritabanından 25'ten fazla öğe bulunan bir Word birleşik giriş kutusu oluşturma

Microsoft Office Word 2003'te ve önceki verions, Araçlar menüsünden makro ' nun üzerine ve Visual Basic Düzenleyicisi' ni tıklatın.

Word 2007 ' de Geliştirici sekmesini tıklatın ve ardından Visual Basic Düzenleyicisi ' ni tıklatın

Proje penceresinde, TemplateProject seçin.

Not: Project Explorer Proje penceresi görünmüyorsa, Görünüm menüsünde tıklatın.

Ekle menüsünden UserFormtıklatın. Yeni bir UserForm ve Denetimleri Toolbox görünmelidir. UserFormsağ tıklatın ve kısayol menüsünde Kod Görüntüle'yi tıklatın. Initialize olayı için aşağıdaki kodu ekleyin:

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

Araçlar menüsünde Başvurular'ı tıklatın.

Microsoft DAO 3.6 Nesne Kitaplığı' nı tıklatın.

Başvurular iletişim kutusunu kapatmak için Tamam ' ı tıklatın.

Kod penceresini kapatın.

UserFormsağ tıklatın ve kısayol menüsünden Özellikler ' i tıklatın. Alfabetik sekmesinde, () frmcomboiçin yeniden adlandırın ve sonra Microsoft Word'ünresim yazısı olarak yeniden adlandırın. UserForm Properties penceresini kapatın.

Araç kutusu denetimleri sekmesinde, ComboBox ' ı seçin ve sizin UserForm yerleştirin. ComboBox denetimi sağ tıklatın ve kısayol menüsünde Kod Görüntüle'yi tıklatın. ComboBox kodla değiştirin:

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

Not: Metin1, bu makalenin "Oluşturmak Metin Form alanı" Adım 2 yordamı şablonunuza eklemek metin form alanı yer işaretinin adıdır.

Kod penceresini kapatın.

Araç kutusu denetimleri sekmesinde, KomutDüğmesi seçin ve kullanıcı formunda Kapat düğmesi olarak yerleştirin. KomutDüğmesisağ tıklatın ve kısayol menüsünde Kod Görüntüle'yi tıklatın. KomutDüğmesi kodla değiştirin:

Private Sub Cmdclose_Click()
   End
End Sub

Kod penceresini kapatın.

KomutDüğmesisağ tıklatın ve kısayol menüsünden Özellikler ' i tıklatın. Alfabetik sekmesinde, () Cmdcloseiçin yeniden adlandırın ve sonra resim yazısı Kapatiçin yeniden adlandırın. KomutDüğmesi Properties penceresini kapatın.

Proje penceresinde, TemplateProject seçin.

Ekle menüsünde Modül'e tıklayın. Boş modülü kod sayfası görüntülenir.

Aşağıdaki kodu yazın:

Sub gocombobox()
   frmcombo.Show
End Sub

Şablonunuz Görünüm menüsünde araç çubukları' ı işaret ve Formlar' ı tıklatın.

Sonucu eklenen aþaðý açýlan listesinden, istediğiniz yere ekleme noktasını yerleştirin. Formlar araç çubuğunda Metin Form alanı (soldaki ilk düğmesi) tıklatın. Metin Form alanı olarak gri gölgelendirmeyi şablonunuza eklenir.

Not: {FORMTEXT} alan görürseniz, alan kodlarını kapatmak için ALT + F9 tuşlarına basın.

Metin Form alanısağ tıklatın ve kısayol menüsünden Özellikler ' i tıklatın.

Metin Form alanı seçenekleri iletişim kutusunda, makroyu Çalıştır bölümü altında gocombobox makroyu seçin girişi: adlı açılan kutu.


Not: Bu makalenin yukarısındaki "Oluşturmak UserForm birleşik giriş kutusu" yordamın 9. adımda belirtilen aynı, metin form alanı yer işareti adı olduğundan emin olun.

Formlar araç çubuğunda Formu Koruseçeneğini tıklatın.

Kaydedin ve kapatın, şablon.