Rajan's code is much better than my code...
On Sep 14, 2012 7:48 PM, "Rajan_Verma" <rajanverma1...@gmail.com> wrote:
> * *
>
> *Where is your ComboBox?*
>
> * *
>
> *If on userform use this*
>
> * Userform1.ComboBox1.List=RstRecord.GetRows*
>
> *If on Worksheet Use this*
>
> * Sheet1.DropDowns(“ComboBox1”).List= rstRecord.GetRows*
>
> * *
>
> * *
>
> * *
>
> *Regards*
>
> *Rajan verma*
>
> *+91 7838100659 [IM-Gtalk]*
>
> * *
>
> *From:* excel-macros@googlegroups.com [mailto:
> excel-macros@googlegroups.com] *On Behalf Of *Swapnil Palande
> *Sent:* 14 September 2012 11:14
> *To:* excel-macros@googlegroups.com
> *Subject:* Re: $$Excel-Macros$$ Re: Excel to Access Data****
>
> ** **
>
> Hi,****
>
> ****
>
> If you want to populate combo boxes using minimum code then create
> saperate function to populate combobox and then call that function for each
> combobox. Following is the sample code:****
>
> ****
>
> 1. Create function to populate combobox****
>
> ****
>
> Function populateCombo(rst as ADODB.Recordset, cmb as ComboBox)****
>
> With cmb****
>
> .Clear
> Do
> .AddItem rst.Field(0).Value****
>
> rst.MoveNext
> Loop Until rst.EOF
> End With****
>
> End Function****
>
> ****
>
> 2. Function is created, now you can call above function to populate cmbo
> boxes****
>
> ****
>
> 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
> ****
>
> populateCombo rst, Worksheets("Sheet1").ComboBox1
> rst.close****
>
>
> With com
> .ActiveConnection = con
> .CommandText = "Select DISTINCT [Cell] from DR ORDER BY [Cell]"***
> *
>
> .CommandType = adCmdText
> End With
>
> Set rst = New ADODB.Recordset
> rst.LockType = adLockOptimistic
> rst.Open com
> ****
>
> populateCombo rst, Worksheets("Sheet1").ComboBox2
> rst.close****
>
> ****
>
> Hope this will help you.****
>
> ****
>
> Regards,****
>
> ****
>
> Swapnil.****
>
> ****
>
> On Thu, Sep 13, 2012 at 3:52 PM, wirelesscellularguy <
> wirelesscellular...@gmail.com> wrote:****
>
> 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> 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.
> To unsubscribe from this group, send email to
> excel-macros...@googlegroups.com.
>
> ****
>
> ** **
>
> --
> 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.
>
> ****
>
> ** **
>
> --
> 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.
>
> ****
>
> --
> 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.
>
>
>
--
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.
