使用VBA更新访问查询

时间:2016-02-01 10:05:12

标签: sql vba access-vba

我正在尝试使用VBA更新访问查询并更改SQL语句中的Like条件,但是虽然我知道SQL代码有效,但在使用VBA运行时它会继续返回相同的信息。

我的代码如下:

Function FTPCost()

    Dim database As DAO.database
    Dim query As DAO.QueryDef
    Dim strSQL As String
    Set database = CurrentDb

    Set query = database.QueryDefs("ftp_for_a_part_Query")

    strSQL = "SELECT ftp_for_a_part.PART, ftp_for_a_part.STD_TOT, ftp_for_a_part.DATE " & _
        "FROM ftp_for_a_part " & _
        "WHERE (((ftp_for_a_part.PART) Like '******')) " & _
        "ORDER BY ftp_for_a_part.DATE DESC;"

        'MsgBox strSQL

    query.SQL = strSQL
    DoCmd.OpenQuery "ftp_for_a_part_Query"

    Set query = Nothing
    Set database = Nothing

End Function

1 个答案:

答案 0 :(得分:0)

解决了我的问题。 SQL代码未更新Query的事实是由查询窗口打开引起的。我不明白为了运行查询窗口的查询必须关闭。