Обновление запроса доступа с помощью VBA

Question

Я пытаюсь обновить запрос доступа с помощью VBA и изменить критерии Like в инструкции SQL, но, хотя я знаю, что код 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 

Answer 1

решить мою проблему. Тот факт, что код SQL не обновлял запрос, вызван открытием окна запроса. Я не понял, что запрос на запуск окна запроса должен быть закрыт.