किसी Microsoft Access डेटाबेस से 25 से अधिक आइटम हैं जो Word कॉम्बो बॉक्स बनाने के लिए कैसे


किसी Microsoft Word 97 के संस्करण के लिए इस आलेख के, 253552 देखें।

सारांश


यह आलेख बताता है कि कैसे बनाएँ और किसी UserForm कॉम्बो बॉक्स एक पाठ प्रपत्र फ़ील्ड के लिए एक प्रविष्टि मैक्रो के रूप में किसी Microsoft Access डेटाबेस से जानकारी को दिखाने के लिए उपयोग करने के लिए। इस मैक्रो एक वैकल्पिक हल के रूप में 25-आइटम की सीमा में ड्रॉप-डाउन प्रपत्र फ़ील्ड के लिए उपयोग किया जा सकता है।

जब आप किसी Microsoft Access डेटाबेस का उपयोग नहीं कर रहे हैं, तो यह ऐसा कैसे करें के बारे में अधिक जानकारी के लिए Microsoft नॉलेज़ बेस में आलेख देखने के लिए निम्न आलेख संख्याएँ क्लिक करें:

198561 25 से अधिक आइटम वाले कॉम्बो बॉक्स बनाने के लिए कैसे

306258 Word 2002 में 25 से अधिक आइटम वाले कॉम्बो बॉक्स बनाने के लिए कैसे

अधिक जानकारी


Microsoft प्रोग्रामिंग उदाहरण केवल चित्रण के लिए वारंटी के बिना, या तो व्यक्त या नहीं देता है। यह शामिल है, लेकिन करने के लिए, बिक्री या किसी विशेष उद्देश्य के लिए उपयुक्तता की अव्यक्त वॉरंटी तक सीमित नहीं है। यह आलेख मानता है कि आप वर्णन किया जा रहा है प्रोग्रामिंग भाषा के साथ और बनाने के लिए और प्रक्रियाएँ डीबग करने के लिए उपयोग किए जाने वाले उपकरणों के साथ परिचित हैं। Microsoft समर्थन इंजीनियर एक विशेष कार्यविधि की कार्यप्रणाली को समझाने में सहायता कर सकते हैं, लेकिन वे इन उदाहरणों कार्यक्षमता जोड़ देने या आपकी विशिष्ट आवश्यकताओं को पूरा करने के लिए कार्यविधियाँ कार्यप्रणालियों के लिए संशोधित नहीं करेंगे।
अधिक जानकारी के लिए Microsoft नॉलेज़ बेस में आलेख देखने के लिए निम्न आलेख संख्या पर क्लिक करें:

212536 ज्ञानकोष आलेखों में Office 2000 से नमूना कोड को चलाने के लिए कैसे

अपने टेम्पलेट में निम्न चरणों का उपयोग करें।

नोट: करने के लिए, विंडो के ऊपरी-दाएँ कोने में X पर क्लिक करें (उदाहरण के लिए, कोई कोड विंडो या गुण विंडो) विंडो बंद करें।

UserForm कॉम्बो बॉक्स बनाएँ

  1. Microsoft Office Word 2003 और पूर्व verions में, उपकरण मेनू पर मैक्रो को इंगित करें, और उसके बाद Visual Basic संपादकक्लिक करें।

    Word 2007 में, डेवलपर टैब क्लिक करें, और उसके बाद Visual Basic संपादक क्लिक करें.
  2. परियोजना विंडो में, अपने TemplateProject का चयन करें।

    नोट: प्रोजेक्ट विंडो प्रकट नहीं होता है, तो प्रोजेक्ट एक्स्प्लोरर दृश्य मेनू पर क्लिक करें।
  3. UserForm सम्मिलित करें मेनू पर, क्लिक करें। कोई नया UserForm और नियंत्रण उपकरण बॉक्स दिखाई देना चाहिए। UserFormके अंदर राइट-क्लिक करें, और तब शॉर्टकट मेनू पर दृश्य कोड क्लिक करें। प्रारंभ इवेंट में निम्न कोड जोड़ें:
    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. UserFormराइट-क्लिक करें, और तब शॉर्टकट मेनू पर गुण क्लिक करें। Alphabetic टैब पर, (नाम) का नाम बदलें frmcomboकरने के लिए, और उसके बाद Microsoft Wordसे कैप्शन का नाम बदलें। UserForm गुण विंडो को बंद करें।
  9. उपकरण बॉक्स से नियंत्रण टैब पर, कॉम्बो बॉक्स का चयन करें और उसे अपने UserForm पर रखें। कॉम्बो बॉक्स नियंत्रण पर राइट-क्लिक करें, और तब शॉर्टकट मेनू पर दृश्य कोड क्लिक करें। कॉम्बो बॉक्स के लिए कोड परिवर्तित करें:

    Private Sub ComboBox1_Change()
    ActiveDocument.FormFields("Text1").Result = ComboBox1.Value
    End Sub
    नोट: Text1 है जो इस आलेख के "बनाएँ पाठ प्रपत्र फ़ील्ड" के चरण 2 प्रक्रिया में अपने टेम्पलेट में सम्मिलित पाठ प्रपत्र फ़ील्ड का बुकमार्क नाम है।
  10. कोड विंडो बंद करें।
  11. उपकरण बॉक्स से नियंत्रण टैब पर, CommandButton का चयन करें, और उसे बंद करें बटन के रूप में आपके उपयोगकर्ता प्रपत्र पर रखें। CommandButtonपर राइट-क्लिक करें, और तब शॉर्टकट मेनू पर दृश्य कोड क्लिक करें। CommandButton कोड के लिए परिवर्तित करें:
    Private Sub Cmdclose_Click()
    End
    End Sub
  12. कोड विंडो बंद करें।
  13. CommandButtonपर राइट-क्लिक करें, और तब शॉर्टकट मेनू पर गुण क्लिक करें। Alphabetic टैब पर, (नाम) का नाम बदलें करने के लिए Cmdclose, और उसके बाद कैप्शन बंदकरने के लिए का नाम बदलें। CommandButton गुण विंडो को बंद करें।
