May be I'm missing something here but I've got an option group for selecting reports with 36 diferent options.
Then off a command button
If Me.ReportChoice = 1 Then DoCmd.OpenReport "R_MoneyIn", acPreview, "", ""
If Me.ReportChoice = 2 Then DoCmd.OpenReport "R_Money_Out", acPreview, "", ""
etc...