从表中获取数据并将其放入模板中

Question

我正在使用 word 模板，我必须通过 Access 2007 生成模板。我有以下代码：

Public Function CH05_Generate()

Dim WordApp As Word.Application
Dim Doc As Word.Document
Dim WordPath As String
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim sql As String

Set db = CurrentDb()
Set rst = db.OpenRecordset("Projektdata", dbOpenDynaset)


WordPath = "Where my word template is"

Set WordApp = CreateObject("Word.Application")
Set Doc = WordApp.Documents.Add(WordPath)

With Doc

    .FormFields("PName").Result = [Projektnavn]
    .FormFields("text").Result = Forms![TD-E-PM200-CH05]!Kommentar
    .FormFields("S3").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q1
    .FormFields("S4").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q2
    .FormFields("S5").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q3
    .FormFields("S6").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q4
    .FormFields("S7").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q5
    .FormFields("S8").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q6
    .FormFields("S9").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q7
    .FormFields("S10").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q8
    .FormFields("S11").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q9
    .FormFields("S12").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q10
    .FormFields("S13").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q11
    .FormFields("S14").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q12
    .FormFields("S15").CheckBox.Value = Forms![TD-E-PM200-CH05]!sub.Form!Q13
    .FormFields("S16").CheckBox.Value = Forms![TD-E-PM200-CH05]!sub.Form!Q14
    .FormFields("S17").CheckBox.Value = Forms![TD-E-PM200-CH05]!sub.Form!Q15
    .FormFields("S18").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q16
    .FormFields("S19").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q17
    .FormFields("S20").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q18        
End With

WordApp.visible = True
WordApp.Activate
WordApp.ActiveDocument.Protect wdAllowOnlyFormFields, True

End Function

我需要帮助的是从名为“Projektdata”的表中获取“Projektnavn”，但我不知道如何从中获取数据。有很多“projektnavn”，所以也许我应该进行某种查找？ 如您所见，它们都有一个 sagsnr，也许这有帮助？

Answer 1

记录集rst 的内容取决于查询Projektdata 的设计方式。如果您的查询返回单行，则只需使用列名即可检索数据：

If Not rst.EOF Then
    .FormFields("PName").Result = rst("YOUR_COLUMN_NAME")
End If

如果查询不返回任何行，则需要If 语句。

编辑

我不知道查询Projektdata 是如何设计的。为了使它只返回正确的行，您必须修改它以接受一个参数来识别要返回的行。您可以为sagsnr 传递一个参数，如果它对于每一行都是唯一的。我扩展了代码示例并添加了一些清理：

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim qdf As DAO.QueryDef

Set db = CurrentDb()

Set qdf = db.QueryDefs("Projektdata")
qdf!plSagsnr = 1  'Add parameter value to only fetch data where sagsnr is 1
Set rst = qdf.OpenRecordset

If Not rst.EOF Then
    Debug.Print rst("Field1")
End If

rst.Close
qdf.Close
db.Close

Set rst = Nothing
Set qdf = Nothing
Set db = Nothing