כיצד ליצור תיבה משולבת Word המכיל יותר מ- 25 פריטים מתוך מסד נתונים של Microsoft Access

ב- Microsoft Office Word 2003 וב -verions קודמות, הצבע על מאקרו בתפריט כלים ולאחר מכן לחץ על עורך Visual Basic.

ב- Word 2007, לחץ על הכרטיסיה מפתחים ולאחר מכן לחץ על עורך Visual Basic

בחלון הפרוייקט , בחר TemplateProject שלך.

הערה: אם חלון הפרוייקט אינו מופיע, לחץ על Project Explorer בתפריט תצוגה .

בתפריט הוספה , לחץ על שגרה טופס משתמש. שגרה של טופס משתמש חדש ו- ארגז כלים של פקדים אמור להופיע. לחצו לחיצה ימנית בתוך שגרה טופס משתמשולאחר מכן לחץ על הצג קוד בתפריט הקיצור. הוסף את הקוד הבא כדי לאתחל את האירוע:

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

בתפריט כלים , לחץ על הפניות.

לחץ על Microsoft DAO 3.6 אובייקט ספריה.

לחץ על אישור כדי לסגור את תיבת הדו-שיח הפניות .

סגור את החלון קוד.

לחץ לחיצה ימנית על שגרה טופס משתמשולאחר מכן לחץ על מאפיינים בתפריט הקיצור. בכרטיסיה אלף-ביתי , שינוי שם (Name) כדי frmcomboולאחר מכן שנה שם כיתוב ל- Microsoft Word. סגור את חלון מאפייני שגרה טופס משתמש .

בכרטיסיה פקדים בארגז הכלים, בחר תיבה משולבת והנח אותו על שגרה טופס משתמש שלך. לחץ לחיצה ימנית על פקד תיבה משולבת ולאחר מכן לחץ על הצג קוד בתפריט הקיצור. שנה את קוד תיבה משולבת:

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

הערה: טקסט1 הוא שם סימניה שדה טופס מסוג טקסט שתוסיף לתוך התבנית בהליך שלב 2 "ליצור הטקסט שדה הטופס" במאמר זה.

סגור את החלון קוד.

בכרטיסיה פקדים בארגז הכלים, בחר CommandButton והנח אותו בטופס המשתמש כלחצן סגור . לחץ לחיצה ימנית על CommandButtonולאחר מכן לחץ על הצג קוד בתפריט הקיצור. שנה את קוד CommandButton:

Private Sub Cmdclose_Click()
   End
End Sub

סגור את החלון קוד.

לחץ לחיצה ימנית על CommandButtonולאחר מכן לחץ על מאפיינים בתפריט הקיצור. בכרטיסיה אלף-ביתי , שינוי שם (Name) כדי Cmdcloseולאחר מכן שנה שם כיתוב על סגור. סגור את חלון מאפייני CommandButton .

בחלון הפרוייקט, בחר TemplateProject שלך.

בתפריט הוספה , לחץ על מודול. גיליון ריק מודול קוד מופיע.

הקלד הקוד הבא:

Sub gocombobox()
   frmcombo.Show
End Sub

בתבנית שלך, בתפריט תצוגה , הצבע על סרגלי כליםולאחר מכן לחץ על טפסים.

מקם את נקודת הכניסה במקום בו ברצונך התוצאה של הרשימה הנפתחת שנוסף. בסרגל הכלים טפסים , לחץ על שדה טופס מסוג טקסט (הלחצן הראשון בצד שמאל). שדה טופס מסוג טקסט נוסף לתוך התבנית כ ההצללה האפורה.

הערה: אם אתה רואה את השדה { FORMTEXT} , הקש ALT + F9 כדי לבטל את קודי השדה.

לחץ לחיצה ימנית על שדה טופס מסוג טקסטולאחר מכן לחץ על מאפיינים בתפריט הקיצור.

בתיבת הדו-שיח אפשרויות שדה טופס מסוג טקסט , תחת המקטע הפעל מאקרו , בחר את המאקרו gocombobox ערך: בשם תיבה משולבת.


הערה: ודא כי שם הסימניה של שדה טופס מסוג טקסט שלך הוא זהה לזו שציינת בשלב 9 של הפרוצדורה "ליצור שגרה טופס משתמש תיבה משולבת" מוקדם יותר במאמר זה.

בסרגל הכלים טפסים , לחץ על הגן על טופס.

שמור וסגור את התבנית שלך.