这样的代码怎样写？

AngelHis　发表于：2012-01-15 23:00:51 　

复制

假设某个数据库有100个名称不同的报表，而在某个窗体上有100个相应名称的按钮，怎样写打开报表的代码？只能一个一个写吗？

Top

煮茶论道发表于：2012-01-16 08:05:38

我想是的！

Top

风行发表于：2012-01-16 09:15:55

用循环语句

批量更改控件名称-Access软件网
http://www.accessoft.com/article-show.asp?id=6196

Top

煮江品茶发表于：2012-01-16 20:43:22

不可能有100个名称不同的报表！

假设有100个名称的报表，这个系统的报表使用者都会是群糊涂蛋。原本有三五个报表就能搞清楚的事情，整出一堆报表来，能使张三说东，李四想西。王二麻子理解的是北。

Top

在水一方发表于：2012-01-16 21:39:59

'没有不可能，只有想不到——煮江品茶老师

'将命令按钮加入选项组，窗体添加文本框“报表标题”

'循环语句

Private Sub Frame0_AfterUpdate()
Dim aa As Object
For i = 1 To Me.Frame0.Controls.Count / 2
    Set aa = Me.Frame0.Controls.Item(i * 2)
    If i = Me.Frame0 Then
        aa.ForeColor = 255
        Me.报表标题 = aa.Caption

DoCmd.OpenReport 报表标题, acViewPreview

    Else
        aa.ForeColor = 0
    End If
Next i
Set aa = Nothing
End Sub

Top

西出阳关无故人发表于：2012-01-16 22:12:11

100个报表，不能用100个按钮，也不能用选项组，用表记录每个报表的名称，然后用数据表窗体的双击事件打开相应的报表。或者用组合框，用组合框的change时间打开指定的报表！只要简单的一行代码就ok

DoCmd.OpenReport 报表标题控件, acViewPreview

Top

zhl750501 发表于：2012-04-21 20:16:07

DoCmd.OpenReport 报表标题, acViewPreview

    Else
        aa.ForeColor = 0
    End If
Next i
Set aa = Nothing
End Sub

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

这样的代码怎样写？