从 Access 通过电子邮件发送 PDF

Question

我最近刚刚在命令按钮后面编码以发送表单的电子邮件，但是当电子邮件弹出并打开 PDF 文件时，有 15 个相同表单的副本。有人知道为什么会这样吗？

谢谢:)

On Error GoTo errhandle
DoCmd.SendObject acSendForm, "frmETIC", acFormatPDF, "email address", "", "", "Recovery Report", "Attached is the submitted Recovery Report"
exitErr:
Exit Sub
errhandle:
If Err.Number <> 2501 Then
MsgBox ("Email cancelled!")
End If
Resume exitErr


Me.Filter = "CurrentDate= #" & Me!CurrentDate & "#" AND "Discover= '" & Me!Discover & "'" AND "Tail= '" & Me!Tail & "'" AND "FleetID= '" & Me!FleetID & "'"

Answer 1

听起来您的表单目前有 15 条记录。当您在表单上使用 SendObject 时，它会将表单中的所有记录打印到 PDF 中，而不仅仅是当前记录。我认为您需要过滤表单以仅显示当前记录，然后是 SendObject。如果您的数据源有一个名为 ID 的主键字段，请使用：

Me.Filter = "ID=" & Me!ID
Me.FilterOn = True
DoCmd.SendObject acSendForm, "frmETIC", ...

如果你有一个多字段主键使用：

Me.Filter = "ID=" & Me!ID & " AND CustName = '" & Me!CustName & "'"
Me.FilterOn = True

对数字字段不使用分隔符，在文本字段值周围使用引号，在格式为 mm/dd/yyyy 的日期字段值周围使用 #。