AccessのVBAでSQLのSTRCONV関数を使い文字列のカタカナをひらがなに変換する｜フォーム実行例

STRCONVの引数に32を指定することでカタカナをひらがなに変換することができます。

SQL = " SELECT STRCONV(フィールド名,32) FROM テーブル名 "
又は、
SQL = " SELECT STRCONV(フィールド名,32) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)

STRCONV の引数に32を指定することでカタカナをひらがなに変換することができます。

「女子マラソンスタート」を変換すると「女子まらそんすたーと」になります。

Home　

SQL Tips

サンプルソフト
［実行時の画面］
「文字列のカタカナをひらがなに変換する STRCONV関数」ボタンをクリックすると、
ニュースフィールドのひらがなに変換可能な文字を変換し右のテキストボックスに表示しています。

アジア・ハンドボール連盟（ＡＨＦ）の臨時理事会
　[結果]　あじあ・はんどぼーる連盟（ＡＨＦ）の臨時理事会

ミス日本グランプリに20歳学生
　[結果]　みす日本ぐらんぷりに20歳学生

贈りたいバレンタインのプレゼント
　[結果]　贈りたいばれんたいんのぷれぜんと

■実行画面
変換フォーム

［サンプルデータ　テーブル］
データID 　　ニュース
10　　アジア・ハンドボール連盟（ＡＨＦ）の臨時理事会
11　　ミス日本グランプリに20歳学生
13　　贈りたいバレンタインのプレゼント
昨日の話題

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = "■元の文字列" & vbCrLf
    Me!テキスト2 = "■カタカナに変換" & vbCrLf
    SQL = "SELECT ニュース,STRCONV(ニュース,32) FROM サンプルデータ"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs(0) & vbCrLf
        Me!テキスト2 = Me!テキスト2 & rs(1) & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード

Home　

SQL Tips