WHEREID="&ID,,4是什么意思?
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
这个&是字串连接符,表示这个ID是变量,比如ID=1234
那么SQL就为
SELECT * FROM tbl通知单 WHERE ID=1234
而其中的4为以只读方式打开记录集。
热门标签: