Bu makalenin Microsoft Word 97 sürümü için bkz: 253552.
Özet
Bu makalede nasıl oluşturulacağı ve UserForm birleşik giriş kutusunun metin form alanı için bir giriş makro bir Microsoft Access veritabanından gelen bilgileri göstermek için kullanın. Bu makro, 25 öğe sınırlaması açılır form alanları için geçici bir çözüm olarak kullanılabilir.
Bir Microsoft Access veritabanını kullanırken değil, bunun nasıl yapılacağı hakkında daha fazla bilgi için Microsoft Bilgi Bankası'ndaki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
198561 25'den fazla öğe içeren bir birleşik giriş kutusu oluşturmak nasıl
Word 2002'de 25'ten fazla öğe içeren bir birleşik giriş kutusu oluşturmak 306258 nasıl
Daha fazla bilgi
Microsoft, programlama örneklerini yalnızca gösterim amacıyla zımni veya açık garanti olmadan sağlar. Bu, satılabilirlik veya belirli bir amaca uygunluk açısından zımni garantileri içerir ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini, yordamları oluşturmak ve yordamlardan hata ayıklamak için kullanılan araçları bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilirler, ancak ilave işlevsellik sağlamak için bu örnekleri değiştirmezler veya belirli gereksinimlerinizi karşılayacak şekilde yordamları yapılandırmazlar.
Daha fazla bilgi için Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasına tıklayın:
212536 Bilgi Bankası makalelerinden Office 2000'deki örnek kodu çalıştırmak nasıl
Şablonunuzda, aşağıdaki adımları kullanın.
Not: (örneğin, kod penceresi veya Properties penceresinde) bir pencereyi kapatmak için pencerenin sağ üst köşesindeki X tıklatın.
UserForm 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.
UserForm birleşik giriş kutusu artık tamamlanmıştır. "Giriş makro oluşturmak" yordama devam edin.
Giriş makro oluşturma
-
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
Giriş makro artık tamamlanmıştır. Dosya menüsünde Kapat ve Microsoft Word'e Dön'ıtıklatın.
Metin Form alanı oluşturma
-
Ş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.
Word 2003'te ve önceki verions şablonu kullanmak için Dosya menüsünde Yeni'yi tıklatın. Şablonunuzu seçin ve Tamam' ı tıklatın.
Şablon, Word 2007'de kullanmak için Microsoft Office düğmesinitıklatın, Yeni' yi tıklatın, şablonu seçin ve Oluştur' u tıklatın.
Şablonunuzu temel alan yeni bir belge görüntülenir. ComboBox ile öğelerinizi içeren UserForm görünür metin form alanı taşımak için SEKME tuşunu kullanın.