"SELECT * FROM tbl通知单 WHERE ID=" & ID, , 4 前面还是东西的把 把前面的发出来才知道4是什么
取通知单表中对应 id = " & ID, 的记录 " & ID,是变量
Set objApp = CreateObject("Word.Application")
Set objDoc = objApp.Documents.Open(strTemplate)
Set rst = CurrentDb.OpenRecordset("SELECT * FROM tbl通知单 WHERE ID=" & ID, , 4)
Word导入导出示例-文本窗体域方法
http://www.accessoft.com/article-show.asp?id=6943
这个示例
On Error GoTo ErrorHandler
Dim strTemplate As String
Dim strFileName As String
Dim objApp As Object 'New Word.Application
Dim objDoc As Object 'Word.Document
Dim objField As Object 'Word.Field
Dim rst As Object
Dim blnNoQuit As Boolean
strTemplate = CurrentProject.Path & "\模板\通知单模板.doc"
'设置鼠标指针为沙漏形状
DoCmd.Hourglass True
Set objApp = CreateObject("Word.Application")
Set objDoc = objApp.Documents.Open(strTemplate)
Set rst = CurrentDb.OpenRecordset("SELECT * FROM tbl通知单 WHERE ID=" & ID, , 4) 'dbReadOnly
If Not rst.EOF Then
总记录：4篇 页次：1/1 9 1 :
