[데이터베이스] 컴활 1급 실기 풀기 (onGotFocus, 이벤트프로시저)

 

(문제 출처 : https://blog.naver.com/hellstudy/223302615932 )

​

​​​액세스 컴활 실기문제를 계속해서 풀어보자.

 

===

 

onGotFocus 이벤트 이해하고 풀기

 

 

 

주로 이벤트하면 클릭이벤트만 생각했는데

->onClick

포커스 역시 이벤트 장치할 수 있다.

->onGot(얻다)Focus(포커스)

 

 

우선 이벤트에 대한 이벤트프로시저를 선언

txt수량 컨트롤러 선택후

[이벤트]->[OnGotFocus]->이벤트 프로시저 선택하고

VBA창 열어준다.

 

 

그리고 VBA창에 생성된 sub프로시저에

다음과 같이 스크립트를 작성한다.

Private Sub txt수량_GotFocus()
    
    returnMsg = ""
    
    If txt수량 >= 10 Then
        returnMsg = "인기품종"
    ElseIf 10 > txt수량 And txt수량 >= 6 Then
        returnMsg = "보통품종"
    Else
        returnMsg = "비인기품종"
    End If
    
    MsgBox returnMsg, , "인기도분석"
    
End Sub

 

 

참고 1) elseif구문 위의 조건이 충족하지 않은 상태에서 다른 조건을 제시할 경우 쓰인다.

참고 2) MsgBox의 3번째 인자 속성이 경고창의 타이틀

 

<결과>