Office中国论坛/Access中国论坛

标题: 在报表中如何将模块中的变量预览或打印出来 [打印本页]

作者: 付谦 时间: 2005-3-1 22:58
标题: 在报表中如何将模块中的变量预览或打印出来
我参照资料,编写了以下模块程序:

Sub lm()

Dim sr1 As String

Dim sr As String

Set db = CurrentDb() '指定数据库为当前数据库

Set recname = db.OpenRecordset("select * from 主集2005 where MID([单位代码],1,3) ='151' And MID([职务代码],1,1) ='2'")

Set strname = recname![姓名] '指定记录集"姓名字段"

Do Until recname.EOF

sr = sr + " " + strname

recname.MoveNext

Loop

MsgBox (sr)

'recname.Close

End Sub

单独在模块中能运行并显示变量(SR)内容,如何与报表连接,能显示并打印变量(SR)内容.请帮忙.急!

[此贴子已经被作者于2005-3-2 20:03:16编辑过]

作者: swx 时间: 2005-3-1 23:08
将MsgBox (sr) 改为：me.文本框=sr

作者: wu8313 时间: 2005-3-2 03:14
搂主帖子中的这一句：Dim sr As String '声明一个整型变量注释和代码好像不一致，没有看明白。

作者: 付谦 时间: 2005-3-2 16:55
将MsgBox (sr) 改为：me.文本框=sr 仍然解决不了问题，继续请行家指点。注释和代码有的不一致，是我更改程序时没改过来。

作者: 静儿 时间: 2005-3-2 19:28
要不将例子放上来看看

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