[컴활1급] 엑세스, 메시지 박스 작성하는 방법

닫기(cmd닫기) 버튼을 클릭하면 위와 같은 메시지 상자가 뜨고 예 버튼을 누를때만 현재 폼이 닫히도록 구현하시오.


디자인보기 모드에서 - 닫기 우클릭- 이벤트작성-코드작성기 로 들어갑니다.

위와 같은 창이 뜨면

Dim a
a = MsgBox("폼을 닫으시겠습니까?", vbqestion + vbYesNoCancel, "폼 닫기 확인")

If a = vbYes Then
    DoCmd.Close

End If

이렇게 입력해주세요. 그럼 문제에서 나왔던

이 메시지 박스가 뜹니다.




dim a는 위의 문제처럼 예,아니오 같은 버튼이 있고 예를 누를 때 폼이 닫히게 만드는 경우 임시저장공간을 주기 위해 사용하는데요, a라는 알파벳 대신 마음에 드는 아무거나 사용해도 됩니다. ^^

그리고 예,아니오와 같은 버튼이 없고 단순히 메시지 박스만 뜨게 하는 경우에는 MsgBox 다음에 괄호 없이 바로 입력하면 됩니다. 반환할 값이 없기 때문에 if 함수도 당연히 사용하지 않구요.

MsgBox "폼을 닫으시겠습니까?", vbOKOnly, "폼 닫기 화면"

그럼 이렇게 메시지 박스가 뜨게 되죠.



참고로,
메시지 박스 왼쪽에 있는 물음표나 느낌표 같은 기호의 이름은 아래와 같습니다^^