level 1
新人2002
楼主
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)
If Not rst.EOF Then
2018年07月07日 13点07分
1
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)
If Not rst.EOF Then
