如何在DoCmd.SendObject里面添加条件

saraou

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

Henry D. Sy

定义一个查询，然后DoCmd.SendObject acQuery, “你的查询名字”

saraou

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

你的查询里，有test这个查询吗？

saraou

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

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

Henry D. Sy

传例子吧！

saraou

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

例子传上来了。

Henry D. Sy

strsql = "SELECT Contacts.ContactID, Contacts.FirstName, Contacts.Address FROM  Contacts Where ContactID = " & Me.ContactID

saraou

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

谢谢您。