我正在尝试使用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
答案 0 :(得分:0)
解决了我的问题。 SQL代码未更新Query的事实是由查询窗口打开引起的。我不明白为了运行查询窗口的查询必须关闭。