드로우홀릭 더베이직
안녕하세요, 선생님
폼 계산 관련 문의 드립니다.
현재 오피스 2010사용하며, ADP를 이용하여 폼을 만들고 있습니다.
A 테이블의 B, C, D변수가 각각 존재하고,
A 폼에서 B,C를 입력하며 D필드에 자동으로 저장하고 싶은데요
컨트롤 원본으로 사용하니 D필드에 자동 저장되지 않으나 폼에서는 계산이 됩니다. 제가 원하는 건 D필드에 저장
=[B]+[C] => [C] 필드에 저장되어 보이고 테이블에도 저장되고 싶습니다.
그래서 VB에서 간단히 해보았는데요, 왜 안될까요? 아래와 같이 짜보았습니다.
답변 부탁 드립니다.
Option Compare Database
Private Sub S_ARWMC_RT_Sum()
Me.SATotalRt = Me.SAFRt + Me.SATRt + Me.SAPRt + Me.SAIRt + Me.SABRt
End Sub
Private Sub SATotalRt_AfterUpdate()
Call S_ARWMC_RT_Sum
혹시 vB방법을 알려주시고, 더 쉬운 방법이 있는지요?
테이블에 'SATotalRt ' 필드가 존재하나요?
이 테이블로 만든 폼에 아래 5개 항목을 더해서 'SATotalRt'필드로 저장하시려는것이 맞나요?
SAFRt, SATRt ,SAPRt, SAIRt, SABRt
일단 'SATotalRt' 이 필드가 바운드 콘트롤로 존재해야 합니다.
추가로 NZ함수를 써 주시기 바랍니다.
첨부한 파일은 제가 예제로 만든 것이니 한번 보시는 것이 좋겠습니다.
Option Compare Database
Option Explicit
Private Sub S_ARWMC_RT_Sum()
SATotalRt = Nz(SAFRt, 0) + Nz(SATRt, 0) + Nz(SAPRt, 0) + Nz(SAIRt, 0) + Nz(SABRt, 0)
End Sub
Private Sub SABRt_AfterUpdate()
Call S_ARWMC_RT_Sum
End Sub
Private Sub SAFRt_AfterUpdate()
Call S_ARWMC_RT_Sum
End Sub
Private Sub SAIRt_AfterUpdate()
Call S_ARWMC_RT_Sum
End Sub
Private Sub SAPRt_AfterUpdate()
Call S_ARWMC_RT_Sum
End Sub
Private Sub SATRt_AfterUpdate()
Call S_ARWMC_RT_Sum
End Sub
Private Sub SATotalRt_AfterUpdate()
Call S_ARWMC_RT_Sum