We are a group of volunteers and opening a new scheme in our community. Your website provided us with valuable info to work on. You have done an impressive job and our entire community will be thankful to you….

We have a P & L System and the User is asked to set a Parameter Screen where she will enter the Month to prepare the Report for the period she wants.

All twelve months Select Queries are prepared with the name like CUR_MTH1 to CUR_MTH12 (CUR stands for Current, we have Last-Year and Budget Figures created in similar way) and based on the Month selection we have to assemble the SELECT Queries from Jan to selected Month into a Union Query (CUR_UNION) before processing.

Part of the Code used for this purpose is given below:

Private Function DefineUnion()

Dim sql0 As String, i As Integer, vI As Integer, sql1 As String
Dim sql As String, db As Database, QryDef As QueryDef

Me.Refresh

vI = Me![xMonth] 'read Month Param Setting
sql0 = "SELECT CUR_MTH1.* FROM CUR_MTH1" 'select January as default

sql1 = ""
'select Queries to assemble
For i = 2 To vI
sql1 = sql1 & Chr(13) & Chr(10) _
& " UNION ALL SELECT CUR_MTH" & i & ".* FROM CUR_MTH" & i
Next

sql = sql0 & sql1 & " ORDER BY FR, BRA,MTH,CAT;"

'redefine Union Query
Set db = CurrentDb
Set QryDef = db.QueryDefs("CUR_UNION")
QryDef.sql = sql

Set QryDef = Nothing
Set db = Nothing

End Function

The SQL of the Output Union Query is given below:

SELECT CUR_MTH1.* FROM CUR_MTH1
UNION ALL SELECT CUR_MTH2.* FROM CUR_MTH2
UNION ALL SELECT CUR_MTH3.* FROM CUR_MTH3
ORDER BY FR, BRA, MTH, CAT;

In your case the Source is Tables rather than SELECT Queries. The same method can be applied.

Regards,