Office中国论坛/Access中国论坛

标题: 报表导出后的文件名的自动获取 [打印本页]

作者: yanwei82123300 时间: 2012-1-10 21:29
标题: 报表导出后的文件名的自动获取
我想导出报表数据后的文件名是报表中的某一个字段的名称：
例如：导出罗斯文实例中的发票报表后直接生成以发票号命名的文件?看看能否做到，谢谢

作者: Grant 时间: 2012-1-11 01:09
重读Report的记录集.

作者: Henry D. Sy 时间: 2012-1-11 01:12
具体要看你怎么设计的。
发现你一般都不传例子。

作者: yanwei82123300 时间: 2012-1-11 11:36
各位老师我做了个例子上传请帮助看看，谢谢！打开窗体（FORM1）

作者: yanwei82123300 时间: 2012-1-11 11:39
具体见图片的MO号：数据在tblMO表中！请查看

作者: todaynew 时间: 2012-1-11 11:49

yanwei82123300 发表于 2012-1-11 11:39
具体见图片的MO号：数据在tblMO表中！请查看

两种办法：其一是创建某类文件的实例时直接用一个变量来命名文件；其二是创建时用一个固定的名称比如temp，然后用name 旧名称 as 新名称语句做一下修改，其中新名称用一个变量的值即可。

作者: yanwei82123300 时间: 2012-1-11 12:26
todaynew 老师谢谢您的帮助，看看能不能帮助修改一下例子！！谢谢！！

作者: yanwei82123300 时间: 2012-1-11 15:33
谢谢！请大家帮助看看

作者: todaynew 时间: 2012-1-12 17:02

yanwei82123300 发表于 2012-1-11 15:33
谢谢！请大家帮助看看

Private Sub outexcel_Click()
Dim filename As String
If IsNull(Me.mo.Value) = True Then
filename = "D:\temp.xls"
Else
filename = "D:\" & Me.mo.Value & ".xls"
End If
DoCmd.OutputTo acReport, "rptMO", acFormatXLS, filename, False, "", 0
End Sub

作者: yanwei82123300 时间: 2012-1-12 18:58

作者: yanwei82123300 时间: 2012-1-13 08:12
谢谢帮助，问题已经解决是版本的问题2003 ok 2007不通过！！

作者: Henry D. Sy 时间: 2012-1-13 16:36
导出pdf时，判断list4是不是为空。

作者: zhylee 时间: 2012-2-7 15:25
要是只生成有条件的数据
而不是全部
怎么办呀

作者: yanwei82123300 时间: 2012-2-7 15:46
数据源，加条件

作者: zhylee 时间: 2012-2-7 17:14
Private Sub outexcel_Click()
Dim filename As String
If IsNull(Me.mo.Value) = True Then
filename = "D:\temp.xls"
Else
filename = "D:\" & Me.mo.Value & ".xls"
End If
DoCmd.OutputTo acReport, "rptMO", acFormatXLS, filename, False, "", 0
End Sub
在那个位置？？

作者: zhylee 时间: 2012-2-7 17:15
Private Sub outexcel_Click()
Dim filename As String
If IsNull(Me.mo.Value) = True Then
filename = "D:\temp.xls"
Else
filename = "D:\" & Me.mo.Value & ".xls"
End If
DoCmd.OutputTo acReport, "rptMO", acFormatXLS, filename, False, "", 0
End Sub
在那个位置？？

作者: zhylee 时间: 2012-2-7 17:16
水平比较低
见谅

作者: yanwei82123300 时间: 2012-2-7 19:53
acReport, "rptMO", 的数据源在哪里?如果是查询，就在查询中加条件

作者: zhylee 时间: 2012-2-8 08:18
如果不是查询呢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)