Sign in with Microsoft
New to Microsoft? Create an account.

עבור גירסת Microsoft Word 97 של מאמר זה, ראה 253552.

סיכום

מאמר זה מתאר כיצד ליצור ולהשתמש תיבה משולבת שגרה טופס משתמש בשם למאקרו ערך עבור שדה טופס מסוג טקסט כדי להציג מידע מתוך מסד נתונים של Microsoft Access. מאקרו זה יכול לשמש כדרך לעקיפת הבעיה עבור הגבלה 25 פריטים בשדות טופס מסוג רשימה נפתחת.

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

198561 כיצד ליצור תיבה משולבת המכילה יותר מ- 25 פריטים

306258 כיצד ליצור תיבה משולבת המכילה יותר מ- 25 פריטים ב- Word 2002

מידע נוסף

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

212536 כיצד להפעיל קוד לדוגמה מתוך מאמרי מאגר ידע ב- Office 2000

בתבנית שלך, בצע את הפעולות הבאות.

הערה: כדי לסגור חלון (לדוגמה, חלון קוד או בחלון מאפיינים ), לחץ על ה- X בפינה הימנית העליונה של החלון.

צור את התיבה המשולבת שגרה טופס משתמש

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

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

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

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

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

    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
  4. בתפריט כלים , לחץ על הפניות.

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

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

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

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

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

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

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

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

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

    Private Sub Cmdclose_Click()
    End
    End Sub
  12. סגור את החלון קוד.

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

התיבה המשולבת שגרה טופס משתמש הושלמה כעת. להמשיך ההליך "ליצור המאקרו ערך".

צור מאקרו ערך

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

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

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

    Sub gocombobox()
    frmcombo.Show
    End Sub

המאקרו ערך הושלמה כעת. בתפריט קובץ , לחץ על סגור וחזור ל- Microsoft Word.

צור את שדה טופס מסוג טקסט

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

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

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

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

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


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

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

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

כדי להשתמש בתבנית ב- Word 2003 וב -verions קודמות, לחץ על חדש בתפריט קובץ . בחר את התבנית שלך ולאחר מכן לחץ על אישור.

כדי להשתמש בתבנית ב- Word 2007, לחץ על לחצן Microsoft Office, לחץ על חדש, בחר את התבנית שלך ולאחר מכן לחץ על צור.

מסמך חדש המבוסס על התבנית שלך מופיע. שגרה טופס משתמש המכילה תיבה משולבת עם הפריטים שלך מופיעה בעת השימוש במקש TAB כדי לעבור שדה טופס מסוג טקסט.

זקוק לעזרה נוספת?

הרחב את הכישורים שלך
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Microsoft insider

האם מידע זה היה שימושי?

עד כמה אתם מרוצים מאיכות השפה?
מה השפיע על החוויה שלכם?

תודה על המשוב!

×