시나공

시험에

나오는 것만

공부한다!

폼의 컨트롤 클릭시 MsgBox로 출력을 나타내는 프로시저를 컨트롤팁텍스트로 나타나게 하기 위하여

프로시저를 수정해서 해봤는데,

처음 선택된 레코드의 컨트롤 결과 값이 다른 컨트롤에 계속 나타납니다.

지난번 답변에서 컨트롤팁텍스트가 잘 나타난다고 하셨는데,

아래와 같이 프로시저를 수정작성한 것만으로는 컨트롤팁텍스트가 제대로 작동되지않습니다.

다른 컨트롤의 컨트롤팁 텍스트 결과는 이전에 선택또는 클릭한 결과가 계속 나타날 뿐입니다.

클릭할 필요없이 횟수 컨트롤 위로 마우스를 가져가기만 하면 컨트롤팁텍스트가 나타나게 하는 방법

좀 알려주세요!

감사합니다!

아래는 지난 번 질문 내용입니다.

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

[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

감사합니다!