Microsoft Access 掲示板

Microsoft Access 掲示板

Lenbについて / 5

20 コメント
views
4 フォロー
5
シソンヌ 2020/11/27 (金) 17:27:48 0029a@1c915

下記コードで半角化＆文字数を表示することができました!
ありがとうございました。

Private Sub btn半角化_Click()
    Me.Refresh
    txt変更テキスト = StrConv([元テキスト], 8)
    txt変更テキスト長さ = LenB(StrConv([変更テキスト], vbFromUnicode))
    Me.Refresh
End Sub

次の質問なのですが、現在ボタンを2回押さないと反映できません。
（それを解消できるかと思って「Me.Refresh」を2回入れているのですが・・だめでした）
1回で反映できる方法はありますでしょうか。

通報 ...
  • 8
    hatena 2020/11/28 (土) 13:00:07 >> 5

    次の質問なのですが、現在ボタンを2回押さないと反映できません。

    フォームは連結ですか、非連結ですか。

    一応、非連結で下記のようなサンプルを作成して確認してみましたが、ボタン1回クリックで表示されました。

    テキストボックス

    • txt元テキスト
    • txt変更テキスト
    • txt変更テキスト長さ

    コマンドボタン

    • btn半角化
    Private Sub btn半角化_Click()
    Me.txt変更テキスト = StrConv(Me.txt元テキスト, vbNarrow)
    Me.txt変更テキスト長さ = LenB(StrConv(Me.txt変更テキスト, vbFromUnicode))
End Sub
    12
    シソンヌ 2020/11/28 (土) 21:27:18 0029a@1c915 >> 8

    連結にしていましたが、[元テキスト]⇒txt元テキスト　・・・等々変更したら1回で表示されるようになりました。教えていただきありがとうございました。