我想提取Member.HomeEmail并存储它strEmail，如果发现更多的邮件地址使用;like将它们分开[email protected]; [email protected]; [email protected]，以便我可以在 Outlook 中使用结果作为strBCC = strEmail
Private Sub Command610_Click()
Dim strEmail
SELECT Member.HomeEmail
FROM Member INNER JOIN MemberRole ON Member.MemberID = MemberRole.MemberID
WHERE (((MemberRole.RoleID)=1) AND ((Member.ConstituencyPrefix)="DF") AND ((MemberRole.FinishDate) Is Null))
ORDER BY Member.Surname;
End Sub
帮助更受欢迎。我真的不知道如何在 VBA 中运行查询；我试过了DoCmd.RunSQL strSQL，但这不是正确的操作。
我快到了：
变量 strCons 包含一个数字，当我像下面这样执行此操作时，我想将其添加到 SQL 中，但出现运行时错误“3061”参数太少。Expexted 1. 试图找出原因，但没有运气。
Dim rs As DAO.Recordset Dim strEmailTD As String
Set rs = CurrentDb.OpenRecordset("SELECT Member.HomeEmail FROM Member INNER JOIN MemberRole ON Member.MemberID = MemberRole.MemberID WHERE (( (MemberRole.AreaID)= strCons) AND ((MemberRole.RoleID)=1) AND ((MemberRole .FinishDate) 为空)) ORDER BY Member.Surname") strEmailTD = rs.Fields(0).Value rs.Close
将SQL分配给变量，并在打开记录集时使用它：
Dim rs As DAO.Recordset
Dim HomeEmail As String
Set rs = CurrentDb.OpenRecordset(SQL) ' Your SQL.
HomeEmail = rs.Fields(0).Value
rs.Close
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句