Slooooow Append Query

Question

I have an append query that takes over an hour to run (which is fine), but when I use vba and call this append query it will never run.  I have 3 of these that are very similar.  Here is the query itself.  
The select version of this query takes approx 3 min to run
INSERT INTO CosiTemp ( Reg, <Group #>, Dist, Store, <Eligible Items>, <Plans Sold>, <Power Plus Success Rate>, <Power Plus Rank>, ppIndex, ppPotentialSales, <Power Plus Sales $>, <Trans w/A>, <Trans W/ A & B>, <Add-On Success Rate>, <Add-On Rank>, <Add-OnSales $>, aoIndex, aoPotentialSales, <Trans w/ Iotm>, <Units Sold>, <All Trans>, <IotM Sales $>, <Units Per Trans>, <IotM Rank>, ioIndex, ioPotentialSales, <Culture Of Selling Index>, <Additional Sales Potential>, dteDate, City, ST, <Open Date> )SELECT tblMainStoreList.Region, tblMainStoreList.<Group #>, tblMainStoreList.District, tblMainStoreList.<Store #>, pp.numOfItemsTrans, pp.numOfWarrantyTrans, <pp>.<numOfWarrantyTrans>/<pp>.<numOfItemsTrans> AS <Success Rate>, (select Count(*) from <qryPowerPlusStores> where <Success Rate> >= <pp>.<Success Rate> and <pp>!<District>= <District>;) AS ppRank, CDbl(IIf(<Success Rate>="","",<Success Rate>/perPowerPlus())) AS ppIndex, IIf(<ppIndex><1,((<numOfItemsTrans>*perPowerPlus())-<numOfWarrantyTrans>)*curPPCompanySales(),0) AS ppPotentialSales, pp.curPowerPlusSales, ao.SumofA, ao.Sumofb, ao.<Percent%>, (select Count(*) from <qryAddOnSummaryStores> where <Percent%> >= <ao>.<percent%> and <ao>!<District>= <District>;) AS aoRank, ao.<SumofSales$>, CDbl(IIf(<Percent%>="","",<Percent%>/perAddOn())) AS aoIndex, IIf(<aoIndex><1,((<sumofA>*perAddOn())-<sumofb>)*curAoCompanySales(),0) AS aoPotentialSales, io.SumOftrxwIotM, io.<SumOfSales Units>, io.TransCount, io.<SumOfSales$>, io.UnitsPerTrans, (select Count(*) from <qryIotmFromIotmDb> where <UnitsPerTrans> >= <io>.<unitsPerTrans> and <io>!<Districtt>= <Districtt>;) AS ioRank, CDbl(IIf(<unitsPerTrans>="","",<unitsPerTrans>/perIotM())) AS ioIndex, IIf(<ioIndex><1,((<TransCount>*perIotM())-<sumofsales Units>)*curIotMCompanySales(),0) AS ioPotentialSales, IIf(IsNull(<ppIndex>) And IsNull(<aoIndex>) And IsNull(<ioIndex>),0,(Nz(<ppIndex>)+Nz(<aoIndex>)+Nz(<ioIndex>)))/(IIf(IsNull(<ppIndex>),0,1)+IIf(IsNull(<aoIndex>),0,1)+IIf(IsNull(<ioIndex>),0,1)) AS Cosi, <ppPotentialSales>+<aoPotentialSales>+<ioPotentialSales> AS ttlPotSales, Date() AS Expr1, tblMainStoreList.City, tblMainStoreList.ST, tblMainStoreList.<Open Date>FROM qryIotmFromIotmDb AS io INNER JOIN (qryAddOnSummaryStores AS ao INNER JOIN (qryPowerPlusStores AS pp INNER JOIN tblMainStoreList ON pp.<Store> = tblMainStoreList.<Store #>) ON ao.Store = tblMainStoreList.<Store #>) ON io.<Store No> = tblMainStoreList.<Store #>;
I have also set Use Transaction to No in the query properties.  
Thanks in advance for the help!!

Answer 1

As msdnPublicIdentity has suggested, reformulate your query as a series of "subqueries". To get you going, peel things out of your
queries, starting from the inside
INSERT INTO
CosiTemp(
Reg,
[Group #],
Dist,
Store,
[Eligible Items],
[Plans Sold],
[Power Plus Success Rate],
[Power Plus Rank],
ppIndex,
ppPotentialSales,
[Power Plus Sales $],
[Trans w/A],
[Trans W/ A & B],
[Add-On Success Rate],
[Add-On Rank],
[Add-OnSales $],
aoIndex,
aoPotentialSales,
[Trans w/ Iotm],
[Units Sold],
[All Trans],
[IotM Sales $],
[Units Per Trans],
[IotM Rank],
ioIndex,
ioPotentialSales,
[Culture Of Selling Index],
[Additional Sales Potential],
dteDate,
City,
ST,
[Open Date]
SELECT
tblMainStoreList.Region,
tblMainStoreList.[Group #],
tblMainStoreList.District,
tblMainStoreList.[Store #],
pp.numOfItemsTrans,
pp.numOfWarrantyTrans,
[pp].[numOfWarrantyTrans] / [pp].[numOfItemsTrans] AS [Success Rate],
select
Count(*)
from
[qryPowerPlusStores]
where
[Success Rate] >= [pp].[Success Rate]
AND
[pp]![District] = [District]
) AS ppRank,
CDbl(IIf([Success Rate] = "", "", [Success Rate] / perPowerPlus())) AS ppIndex,
IIf([ppIndex] < 1,(([numOfItemsTrans] * perPowerPlus()) - [numOfWarrantyTrans]) * curPPCompanySales(), 0) AS ppPotentialSales,
pp.curPowerPlusSales,
ao.SumofA,
ao.Sumofb,
ao.[Percent%],
select
Count(*)
from
[qryAddOnSummaryStores]
where
[Percent%] >= [ao].[percent%]
AND
[ao]![District] = [District]
) AS aoRank,
ao.[SumofSales$],
CDbl(IIf([Percent%] = "", "", [Percent%] / perAddOn())) AS aoIndex,
IIf([aoIndex] < 1,(([sumofA] * perAddOn()) - [sumofb]) * curAoCompanySales(), 0) AS aoPotentialSales,
io.SumOftrxwIotM,
io.[SumOfSales Units],
io.TransCount,
io.[SumOfSales$],
io.UnitsPerTrans,
select
Count(*)
from
[qryIotmFromIotmDb]
where
[UnitsPerTrans] >= [io].[unitsPerTrans]
AND
[io]![Districtt] = [Districtt]
) AS ioRank,
CDbl(IIf([unitsPerTrans] = "", "", [unitsPerTrans] / perIotM())) AS ioIndex,
IIf([ioIndex] < 1,(([TransCount] * perIotM()) - [sumofsales Units]) * curIotMCompanySales(), 0) AS ioPotentialSales,
IIf(IsNull([ppIndex])
And IsNull([aoIndex])
And IsNull([ioIndex]), 0,(Nz([ppIndex]) + Nz([aoIndex]) + Nz([ioIndex]))) /(IIf(IsNull([ppIndex]), 0, 1) + IIf(IsNull([aoIndex]), 0, 1) + IIf(IsNull([ioIndex]), 0, 1)) AS Cosi,
[ppPotentialSales] + [aoPotentialSales] + [ioPotentialSales] AS ttlPotSales,
Date() AS Expr1,
tblMainStoreList.City,
tblMainStoreList.ST,
tblMainStoreList.[Open Date]
FROM
qryIotmFromIotmDb AS io
INNER JOIN
(qryAddOnSummaryStores AS ao
INNER JOIN
(qryPowerPlusStores AS pp
INNER JOIN tblMainStoreList
ON pp.[Store] = tblMainStoreList.[Store #]
ON ao.Store = tblMainStoreList.[Store #]
ON io.[Store No] = tblMainStoreList.[Store #]
peter n roth - http://PNR1.com, Maybe some useful stuff