Access窗体上的电子邮件例程:运行时错误3265

Question

我正在Access表单上整理一个电子邮件例程。

我得到一个3265错误。

这是导致错误的位。

SendToEmail = HyperlinkPart(rs![Client Basics].email, acDisplayedValue)
Cref = rs![Client Basics].[Client Ref]
Cdear = rs![Client Basics].Dear

这是导致问题的代码位。

Dim strSQL As String
strSQL = "SELECT DISTINCTROW Events.[Client Ref], Events.Date, Events.[Event Type], Events.[Event Details], Events.[Advance Code], Events.[Advance Date], Events.Operator, [Client Basics].[Client Ref], [Client Basics].[Client Name],[Client Basics].email, [Client Basics].Dear FROM [Client Basics] INNER JOIN Events ON [Client Basics].[Client Ref] = Events.[Client Ref] WHERE (((Events.[Advance Code])=88) AND ((Events.[Advance Date])<Date()));"
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(strSQL)

'----------------------------------------------------------Start Email Loop for all Clients Selected -----------------------------------
If Not rs.BOF And Not rs.EOF Then
rs.MoveFirst
Do While Not rs.EOF    
SendToEmail = HyperlinkPart(rs![Client Basics].email, acDisplayedValue)
Cref = rs![Client Basics].[Client Ref]
Cdear = rs![Client Basics].Dear

FinalHTML = "<p style=""text-align: right;""><img src=""https://www.accountants.co.uk/logo2.png"" alt="""" /></p><p>Dear " + Cdear + "</p><p>Ref " + Cref + "</p>" + HTMLFile
Set myMail = myOutlApp.CreateItem(olMailItem)
With myMail
.To = SendToEmail
.subject = DigSubject
.BodyFormat = olFormatHTML
.HTMLBody = FinalHTML
.Display
End With
rs.MoveNext

Loop
End If

rs.Close
Set rs = Nothing
Set myMail = Nothing
Set myOutlApp = Nothing

Answer 1

我终于修复了它。我不得不在SQL中添加一点。我有：-

[Client Basics].[Client Ref], ......

我把它改成

[Client Basics].[Client Ref] AS FromRef, .....

然后使用

Cref = rs!FromRef