access: 既にあるクエリーのＳＱＬを書きかえる

Public Sub GFC_SetQuery(QueryName As String, Psql As String)
'既にあるクエリーのＳＱＬを書きかえる
'Psql :　SQL文字列
On Error GoTo ERR_GFC_SetQuery
Dim wrkQDef As QueryDef
Dim sql$

    Set wrkQDef = CurrentDb.QueryDefs(QueryName)
    wrkQDef.sql = Psql
    Exit Sub

ERR_GFC_SetQuery:
    Dim erNum: erNum = Err.Number
    Dim erMsg$: erMsg = "GFC_SetQuery:" & Err.Description
    objLog.Error erMsg
    Err.Raise Number:=erNum, Description:=erMsg

End Sub