책 내용 질문하기
액세스 실전모의고사 a회 질문있습니다.
도서
2019 시나공 컴퓨터활용능력 1급 실기
페이지
422
조회수
188
작성일
2019-11-14
작성자
탈퇴*원
첨부파일

2-3에서

 

저는

MsgBox Time & "폼을 종료할까요?", vbYesNo + vbDefaultButton2, "거래처현황"

If  vbYes Then

DoCmd.Close , 거래처현황

End If

 

이렇게 썼는데 아니오를 눌러도 폼이 꺼지더라구요

근데 폼을 끄라고 명령을 한게 없으면 클릭해도 아무런 일이 안일어나야 하는거 아닌가요??

 

그리고

 

저기서

else vbno then

docmd.close, msgbox

이렇게 쓰면 정답이되나요?

명령어가 틀려도

아니오 눌렀을떄 창만 사라지고 아무것도 안되면 맞게되는 건가요?

 

그리고 어떨떄 선언하는지 알려주시면 감사드리겠습니다.

이전 질문들 찾아서 읽어봤는데 잘모르겠어요...

답변
2019-11-14 23:52:46

안녕하세요. 길벗 수험서 운영팀입니다.

 

아래와 같이 msgbox의 버튼 선택의 결과를 특정 변수로 받으셔야 합니다.

 

Private Sub cmd닫기_Click()
    Dim aa
    aa = MsgBox(Time & "폼을 종료할까요?", vbYesNo + vbDefaultButton2, Me.Caption)
    If aa = vbYes Then   <---- 받은 결과가 vbyes 버튼이냐라고 조건문으로 물어봐야 하는데 님꼐서 하신 방법 이게없죠.

       DoCmd.Close
    End If
End Sub

 

아래와 같이 해도 정상적인 작동이 안됩니다.

else vbno then

docmd.close, msgbox

 

 

행복한 하루 되세요.  

 

  • 관리자
    2019-11-14 23:52:46

    안녕하세요. 길벗 수험서 운영팀입니다.

     

    아래와 같이 msgbox의 버튼 선택의 결과를 특정 변수로 받으셔야 합니다.

     

    Private Sub cmd닫기_Click()
        Dim aa
        aa = MsgBox(Time & "폼을 종료할까요?", vbYesNo + vbDefaultButton2, Me.Caption)
        If aa = vbYes Then   <---- 받은 결과가 vbyes 버튼이냐라고 조건문으로 물어봐야 하는데 님꼐서 하신 방법 이게없죠.

           DoCmd.Close
        End If
    End Sub

     

    아래와 같이 해도 정상적인 작동이 안됩니다.

    else vbno then

    docmd.close, msgbox

     

     

    행복한 하루 되세요.  

     

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