Accessで小文字を大文字に変えたい

Question

前提

Accessで氏名のフィールドに含まれている
カタカナの小文字を大文字に変えたいと思っております
リュ　→　リユ
ッ　→　ツ
など
https://asbepartners.com/strconv/
こちらのサイトを参考にしたのですがデータの変更がされません

実現したいこと

小文字から大文字への置換

発生している問題・エラーメッセージ

ローカルウィンドウ上の変数は希望した動作になっていますが
データが置換されない状況です

該当のソースコード

Public Function HanKanaConv()

    On Error Resume Next
    
    Dim motoString As String
    Dim dbs As Database
    Dim rst As Recordset
    Dim i As Integer
    Dim P As Integer
    Dim C As String
    Set dbs = CurrentDb
    
    Set rst = dbs.OpenRecordset("テスト", dbOpenDynaset)
    
    Set rst = rst.OpenRecordset
    
    Const HanKanaS = "ァィゥェォャュョッ"
    Const HanKanaL = "アイウエオヤユヨツ"
    
    HanKanaConv = motoString

    '件数カウント　0件以外で処理続行
    If rst.EOF Then
        rst.Close
        Exit Function
    Else
        Do Until rst.EOF
            motoString = rst!氏名カナ
            For i = 1 To Len(motoString)
                '取得した1文字を変数Cにｾｯﾄ
                C = Mid(motoString, i, 1)
                
                '変数Cが変換対象文字であれば変換対象文字列における文字位置を戻す
                P = InStr(1, HanKanaS, C, vbBinaryCompare)
                        
                '変数Cが変換対象文字であれば変換後対象文字列の同じ位置の文字に置き換える
                If P > 0 Then
                    Mid(motoString, i) = Mid(HanKanaL, P, 1)
                    rst!氏名カナ = motoString
                    rst.Update
                End If
            Next i
            rst.MoveNext
        Loop
        
        rst.Close
        Set rst = Nothing
        Set dbs = Nothing
    End If
End Function

試したこと

Mid(motoString, i) = Mid(HanKanaL, P, 1)
この時点で変数motoStringは変換されているので一旦rst!氏名カナをクリアしようかとも思ったのですが
rst!氏名カナ = ""としてもクリアされないためそもそも構文が違うのではと

　　rst!氏名カナ = motoString

rst.Update

補足情報（FW/ツールのバージョンなど）

windows10
MS Access2016

Answer 1

https://asbepartners.com/strconv/
こちらのサイトを参考にしたのですがデータの変更がされません

上記ページで紹介されているユーザー定義関数のコード自体を改変する必要はありません。
ただそっくりそのまま標準モジュールにコピーアンドペーストすればよいです。

Accessで氏名のフィールドに含まれている
カタカナの小文字を大文字に変えたいと思っております

その上で、任意のクエリからその関数を呼び出すなどすれば充分でしょう。

SELECT [テスト].[氏名カナ], 
       HanKanaConv(Nz([テスト].[氏名カナ],"")) AS [氏名カナ_変換結果] 
FROM [テスト];

[氏名カナ]の値そのものの書き換えを行ないたいのであれば、更新クエリを使用なさればよろしいでしょう。

Comments

[umeda_]

ありがとうございます。
SQLでも更新クエリでも動作確認できました。

標準モジュールにコピペしただけでは実行やステップ実行が反応せず
マクロから呼び出して実行するつもりでしたが
関数呼び出しで実行するのはわかりませんでした

勉強になりました。ありがとうございました。