AccessのVBAでSQLの STRCONV関数を使い文字列のひらがなをカタカナに変換する

SQL = " SELECT STRCONV(フィールド名,16) FROM テーブル名 "
又は、
SQL = " SELECT STRCONV(フィールド名,16) AS 名前 FROM テーブル名 "

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

「なりたいのはスーパー仕事人だ」を変換すると「ナリタイノハスーパー仕事人ダ」になります。

Homeへ　

SQL Tipsへ

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

怪物が“こんがり王子”に変身した
　[結果]　怪物ガ“コンガリ王子”ニ変身シタ

きんに君再び筋肉留学へ出発
　[結果]　キンニ君再ビ筋肉留学ヘ出発

みんなのマップを参考にして
　[結果]　ミンナノマップヲ参考ニシテ

■実行画面
カタカナ変換

［サンプルデータ　テーブル］
データID 　　ニュース
10　　怪物が“こんがり王子”に変身した
11　　きんに君再び筋肉留学へ出発
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(ニュース,16) 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

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

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

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