| 投稿日 | ： 2005/07/29(Fri) 22:34 |
| 投稿者 | ： ゆうり |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： テキストフィールドのEnterキー実行による値取得について |
投稿3回目、まだまだ超初心者です。よろしく御願いいたします。
VBのバージョンは、５．０を使用しております。
２つのテキストフィールド（以下の例：数量・金額）において、
数量フィールドに値を入力後、Enterキーを実行することで、
金額フィールドに値を取得させることを実現しようとしております。
今、作成している画面の定義（プロパティ）は、次のとおりです。
（説明都合上、関連しそうな部分のみ記述します）
（１）数量フィールド（text_box）
オブジェクト名：Txt_suryo
maxlength ：３
（２）金額フィールド（text_box）
オブジェクト名：Txt_kingaku
maxlength ：１２
以下のコーディングで試してみました。
'-------------------------------------
Private Sub Txt_suryo_KeyPress(KeyAscii As Integer)
Dim tanka As Double '単価
Dim suryo As Integer '数量
Dim kingaku As Double '金額
suryo = Val(Txt_suryo)
If KeyAscii = vbKeyReturn Then
kingaku = suryo * wk_tanka '左記のwk_tankaは別ルーチンで取得済
Txt_kingaku.Text = kingaku
：
：
'-------------------------------------
数量フィールドに、２ケタの数値（例：９９）迄、入力した
場合（入力しEnterキー実行）、９９＊単価 が計算された値が、
金額フィールドに表示されます。
但し、数量フィールドに３桁を入力（例：１００）すると、
Enterキー実行で、金額フィールドに値がセットされません。
数量フィールドには、３ケタ迄で入力制限させたく、
maxlengthを３と設定しております。
初歩的なつまずきなのかもしれませんが、改善の手ほどきを
いただきたく、よろしく御願いいたします。