用select没错,也可用if、 else、 end if
将六个option改为option数组(index从0到5),这样用起来方便。
if option1(0).value then
docmd.openreport "报表1"
else if option1(1).value then
docmd.openreport "报表2"
else if option1(2).value then
docmd.openreport "报表3"
...
end if
用:
Select Case frame
case 1
DoCmd.OpenReport "报表1"
case 2
DoCmd.OpenReport "报表2"
case 3
DoCmd.OpenReport "报表3"
case 4
DoCmd.OpenReport "自己定义的报表名."
...
End Select