Access2007で、リッチテキスト入力で半角文字のフォントがArial になってしまう。

Question

OS:Windows7上でAccess2007でアプリを作成しています。

テキストボックスのプロパティ/データ/文字書式→「リッチテキスト」にして半角文字を入力すると、ボックスの書式でフォントを「MSゴシック」に設定しているにもかかわらず「Arial」に変わってしまいます。　デフォルトで「MSゴシック」で入力する方法はないでしょうか？・・・　 ご教授のほどよろしくお願いします。

Answer 1

e_hori2 さん、こんにちは。

デフォルトで MS ゴシックにする方法ですが、やはりどうしても自動で Arial に変換されてしまい、残念ながら私の方ではよい方法が見つかりませんでした。

入力後に MS ゴシックに変換であれば、以下のようにフォーカス喪失時などのイベントに Replace 関数を利用する方法もあるのかなと思うのですが。。。

 例 :  Me. [テキスト ボックス名] = Replace ( Me. [テキスト ボックス名] , "Arial" , "ＭＳ　ゴシック)

また、リッチテキストのタグごと取り除きたい場合は、"<font face=Arial>" と "</font>" 同じく、Repalce 関数で削除するとよいかと思います。 

もしデフォルトで入力できる方法を知っているという方や、こんな方法を知っているという方もいればご返信お願いします。

---

石田 優 – Microsoft Support

Answer 2

e_hori2 さん、こんにちは。

Access でフォームなどに挿入するテキスト ボックスコントロールのことですね。

私の方でも試してみましたが、おっしゃるとおり、テキスト ボックスのプロパティの文字書式をリッチ テキスト形式にして半角文字入力をすると、"Arial" フォントになりました。

こちら何か設定などで問題が直らないかも調べてみたのですが、残念ながら私の方では参考になりそうな情報は見つかりませんでした。。。

もし代替案でもよいということでしたら、VBA で制御するという方法があるのかなと思いました。

VBA で制御する方法でよいという場合は、その旨、一言いただき、引き続きこちらでアドバイスを集めていただければと思います。

e_hori2 さんからのご返信、お待ちしていますね。

いや、VBA じゃなくても回避策があるよ、という方もいれば、ぜひご投稿お待ちしています。

---

石田 優 – Microsoft Support

Answer 3

e_hori2 さん、こんにちは。

その後いかがでしょうか。

こちらの情報について、同じようなご状況の方にも、確認点として参考にしていただければと [回答としてマーク] をさせていただきました。

マークがあると、他の方が検索する際に情報が見つけやすくなります。

お試しになった結果など、その後のご様子を知らせていただけると、とても嬉しいです。

またお待ちしております。

Answer 4

石田 優 さん。ありがとうございます。

テキストボックスの範囲内でしか入力をさせないようにするために、桁数（Blen(PlainText(Stirng) )で

判断して制御したいために全角、半角混入した場合でも桁数が違わないように「MSゴシック」を指定したのですが、

調査していただいた結果、不可能であればその条件内で逃げ道を考えてみます。

 「Replace 関数」、「リッチテキストのタグごと取り除く方法」などの、貴重な情報は大変参考になりました。

ありがとうございました。　　　

                                     e_hori2

Answer 5

石田 優 さん、はじめまして。　e_hori2 です。

調査していただき、ありがとうございました。

＞ VBA で制御するという方法があるのかなと思いました。

> VBA で制御する方法でよいという場合は～・・・・・・

言葉足らずで申し訳ありません!　アプリ作成は殆ど VBAで行っていますので

VBAの制御で回避できるのであれば大変助かります。

何とぞ、よろしくお願いいたします。