액세스 상시시험에서
msgbox 구현 문제가나왔는데
---------------------------
시간확인
----------------------------
현재 시간을 확인하시게습니까?
yes no
---------------------------- 를 구현하고 yes 를 누르면
---------------------------
확인
---------------------------
00시 00분 00초 입니다.
ok
--------------------------- msgbox를 구현하고 ok를 누를시 폼을 닫으세요
no를 입력시 그냥 폼을 닫으시오.
이런식의 문제였습니다. 제가 답을
dim aa
aa =msgbox("현재 시간을 확인하시겠습니까?", vbyesno, "시간확인")
if aa = yes then
msgbox "time()",vbokonly,"확인"
docmb.close 이 사이에 if를 또넣자니 저장공간을 어떻게
선언하는지도모르겠고 dim bb 이런식으로해도
되는건지 if를 넣는다해도
if ok then
docmd.close
else ?????????????? 이렇게된건지...ㅜㅜ
else
docmb.close
end if
이렇게 적었던거같은데 처음 msgbox는 잘뜨는데 yes를 누르면 다음 msg박스떴다가 바로 꺼지고
no 누르면 바로꺼지고 해서 뭔가 중간에 빠진게있는거 같은데 어떻게 프로시저를 작성해야할까요?
Private Sub Cmd닫기_Click()
Dim aa
aa = MsgBox("현재 시간을 확인하시겠습니까?", vbYesNo, "시간확인")
If aa = vbYes Then
MsgBox Time(), vbOKOnly, "확인"
DoCmd.Close
End If
End Sub
위와 같이 작성해 보세요.
좋은 하루 되세요.
"-
*2012-12-14 15:12:36
Private Sub Cmd닫기_Click()
Dim aa
aa = MsgBox("현재 시간을 확인하시겠습니까?", vbYesNo, "시간확인")
If aa = vbYes Then
MsgBox Time(), vbOKOnly, "확인"
DoCmd.Close
End If
End Sub
위와 같이 작성해 보세요.
좋은 하루 되세요.
"