次の質問なのですが、現在ボタンを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
通報 ...
連結にしていましたが、[元テキスト]⇒txt元テキスト ・・・等々変更したら1回で表示されるようになりました。教えていただきありがとうございました。