Hi Swapnil,

I could populate the 2ns combo-box by repeating the code used to populate 
ComboBox1. But in this way, if i need to populate other ActiveX Controls, 
the code size will become unnecessarily large. Can it be done with few code 
lines? I am pasting the code used by me to populate the two ComboBoxes 
below-

Set com = New ADODB.Command
    With com
        .ActiveConnection = con
        .CommandText = "Select DISTINCT [Date] from DR ORDER BY [Date]"
'       .CommandText = "Select * From DR"
        .CommandType = adCmdText
    End With

    Set rst = New ADODB.Recordset
    rst.LockType = adLockOptimistic
    rst.Open com
    
    With Worksheets("Sheet1").ComboBox1
        .Clear
        Do
            .AddItem rst![Date]
            rst.MoveNext
        Loop Until rst.EOF
    End With
    
    With com
        .ActiveConnection = con
        .CommandText = "Select DISTINCT [Cell] from DR ORDER BY [Cell]"
'         .CommandText = "Select * From DR"
        .CommandType = adCmdText
    End With
    
    Set rst = New ADODB.Recordset
    rst.LockType = adLockOptimistic
    rst.Open com
    
    With Worksheets("Sheet1").ComboBox2
        .Clear
        Do
            .AddItem rst![Cell]
            rst.MoveNext
        Loop Until rst.EOF
    End With

Regards,
Wireless

On Thursday, September 13, 2012 3:09:23 PM UTC+5:30, Swapnil Palande wrote:
>
> Hi,
>  
> You can populate the combo-box with unique items using "Select distinct " 
> query
>
> Do following steps:
> 1. Store "Select distinct" query data in Record Set
> 2. Loop through record set and add values to the Combo Box
>  
> Regards,
>  
> Swapnil.
>  
>  
> On Thu, Sep 13, 2012 at 11:21 AM, wirelesscellularguy <
> wirelessc...@gmail.com <javascript:>> wrote:
>
>> Thanks Noorain. I couldn't reply in time as I was not keeping well.
>>
>> I worked with the procedure suggested by Swapnil and moved ahead. And now 
>> I got an obstruction. In the excel sheet, I am using an combo-box and want 
>> to populate the combo-box with 'Items' category in the Access Database. The 
>> 'Items' re-occur in the database, so i need to populate the combo-box with 
>> unique Items only. I suppose I can do this by clicking the property of the 
>> Access Query.
>>
>> Please help. 
>>
>>
>> Regards,
>> Wireless
>>
>> On Thursday, August 2, 2012 6:59:45 PM UTC+5:30, wirelesscellularguy 
>> wrote: 
>>>
>>> Hi All,
>>>
>>> I am trying to relate Access data & queries to excel. The excel will be 
>>> the user interface. This excel will contain the various buttons to get 
>>> specific informations and clicking these buttons will fetch the data from 
>>> the access table or queries.
>>>
>>> Please suggest how it can be done.
>>>
>>> Sincere regards,
>>> Wireless
>>>
>> -- 
>> Join official facebook page of this forum @ 
>> https://www.facebook.com/discussexcel
>>  
>> FORUM RULES (1120+ members already BANNED for violation) 
>>
>>  
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please 
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice 
>> will not get quick attention or may not be answered.
>>  
>> 2) Don't post a question in the thread of another member.
>>  
>> 3) Don't post questions regarding breaking or bypassing any security 
>> measure.
>>  
>> 4) Acknowledge the responses you receive, good or bad.
>>  
>> 5) Cross-promotion of, or links to, forums competitive to this forum in 
>> signatures are prohibited. 
>>  
>> 6) Jobs posting is not allowed.
>>  
>> 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed. 
>>
>>  
>> NOTE : Don't ever post personal or confidential data in a workbook. Forum 
>> owners and members are not responsible for any loss.
>> --- 
>> You received this message because you are subscribed to the Google Groups 
>> "MS EXCEL AND VBA MACROS" group.
>> To post to this group, send email to excel-...@googlegroups.com<javascript:>
>> .
>> To unsubscribe from this group, send email to 
>> excel-macros...@googlegroups.com <javascript:>.
>>  
>>  
>>
>
>

-- 
Join official facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES (1120+ members already BANNED for violation)

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.

2) Don't post a question in the thread of another member.

3) Don't post questions regarding breaking or bypassing any security measure.

4) Acknowledge the responses you receive, good or bad.

5)  Cross-promotion of, or links to, forums competitive to this forum in 
signatures are prohibited. 

6) Jobs posting is not allowed.

7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.

NOTE  : Don't ever post personal or confidential data in a workbook. Forum 
owners and members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To post to this group, send email to excel-macros@googlegroups.com.
To unsubscribe from this group, send email to 
excel-macros+unsubscr...@googlegroups.com.


Reply via email to