一直以来,为了Access的报表伤脑筋,今天找到了一份资料,可以利用Word文件创建非常漂亮的报表,其中技术的关键点是在Word文件中使用窗体中的文字型窗体域,在Access中的代码如下:
Private Sub cmdWord_Click()
'创建Word对象
Set Doc = CreateObject("word.application")
Doc.Visible = True
'打开Word文件
Doc.Documents.Open FileName:=CurrentProject.Path & "\report.doc"
'在Word文件中写入记录
Doc.Documents("report.doc").FormFields(1).Result = Me.日期'1是指第1个窗体域
Doc.Documents("report.doc").FormFields(2).Result = Me.会员姓名'2是指第2个窗体域
Doc.Documents("report.doc").FormFields(3).Result = Me.会员地址
Doc.Documents("report.doc").FormFields(4).Result = Me.会员电话
'释放对象变量
Set Doc = Nothing
End Sub
示例:
点击这里下载