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
<mailto:excel-macros%2bunsubscr...@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.
