2014년 3회 컴활 1급 실기 문제4번에 3번문제 질문있습니다.
모범답안으로
Private Sub 심판관리_레이블_Click()
a = MsgBox("다른 심판 정보를 확인하겠습니까?", vbYesNo, "심판정보")
If a = vbYes Then
DoCmd.OpenForm "심판관리"
End If
End Sub
이렇게 나와있는데 이거 대신에
Private Sub 심판관리_레이블_Click()
MsgBox "다른 심판 정보를 확인하겠습니까?", vbYesNo, "심판정보"
If vbYes Then
DoCmd.OpenForm "심판관리"
End If
End Sub
이렇게 써도 되나요?
안녕하세요.
Private Sub 심판관리_레이블_Click()
MsgBox "다른 심판 정보를 확인하겠습니까?", vbYesNo, "심판정보"
If vbYes Then
DoCmd.OpenForm "심판관리"
End If
End Sub
이렇게 작성해 주시면 [아니요] 버튼을 눌러도 '심판관리' 폼이 나타납니다.
변수로 정확히 vbYes인지 확인하는 과정이 필요합니다.
좋은 하루 보내세요.
-
*2018-08-10 22:17:09
안녕하세요.
Private Sub 심판관리_레이블_Click()
MsgBox "다른 심판 정보를 확인하겠습니까?", vbYesNo, "심판정보"
If vbYes Then
DoCmd.OpenForm "심판관리"
End If
End Sub이렇게 작성해 주시면 [아니요] 버튼을 눌러도 '심판관리' 폼이 나타납니다.
변수로 정확히 vbYes인지 확인하는 과정이 필요합니다.
좋은 하루 보내세요.