StrReverse関数で文字列を反転させる【Access】

アクセス担当のまみです。

入力した文字列の順番を逆さまにして表示してくれる関数があるんですね。

StrReverse関数って言うんです。

StrReverse関数は、指定した文字列の「順番を逆さにした文字」を返してくれます。

今回はStrReverse関数についてお伝えしますね。

StrReverse関数

幼児学習の先生に相談されたことがあるんだけど、まず文字をスクリーンに表示させるでしょ。
それからその文字を逆さにした文字を表示できないかなって。

そんな相談受けたんだね。

うん。文字が楽しく覚えられるんじゃないかって色々工夫しているんだって。

じゃあStrReverse関数を使ってみる？

指定した文字列を逆さにした文字で返してくれます。

StrReverse関数を使用する

ボタンを1つテキストボックスを2つ配置します。

あとはボタンにコードを書けば完成だね！

①「btn実行」を選択した状態でプロパティーシートの②「イベント」タブからクリック時に「イベントプロシージャ」を選択してコードの画面を表示します。

「Private Sub btn実行_Click()」と「End Sub」の間に下記のコードを追加しましょう。

    Dim strChr As String
    strChr = Me.tx文字.Value
    
    Me.tx結果.Value = StrReverse(strChr)

コードをコピーされたい場合は下記の記事を参考にしてください。

フォームビューに切り替えて確認してみてね！

「ゆきだるま」って入力してみたよ！

小さな子供さん相手だからやっぱりひらがなかな？あとデザインも気をつけてあげてね！

フォームは「F_StrReverse」と名前をつけておきましょう。

StrReverse関数とMid関数を使用する

StrReverse関数使ったプログラム大好評で、もう1つお願いされたんだ。

評判良かったんだね。
それでお願いされたことって？

うん。文字を全部逆さにするんじゃなくて、2番目以降とか文字の開始位置を指定できないかって。

そっか。子供たちをあきさせない工夫だね。
それで、お願い事はどう？できそう？

う～ん。文字の開始位置を指定して逆さにするってことだから、Mid関数使えばいいのかな？

そうそう！Mid関数だね！

【Access】Mid関数で開始位置を指定して文字列を抽出する

2018年12月15日

「F_StrReverse」に１つテキストボックスを追加します。

※「F_StrReverse」を置いておきたかったらコピーして別の名前に変更してくださいね。

「Private Sub btn実行_Click()」と「End Sub」の間を下記のコードに書き換えましょう。

    Dim strChr As String
    Dim strNum As String
    strChr = Me.tx文字.Value
    strNum = Me.tx開始.Value
        
    Me.tx結果.Value = StrReverse(Mid(strChr, strNum))

「ゆきだるま」の3文字目から逆さになるようにしてみたよ！

まとめ

今回は、文字列の順番を変更できる関数StrReverse関数をお伝えしてみました。

文字列を逆さにした値を返してくれるんですね。

パスワード作成やクイズの問題作成にとっても役に立つ気がします。

何かに役立ててみてください、きっと大活躍してくれますね。