Automate Running Command

[Chris Arenburg via AccessMonster.com]

The code here creates a table for every instance in the combo box on my form. what I would like to do is have it run automatically without selecting each row/record/instance and pressing the button. I would want it to just run for every instance in the list.
Dim strSQL As String
Dim strSourceSelected As String
strSourceSelected = Trim$(Me![Combo5])

strSQL = "SELECT Market.* INTO " & strSourceSelected
strSQL = strSQL & " FROM Market"
strSQL = strSQL & " WHERE Market.Field4 = [Forms]![Create_Market]![Combo5]"
DoCmd.RunSQL strSQL

--
Message posted via http://www.accessmonster.com

[pietlinden]

Chris Arenburg via AccessMonster.com wrote:

The code here creates a table for every instance in the combo box on my form. what I would like to do is have it run automatically without
selecting each row/record/instance and pressing the button. I would
want it to just run for every instance in the list.

Dim strSQL As String
Dim strSourceSelected As String
strSourceSelected = Trim$(Me![Combo5])

strSQL = "SELECT Market.* INTO " & strSourceSelected
strSQL = strSQL & " FROM Market"
strSQL = strSQL & " WHERE Market.Field4 = [Forms]![Create_Market]![Combo5]" DoCmd.RunSQL strSQL

--
Message posted via http://www.accessmonster.com

if you have the source of the combobox, why not just open a recordset
based on the combo's rowsource and then loop through it? Seems like
you're just making work for yourself doing it this way, and making
things unnecessarily complicated...

[Chris Arenburg via AccessMonster.com]

Right I a gree I am new to the VBA side of Access and I haven't had experience with Looping. I was hoping for some sample coding.

--
Message posted via http://www.accessmonster.com

[Chris Arenburg via AccessMonster.com]

I am new to the VBA side of Access and especially looping I know there is an easier wasy, I was hoping for some sample code. Thanks

--
Message posted via http://www.accessmonster.com