컴활 액세스 문제 풀자 (orderby, orderbyon)

(문제 출처 : https://m.cafe.daum.net/hermingway/ZYwR/38 )

 

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

 

​

 

이벤트 프로시저 작성

정렬 기능 구현

 

1)cmd오름

해당 폼을 열고나서

Alt+F11 눌러서 VBA창 열고,

Form_봉사내역관리 선택,

코드 보기 클릭,

cmd오름(객체), 클릭(이벤트) 선택하면 Sub프로시저(이벤트프로시저) 생성

이후 스크립트를 집어넣으면 됨.

Private Sub cmd오름_Click()
    'Me는 폼
    'OrderBy 속성은 [정렬 대상 필드] ASC(오름차순)/DESC(내림차순)
    Me.OrderBy = "시수 ASC" 

    'OrderByOn은 True일 경우, 위의 설정된 OrderBy속성을 적용시키겠다는 뜻
    OrderByOn = True
End Sub

 

 

2) cmd내림

폼의 코드보기 창에서

개체(cmd내림), 이벤트(Click)을 선택하면

자동적으로 이벤트프로시저 생성됨

그리고 스크립트 작성

Private Sub cmd내림_Click()
    'Me는 폼
    'OrderBy 속성은 [정렬 대상 필드] ASC(오름차순)/DESC(내림차순)
    Me.OrderBy = "시수 DESC" 

    'OrderByOn은 True일 경우, 위의 설정된 OrderBy속성을 적용시키겠다는 뜻
    OrderByOn = True
End Sub

 

 

 

 

<결과화면>