책 내용 질문하기
2015/4/18 액세스
도서
2018 시나공 컴퓨터활용능력 1급 실기(엑셀, 액세스 2010 사용자용)
페이지
16
조회수
545
작성일
2019-03-18
작성자
탈퇴*원
첨부파일

문제 4번의 3번을 이렇게 작성해도 무방한가요?

Private Sub txt납품금액_DblClick(Cancel As Integer)
Dim aa
aa = MsgBox("납품금액을 재계산 하시겠습니까?", vbYesNo)
If aa = vbOK Then
txt납품금액 = txt납품수량 * txt납품단가
End If
End Sub 

답변
2019-03-19 21:42:26

안녕하세요.

 

액세스 문제인데 엑셀을 첨부해 주셨네요.

 

변수는 aa로 사용하셔도 무방하지만,

vbyesno로 버튼이 설정되었기 때문에

IF 문에서 vbOK가 아닌 vbYes로 비교해 주셔야 정확한 결과가 나옵니다.

 

좋은 하루 보내세요. 

  • 관리자
    2019-03-19 21:42:26

    안녕하세요.

     

    액세스 문제인데 엑셀을 첨부해 주셨네요.

     

    변수는 aa로 사용하셔도 무방하지만,

    vbyesno로 버튼이 설정되었기 때문에

    IF 문에서 vbOK가 아닌 vbYes로 비교해 주셔야 정확한 결과가 나옵니다.

     

    좋은 하루 보내세요. 

· 5MB 이하의 zip, 문서, 이미지 파일만 가능합니다.
· 폭언, 욕설, 비방 등은 관리자에 의해 경고없이 삭제됩니다.