Office中国论坛/Access中国论坛

标题: 如何在DoCmd.SendObject里面添加条件 [打印本页]

作者: saraou 时间: 2011-12-19 21:29
标题: 如何在DoCmd.SendObject里面添加条件
我在窗体上添加了一个按钮，点击可以发送outlook邮件给特定的人。代码如下。
但是想要添加一个查询，就是邮件只发送窗体当前添加的那一条纪录。请问如何在代码里面创建一个查询，可以查询到当前窗体更新的那条纪录。然后以excel的形式发送这个查询的内容。
DoCmd.SendObject acQuery, stDocName

作者: Henry D. Sy 时间: 2011-12-19 21:50
定义一个查询，然后DoCmd.SendObject acQuery, “你的查询名字”

作者: saraou 时间: 2011-12-20 09:24

Henry D. Sy 发表于 2011-12-19 21:50
定义一个查询，然后DoCmd.SendObject acQuery, “你的查询名字”

我的代码是这样写的。可是执行了没结果出来，请问哪里有错误。
Dim stDocName As String
Dim qdf As DAO.QueryDef
Dim strsql
strsql = "SELECT 字段a，字段b FROM 表名 Where 字段c = """ & Me.字段c& """"
Set qdf = CurrentDb.QueryDefs("test")
qdf.SQL = strsql

stDocName = "test"
DoCmd.SendObject acQuery, stDocName, acFormatXLS,

作者: Henry D. Sy 时间: 2011-12-20 09:27
你的查询里，有test这个查询吗？

作者: saraou 时间: 2011-12-20 09:57

Henry D. Sy 发表于 2011-12-20 09:27
你的查询里，有test这个查询吗？

有的，test这个查询是我机遇表建的选择查询，strsql = "SELECT 字段a，字段b FROM 表名这个就是test查询的语句。我是不是要在查询的sql语句里面也加条件字段c = """ & Me.字段c& """"？还是在代码这里写了查询，外面那个基于表建的查询就可以删除了。

作者: Henry D. Sy 时间: 2011-12-20 10:51
传例子吧！

作者: saraou 时间: 2011-12-20 11:55

saraou 发表于 2011-12-20 09:57
有的，test这个查询是我机遇表建的选择查询，strsql = "SELECT 字段a，字段b FROM 表名这个就是test查询的 ...

[attach]47737[/attach]例子传上来了。

作者: Henry D. Sy 时间: 2011-12-20 13:48
strsql = "SELECT Contacts.ContactID, Contacts.FirstName, Contacts.Address FROM Contacts Where ContactID = " & Me.ContactID

作者: saraou 时间: 2011-12-20 17:28

Henry D. Sy 发表于 2011-12-20 13:48
strsql = "SELECT Contacts.ContactID, Contacts.FirstName, Contacts.Address FROM Contacts Where Conta ...

谢谢您。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)