질문은 맨 아래에 있습니다.
<기출 문제 응용>
2015년 1회 액세스 기출문제
201503_1급\15년1회1급E형\1급 E형 정답.accdb
문제4 처리 기능 구현 (pdf 파일 6쪽)
3. '납품내역' 폼의 'txt납품금애' 컨트롤을 더블클릭하면 <그림>과 같은 메시지 박스를 표시한 후 납품금액을
재계산하는 기능을 수행하는 이벤트 프로시저 구현.
▶ <예>를 클릭하면 현재 선택된 레코드의 납품금액을 재계산할 것.
▶ 납품금액 = 납품수량 X 납품단가
pdf 파일 15쪽 정답
Private Sub txt납품금액_DblClick(Cancel As Integer)
a = MsgBox("납품금액을 재계산 하시겠습니까?", vbYesNo)
If a = vbYes Then
txt납품금액 = txt납품수량 * txt납품단가
End If
End Sub
질문> 위 코딩을 아래와 같이 iif문으로 바꿨을 때, False 값에 무엇을 입력해야, 아무런 처리없이
현재 프로시저를 벗어나게할 수 있나요?
Private Sub txt납품금액_DblClick(Cancel As Integer)
a = MsgBox("납품금액을 재계산 하시겠습니까?", vbYesNo)
txt납품액= iif(a = vbYes, txt납품수량 * txt납품단가, False 값)
End Sub
감사합니다!
안녕하세요.
txt납품금액 컨트롤은 납품금액 필드와 연결되어 있으므로, iif문이 false일때 납품금액 필드의 값을 그대로 표시하면 되므로 아래와 같이 작성하면 됩니다.
txt납품금액 = IIf(a = vbYes, txt납품수량 * txt납품단가, [납품금액])
즐거운 하루 되세요.
-
*2016-09-19 10:21:54
안녕하세요.
txt납품금액 컨트롤은 납품금액 필드와 연결되어 있으므로, iif문이 false일때 납품금액 필드의 값을 그대로 표시하면 되므로 아래와 같이 작성하면 됩니다.
txt납품금액 = IIf(a = vbYes, txt납품수량 * txt납품단가, [납품금액])
즐거운 하루 되세요.