2

2つの列から取得した2つの数値を乗算して、3番目の列に表示できるようにしたいと思います。

ユーザーが数字を入力する2つの列と、ユーザーがEnterキーを押すと自動的に数字を乗算する3番目の列があります。

しかし、私はこれらのような100個のテキストボックスを持っており、それらのすべてのコードを書きたくありません。

Excelのようにこの操作を実行する方法はありますか？エクセルでそれを行うのは本当に簡単です。

これが私がすべてのテキストボックスのために書かなければならないことです：

Private Sub Text03_GotFocus()
Text05.Value = Val(Text03.Value) * Val(Text04.Value) * 12
End Sub

Private Sub Text03_LostFocus()
Text05.Value = Val(Text03.Value) * Val(Text04.Value) * 12
End Sub

Private Sub Text04_GotFocus()
Text05.Value = Val(Text03.Value) * Val(Text04.Value) * 12
End Sub

Private Sub Text04_LostFocus()
Text05.Value = Val(Text03.Value) * Val(Text04.Value) * (12)
End Sub
4

1 に答える 1

1

あなたの状況を正しく理解していれば、フォームをデザイン ビューで開き、Text05テキスト ボックスのプロパティ シートを開き、これをControl Sourceプロパティとして使用する方が簡単です (Dataプロパティ シートのタブで)。

= Val([Text03]) * Val([Text04]) * 12

そうすれば、get/lost フォーカス イベント用の VBA コードは必要ありません。Access は、または値が変更されるたびに自動的に更新されます。Text05Text03Text04

于 2012-06-05T14:44:43.587 に答える