MS 액세스의 숫자 곱하기

Question

두 열에서 가져온 두 개의 숫자를 곱하여 세 번째 열에 표시하려고합니다.

사용자가 숫자를 입력하는 두 개의 열과 사용자가 입력 한 숫자가 자동으로 곱 해지는 세 번째 열이 있습니다.

그러나 나는 이처럼 100 개의 텍스트 상자가 있으며 그 중 하나 하나마다 코드를 작성하고 싶지 않습니다.

Excel에서와 같이이 작업을 수행 할 수있는 방법이 있습니까? 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 

Answer 1

, 다음 디자인보기에서 양식을 열려면 Text05에 대한 속성 시트를 열려면 간단 할 것 : 여기

내가 모든 단일 텍스트 상자를 위해 쓸 필요가 무엇인가 텍스트 상자 (속성 시트의 Data 탭에서) Control Source 건물로 사용 :

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

이 그럼 당신은 GOT/포커스를 잃었 이벤트에 대한 VBA 코드를 필요가 없습니다. Text03 또는 Text04의 값이 변경 될 때마다 이 자동으로 업데이트 Text05이됩니다.