ウィングのHPへようこそ 本文へジャンプ
サンプル一覧へ戻る

テキストボックスに書式を設定するVBA


フォーム上のテキストボックスにアンダーバーを表示させて、そこにデータを入れたい時があります。
その方法を公開します。
伝票登録フォーム(サンプル1)
上記のフォームの伝票番号と日付に設定してあります。

伝票番号は
伝票番号(サンプル2)
フォーム上の設定は 定型入力は 00000000 をセットしてあります。
また、テキストボックスのフォントは MS ゴシック で 10ポイントをしています。
(この組み合わせだと上記のように、うまくアンダーバーが表示されます。)
そして、この伝票番号のフォーカス取得時に下記のソース例を指定すると、伝票番号に何も入っていないときに、フォーカスがこのテキストボックスに移ったときに上記のようなアンダーバーを表示し、ここに入力ができます。

日付は
フォーム上の設定は 定型入力は 00\/00\/00;0;_ をセットしてあります。
また、テキストボックスのフォントは MS ゴシック で 10ポイントをしています。
(この組み合わせだと上記のように、うまくアンダーバーが表示されます。)
<ソース例>


Private Sub 伝票番号_Enter()
  If IsNull(Me!伝票番号) Then
    Me!伝票番号.SelStart = 0
  End If
End Sub


Private Sub 日付_Enter()
  If IsNull(Me!日付) Then
    Me!日付.SelStart = 0
  End If
End Sub

サンプル一覧へ戻る
 

Copyright(C) 2006 Wing