अब UserForm कॉम्बो बॉक्स पूर्ण है। "प्रविष्टि मैक्रो बनाएँ" प्रक्रिया करने के लिए आगे बढ़ें।

प्रविष्टि मैक्रो बनाएँ

  1. परियोजना विंडो में, अपने TemplateProject का चयन करें।
  2. सम्मिलित करें मेनू पर, मॉड्यूलक्लिक करें। किसी रिक्त मॉड्यूल कोड पत्रक प्रकट होता है।
  3. में निम्न कोड टाइप करें:
    Sub gocombobox()
    frmcombo.Show
    End Sub
प्रविष्टि मैक्रो अब पूर्ण है। फ़ाइल मेनू पर, बंद करें और Microsoft Word के लिए वापस जाएँक्लिक करें।

पाठ प्रपत्र फ़ील्ड बनाएँ

  1. दृश्य मेनू पर, अपने टेम्पलेट में उपकरण पट्टियोंको इंगित करें, और उसके बाद प्रपत्रक्लिक करें।
  2. जहाँ आप चाहते हैं ड्रॉप-डाउन सूची सम्मिलित का परिणाम आपके सम्मिलन बिंदु रखें। प्रपत्र उपकरण पट्टी पर, पाठ प्रपत्र फ़ील्ड (प्रथम बटन बाईं ओर) क्लिक करें। पाठ प्रपत्र फ़ील्ड अपने टेम्पलेट में ग्रे छायाप्रभाव के रूप में सम्मिलित किया गया है।

    नोट: {} FORMTEXT फ़ील्ड देखते हैं, तो फ़ील्ड कोड्स को बंद करने के लिए ALT + F9 दबाएँ।
  3. पाठ प्रपत्र फ़ील्डराइट-क्लिक करें, और तब शॉर्टकट मेनू पर गुण क्लिक करें।
  4. पाठ प्रपत्र फ़ील्ड विकल्प संवाद बॉक्स में, उस मैक्रो को चलाने अनुभाग के अंतर्गत से gocombobox मैक्रो का चयन करें प्रविष्टि: कॉम्बो बॉक्स नाम दिया है।


    नोट: सुनिश्चित करें कि आपके पाठ प्रपत्र फ़ील्ड का बुकमार्क नाम है एक "बनाएँ UserForm कॉम्बो बॉक्स" प्रक्रिया इस आलेख में पहले से चरण 9 में निर्दिष्ट के समान है।
  5. सुरक्षा प्रपत्र प्रपत्र उपकरण पट्टी पर, क्लिक करें।
  6. सहेजें और अपने टेम्पलेट को बंद करें।
Word 2003 और पूर्व verions में टेम्पलेट का उपयोग करने के लिए, फ़ाइल ' मेनू पर नया क्लिक करें। अपने टेम्पलेट का चयन करें, और उसके बाद ठीकक्लिक करें।

Word 2007 में टेम्पलेट का उपयोग करने के लिए, Microsoft Office बटनक्लिक करें, नयाक्लिक करें, अपने टेम्पलेट का चयन करें, और तब बनाएँक्लिक करें।

अपने टेम्पलेट पर आधारित नया दस्तावेज़ दिखाई देता है। जब आप पाठ प्रपत्र फ़ील्ड में ले जाने के लिए TAB कुंजी का उपयोग करते हैं जिसमें आपके आइटम के साथ कॉम्बो बॉक्स UserForm प्रकट होता है।