事件点击错误+从数据库获取数据

Question

我正在尝试运行一个事件，但是当我运行它时，我得到了错误：

您输入的表达式 On Click 作为事件属性设置 产生以下错误：您输入的表达式有 包含错误数量的参数的函数。

• 表达式可能不会产生宏名称、用户定义函数名称或 [事件过程]。

• 评估函数、偶数或宏时可能出错。

我会使用以下代码：

    Public Function CH05_Generate(Sagsnr As String)

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
sql = "SELECT * FROM Projektdata WHERE Sagsnr Like '" & Sagsnr & "'"
Set rst = db.OpenRecordset(sql, dbOpenDynaset)


WordPath = "My path (Can't show this"

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

With Doc
    .FormFields("PName").Result = rst![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
    .FormFields("S21").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q19
    .FormFields("S22").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q20
    .FormFields("S23").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q21
    .FormFields("S24").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q22
    .FormFields("S25").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q23
    .FormFields("S26").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q24
    .FormFields("S27").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q25
    .FormFields("S28").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q26
    .FormFields("S29").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q27
    .FormFields("S30").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q28
    .FormFields("S31").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q29
    .FormFields("S32").Result = Forms![TD-E-PM200-CH05]!sub.Form!Q30
    .FormFields("S33").CheckBox.Value = Forms![TD-E-PM200-CH05]!sub.Form!Q31
    .FormFields("S34").CheckBox.Value = Forms![TD-E-PM200-CH05]!sub.Form!Q32
    .FormFields("S35").CheckBox.Value = Forms![TD-E-PM200-CH05]!sub.Form!Q33
    .FormFields("S36").CheckBox.Value = Forms![TD-E-PM200-CH05]!sub.Form!Q34
    .FormFields("S37").CheckBox.Value = Forms![TD-E-PM200-CH05]!sub.Form!Q35



End With

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

End Function

我想从“Projektdata”数据库中获取数据，并获取正确的数据“Projektnavn”来填写：

 .FormFields("PName").Result = rst![Projektnavn]

我的数据库结构是这样的：

Answer 1

"SELECT *
FROM dbo.Projektdata p
JOIN dbo.Items i ON p.Sagsnr = i.Sagsnr
WHERE ItemID =" & ItemID & " AND p.Sagsnr Like '" & Sagsnr & "'" -- change "," to AND

Answer 2

我这样调用我的函数：=CH05_Generate()

Public Function CH05_Generate(Sagsnr As String, ItemID As String)

这不起作用 - 函数需要两个参数，您需要在函数调用中传递它们。