L
learning_codes
Hi,
I'm not able to select specific sports to generate the report from all
sports. I try to run the report and produce all sports' reports. I
just want two reports. I want to ran "Hockey", I should get 3
reports under Hockey. I'm not sure if I get it right. I get errors
with parameters but now, I have a problem with generating all the
reports but not only Hockey.
Your help would be much appreciated.
Thanks.
*********************************************************************************
tbl_Team
Group (Group A, Group B, Group C, etc)
Team (Hockey, Baseball, Tennis, Soccer)
Each Team has it owns Group A, Group B, Group C, etc)
Set dbs = CurrentDb
strSql_list = "SELECT CBO_TEAM.GROUP FROM CBO_TEAM WHERE
(((CBO_TEAM.SPORTS)=[FORMS].[STATUS REPORT - DETAILED].[CBO_TEAM]))
ORDER BY CBO_TEAM.SPORT;"
For Each prm In strSql_list.Parameters
prm.Value = Eval(prm.Name)
Next prm
Set SportMgr = dbs.OpenRecordset(strSql_list, dbOpenDynaset,
dbReadOnly)
SportMgr.MoveFirst
If SportMgr.EOF = False And SportMgr.BOF = False Then
SportMgr.MoveFirst
Do While SportMgr.EOF = False
strSportName = SportMgr!Sport.Value
Me.cbo_Team = DivMgr!Sport.Value
I'm not able to select specific sports to generate the report from all
sports. I try to run the report and produce all sports' reports. I
just want two reports. I want to ran "Hockey", I should get 3
reports under Hockey. I'm not sure if I get it right. I get errors
with parameters but now, I have a problem with generating all the
reports but not only Hockey.
Your help would be much appreciated.
Thanks.
*********************************************************************************
tbl_Team
Group (Group A, Group B, Group C, etc)
Team (Hockey, Baseball, Tennis, Soccer)
Each Team has it owns Group A, Group B, Group C, etc)
Set dbs = CurrentDb
strSql_list = "SELECT CBO_TEAM.GROUP FROM CBO_TEAM WHERE
(((CBO_TEAM.SPORTS)=[FORMS].[STATUS REPORT - DETAILED].[CBO_TEAM]))
ORDER BY CBO_TEAM.SPORT;"
For Each prm In strSql_list.Parameters
prm.Value = Eval(prm.Name)
Next prm
Set SportMgr = dbs.OpenRecordset(strSql_list, dbOpenDynaset,
dbReadOnly)
SportMgr.MoveFirst
If SportMgr.EOF = False And SportMgr.BOF = False Then
SportMgr.MoveFirst
Do While SportMgr.EOF = False
strSportName = SportMgr!Sport.Value
Me.cbo_Team = DivMgr!Sport.Value