시나공

시험에

나오는 것만

공부한다!

[2015] 컴퓨터활용능력 1급 실기

C:＼컴활1급＼02액세스＼02 시험장따라하기＼1급 상시.accdb

2015 컴활1급 실기 액세스 274쪽(문제 219쪽)

문제 4

03 <근태입력> 폼의 '횟수(횟수)' 컨트롤에 포커스가 이동(Got Focus)하면 다음과 같은 메세지가

표시되도록 프로시저를 작성하시오.

▶ 메시지 상자에 횟수 3 이상이면 '감봉', 2이면 '경고대상', 그렇지 않으면 '보통'이라는 문자열을 추가하여

표시하시오.

정답(275쪽)

Private Sub 횟수_GotFocus()
If 횟수 >= 3 Then
MsgBox "감봉대상", vbOKOnly, "근태등급"
ElseIf 횟수 = 2 Then
MsgBox "경고대상", vbOKOnly, "근태등급"
Else
MsgBox "보통", vbOKOnly, "근태등급"
End If
End Sub

질문> 위 문제에서는 횟수 컨트롤을 클릭하면 메시지박스를 통해 '감봉', '경고대상' , '보통'을 나타내게

구현했는데,

MsgBox 대신에 ControlTipText 를 이용하여,

'횟수' 컨트롤에 마우스를 가져가면 마우스를 클릭하지않고도 관련 '팁'이 나타나게하는 방법을

알려주시면 고맙겠습니다.

위 정답을 아래와 같이 수정해서 폼을 실행해서 테스트해보니까 '횟수'컨트롤을 꼭 클릭해야 해당 팁이

나타납니다.

Private Sub 횟수_GotFocus()
If 횟수 >= 3 Then
횟수. ControlTipText = "감봉대상"
ElseIf 횟수 = 2 Then
횟수. ControlTipText = "경고대상"
Else
횟수. ControlTipText = "보통"
End If
End Sub

감사합니다!