2015-10-10 10 views
8

मेरे पास एक फॉर्म पर एक combobox है और मैं डेटाबेस डेटाबेस पर अपनी SQL क्वेरी चलाने के बाद प्रोग्रामेटिक रूप से combobox में से किसी एक आइटम का चयन करने की कोशिश कर रहा हूँ।त्रुटि 2115 combobox चयन

'Make the appropriate location appear in the combobox 
For i = 0 To cboLocations.ListCount - 1 
    If Me.cboLocations.Column(0, i) = locindex Then 
    Debug.Print "locindex: " & locindex & vbCrLf & " Me.cboLocations.Column(0, i):" & Me.cboLocations.Column(0, i) 
    Me.cboLocations.SetFocus 
    Me.cboLocations.ListIndex = i '<<< error 2115 
    Exit For 
    End If 
Next i 

के रूप में दर्शाया गया है, मैं त्रुटि 2115 बार आ रही है: मैक्रो या समारोह इस क्षेत्र के लिए BeforeUpdate या ValidationRule प्रॉपर्टी पर सेट रोकने पहुंच है मैं से अधिक आइटम पुनरावृति और चयनित आइटम स्थापित करने के लिए निम्नलिखित कोड का उपयोग क्षेत्र में डेटा को बचाने से।

त्रुटि संदेश में इंगित इस combobox के गुणों में से कोई भी कुछ भी सेट पर सेट नहीं है। तो मैं अटक गया हूँ। कृपया सलाह दें।

+0

क्या इसे हल किया गया है या आपको वास्तविक स्पष्टीकरण की आवश्यकता है? –

उत्तर

2

प्रोग्राम के रूप में बता गया की एक वस्तु के चयन

तरह से मैं हमेशा किया है कि कॉम्बो के Value इस तरह के लिए कुछ आवंटित करने के लिए है ...

Me.MyCombo.Value = "target text" 

Valueबाउंड कॉलम सी से आता है ओम्बो की चयनित पंक्ति। (आप कॉम्बो की संपत्ति पत्रक के डाटा टैब पर बाउंड स्तंभ पा सकते हैं।) इसके विपरीत, बताए "लक्ष्य पाठ"Value को मिलान पंक्ति का चयन करता है।

आपकी स्थिति में, मुझे लगता है कि आप कॉम्बो पंक्ति का चयन करने की कोशिश कर रहे हैं जिसमें आपके locindex चर के समान टेक्स्ट शामिल है। और यदि सत्य है, तभी मुझे लगता है कि आप सभी की जरूरत है ...

Me.cboLocations.Value = locindex 

जहां तक ​​जब आप ऐसा करते हैं, न तो अद्यतन है और न ही मान्यता नियम इससे पहले कि मेरे लिए सही विकल्प की तरह लगता है। मेरा सुझाव है कि आप इसे क्वेरी के तुरंत बाद, "डेटाबेस पर SQL क्वेरी" चलाने के लिए जो भी कोड उपयोग कर रहे हैं, उससे करें।

+0

धन्यवाद। यह वास्तव में कुछ था जिसके साथ मैं काम कर सकता था और उपयोगी था। मैं Me.cboLocations.ListIndex = i MeboboLocations.Value = Me.cboLocations.Column (1, i) के साथ बदलकर घायल हो गया क्योंकि combobox में दो कॉलम हैं और Me.cboLocations भी जोड़े गए हैं। चयनित (i) = True सुनिश्चित करें कि विशिष्ट आइटम सूची में चुना गया था। – Alan

1

आप शायद पहले अद्यतन ईवेंट के साथ टकराव कर रहे हैं।

AfterUpdate का उपयोग करने का प्रयास करें।

+0

combobox के लिए पहले अद्यतन घटना के लिए कुछ भी नहीं लिखा है। मुझे नहीं पता कि यहां से क्या करना है। – Alan

+0

ठीक है, त्रुटि संदेश स्पष्ट है, इसलिए अक्षम करने के लिए कोड के लिए कहीं और देखें। – Gustav

+0

सहायक नहीं है। किसी और के पास कुछ सुझाव हैं? – Alan