시나공

시험에

나오는 것만

공부한다!

203~204쪽
4번과 5번 문제 메세지 박스 생성에서
Dim으로 변수 선언 하는 경우와 안하는 경우는 어떤건지
메시지 박스 생성시 MsgBox( 처럼 괄호를 여는 경우와
MsgBox " 처럼 " 쌍따옴표를 쓰는 경우는 어떤 것 때문에 그렇게 쓰나요??

204쪽 정답

---------------------------------------------------------------------

Private Sub cmd종료_Click()
Dim aa
aa = MsgBox(Time & " 종료할까요?", vbYesNo + vbDefaultButton2, " ")
If aa = vbYes Then
DoCmd.Close
End If
End Sub

---------------------------------------------------------------------

205쪽 정답

-----------------------------------------------

Private Sub 납품수량_GotFocus()
If 납품수량 >= 100 Then
MsgBox "우량 납품처", vbOKOnly, "거래처등급"
ElseIf 납품수량 >= 50 Then
MsgBox "일반 납품처", vbOKOnly, "거래처등급"
Else
MsgBox "불량 납품처", vbOKOnly, "거래처등급"
End If
End Sub

-----------------------------------------------

제가 205쪽 처음에 풀때 204쪽 4번문제 생각해서

---------------------------------------------------

Private Sub 납품수량_GotFocus()
Dim aa
If 납품수량 >= 100 Then
aa = MsgBox("우량 납품처", vbOKOnly, "거래처등급")
ElseIf 납품수량 >= 50 Then
aa = MsgBox("일반 납품처", vbOKOnly, "거래처등급")
Else
aa = MsgBox("불량 납품처", vbOKOnly, "거래처등급")
End If
End Sub

---------------------------------------------------
이렇게 풀었거든요...