वीबीए (माइक्रोसॉफ्ट एक्सेस)

Question

में लेबल की 'कैप्शन' संपत्ति का एक हिस्सा बोल्ड करें, मैं माइक्रोसॉफ्ट एक्सेस लेबल के कैप्शन में एक निश्चित शब्द कैसे बोल्ड करूं?

यदि यह मदद करता है, तो टेक्स्ट स्वयं माइक्रोसॉफ्ट एक्सेस टेबल में संग्रहीत होता है।

एक उदाहरण नीचे दिया गया है।

Private Sub Form_Load() 

    Me.Label0.Caption = DLookup("Field1", "Table1", "[ID] = 1") 

End Sub 

मेरे पाठ इस प्रकार है के रूप में:

मैं एक लेबल के साथ एक माइक्रोसॉफ्ट एक्सेस फार्म, Form_Load() स्थिति में मैं मूल्य इतना की तरह एक DLookup क्वेरी में लौटे करने के लिए इस लेबल के शीर्षक गुण सेट है

जल्दी भूरी लोमड़ी आलसी कुत्ते

मैं शब्द लेज़ी प्रोत्साहित करना चाहते हैं पर कूदता है। क्या यह संभव है? यदि हां, तो मैं यह कैसे करूँ?

धन्यवाद

Answer 1

आप पहुँच के संस्करण, 2007 (AFAIK) और 2010 के लिए उल्लेख नहीं है, तो आप एक पाठ बॉक्स बना सकते हैं और रिच टेक्स्ट के लिए डेटा टैब पर टेक्स्ट फ़ॉर्मेट सेट कर सकते हैं। जैसे लॉक किया गया और सक्रिय कुछ और गुण,

="The quick <b>brown</b> fox" 

बदलें और आप एक पाठ बॉक्स है कि लग रहा है और एक लेबल की तरह काम करता है: फिर आप को नियंत्रण स्रोत सेट कर सकते हैं।

Answer 2

आप इसे कितना बुरा चाहते हैं? क्योंकि मेरे पास वास्तव में पागल जवाब है, लेकिन यह काम कर सकता है।

अपने लेबल को वेब ब्राउज़र नियंत्रण के साथ बदलें, एक अस्थायी HTML फ़ाइल बनाएं, फिर उस पर वेब ब्राउज़र इंगित करें। आपको अंतर्निहित तालिका (या कम से कम मैंने किया) में एक फ़ील्ड जोड़ने की आवश्यकता होगी क्योंकि नियंत्रण को बाध्य किया जाना चाहिए या आप नियंत्रण स्रोत को नहीं बदल सकते - मुझे लगता है।

मैंने एक फॉर्म पर एक वेब ब्राउज़र नियंत्रण डाला, स्क्रॉलबार बंद कर दिया, और आम तौर पर इसे लेबल की तरह दिखने की कोशिश की। मुझे इसके साथ पूरी सफलता नहीं मिली, लेकिन शायद आप मुझसे बेहतर हो।

मैंने "FakeLabel" नामक मेरी तालिका में एक टेक्स्ट फ़ील्ड जोड़ा। वेब ब्राउज़र नियंत्रण स्रोत उस क्षेत्र को इंगित करना चाहिए।

परीक्षण के प्रयोजनों के लिए, मैं एक CommandButton प्रपत्र पर इस कोड

Private Sub Command113_Click() 

    Dim sFile As String 
    Dim lFile As String 

    sFile = Environ("TEMP") & "\fakelabel.html" 
    lFile = FreeFile 

    Open sFile For Output As lFile 

    Write #lFile, "The <strong>quick</strong> brown fox jumped over the <em>lazy</em> dog" 

    Close lFile 

    Me.Recordset.Edit 
    Me.Recordset.Fields("FakeLabel").Value = sFile 
    Me.Recordset.Update 

    Me.WebBrowser112.Requery 

End Sub 

साथ डाल यहाँ यह कैसा बाद मैं बटन पर क्लिक करें लग रहा है। यदि आप उस शीर्ष पैडिंग से छुटकारा पा सकते हैं, तो यह वास्तव में एक लेबल की तरह दिख सकता है।