【Access】VBAを実行したら「実行時エラー”3052″」の対処

Function CleanChar(strData As String) As String
'引数の文字列から制御コードを除去した文字列を返す

  Dim strRet As String
  Dim strCurChar As String
  Dim I As Integer

  strRet = ""
  For I = 1 To Len(strData)
    strCurChar = Mid$(strData, I, 1)
    If Asc(strCurChar) < 0 Or Asc(strCurChar) >= 32 Then
      '漢字のAscの返り値はマイナスに留意
      strRet = strRet & strCurChar
    End If
  Next I

  CleanChar = strRet

End Function

Function RKetou()

    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim myQuery As QueryDef
    Dim strSQL As String
    Dim WK_NM1 As String, WK_NM2 As String, WK_NM3 As String

    strSQL = "SELECT MS_DT.父, MS_DT.母, MS_DT.母父 FROM MS_DT;"

    'カレントデータベースを変数に代入する
    Set db = CurrentDb
    
    'レコードセットを開く

    Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
       
    RKetou = False
    If rst.RecordCount <= 0 Then Exit Function

        Do
            rst.Edit

            WK_NM1 = CleanChar(Trim$rst!父))
            WK_NM2 = CleanChar(Trim$(rst!母))
            WK_NM3 = CleanChar(Trim$(rst!母父))

            rst!父 = Trim$(WK_NM1)
            rst!母 = Trim$(WK_NM2)
            rst!母父 = Trim$(WK_NM3)
            
            rst.Update
            rst.MoveNext
            
        Loop Until rst.EOF = True
        
    rst.Close
    RKetou = True
End Function

Function RKetou()

    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim myQuery As QueryDef
    Dim strSQL As String
    Dim WK_NM1 As String, WK_NM2 As String, WK_NM3 As String
    Dim cnt As Integer

    strSQL = "SELECT MS_DT.父, MS_DT.母, MS_DT.母父 FROM MS_DT;"

    'カレントデータベースを変数に代入する
    Set db = CurrentDb
    
    'レコードセットを開く

    Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
    
    cnt = 0
    DBEngine.BeginTrans
    
    RKetou = False
    If rst.RecordCount <= 0 Then Exit Function

        Do
            rst.Edit

            WK_NM1 = CleanChar(Trim$rst!父))
            WK_NM2 = CleanChar(Trim$(rst!母))
            WK_NM3 = CleanChar(Trim$(rst!母父))

            rst!父 = Trim$(WK_NM1)
            rst!母 = Trim$(WK_NM2)
            rst!母父 = Trim$(WK_NM3)
            
            rst.Update
            rst.MoveNext
            
            'トランザクションコミット処理
            cnt = cnt + 1
            If cnt = 5000 Then
                DBEngine.CommitTrans
                DBEngine.BeginTrans
                cnt = 0
            End If
        Loop Until rst.EOF = True
        
    DBEngine.CommitTrans
    rst.Close
    RKetou = True
End Function