[ 너도나도 컴활 자격증 쉽게 취득 가능! ] 3. 조회 및 출력 기능구현_조회작업
조회 작업는 함수 7가지만 이해하면 된다.
1. Filter, FilterOn 속성 = 선택 클릭
Fiter, FiterOn 문제에서 뽑아낼 핵심 키워드 : 선택과 불러오기
How) 어떻게 사용하나?
Me.Filter = 조건식
Me.FilterOn =True
TIP) 함수에 대해 걱정할 필요 없다.
문제에서 어떤 함수를 쓰라고 나와있을 것이다.
&는 연결해주는 역할이다.
Private.Sub.cmd찾기_Click( )
Me.Filter="거래처명='"& cmb거래처찾기 &"'"
Me.FiterOn=True
End Sub
핵 중요포인트)
Me.Filter="거래처명='"& cmb거래처찾기 &"'"
~를 ~에서ex) ~폼의 ~에서 ~거래처를 선택하고, (cmd찾기) 버튼을 클릭하면 선택된 거래처 해당하는 '구매내역' 레코드 정보를 보여주는 기능을 수행하도록 구현하시오.
![]() |
| < 1. 이벤트 프로시저 클릭 2. cmd찾기 속성시트 -> On click(= 찾기 버튼 클릭 ) -> 우측 상단 빨간네모 박스 클릭 > |
![]() |
| < 아래 공식대로 입력 > |
Me.FilterOn =True
Private.Sub.cmd찾기_Click( )
Me.Filter="거래처명='"& cmb거래처찾기 &"'"
Me.FiterOn=True
End Sub
2. RecordsetClone, FindFirst, Bookmark = 책갈피
<제품별조회> 폼의 상단에 있는 'txt조회' 컨트롤에 제품코드를 입력하고, '찾기(cmd찾기)' 버튼을 클릭하면 입력된 제품코드에 해당하는 제품 레코드 정보를 보여주는 기능을 수행하도록 구현하시오.
Me.RecordsetClone.FindFirst 조건식
Me.Bookmark = Me.RecordsetClone.Bookmark
![]() |
| < 1. 이벤트 프로시저 클릭 2. cmd찾기 속성시트 -> On click(= 찾기 버튼 클릭 ) -> 우측 상단 빨간네모 박스 클릭 > |
Private Sub cmd찾기_Click()
Me.RecordsetClone.FindFirst "제품코드='" & txt조회 & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
3. RecordSource
<강좌정보찾기> 폼의 '찾기(cmd찾기)' 버튼을 클릭하면 '강좌명'에 해당하는 강좌정보 레코드를 보여주는 기능을 수행하시오.
단, 현재 폼의 RecordSource 속성을 이용한 레코드 원본 재설정 방식으로 이벤트 프로시저를 작성하시오. 또한, 정확한 강좌명을 입력할 때만 찾을 수 있도록 하시오.
강좌정보 해당코드 정보 -> from -> 강좌
Private Sub cmd찾기_Click()
Me.RecordSource = "Select문 where 조건식
End Sub
![]() |
| < 1. 이벤트 프로시저 클릭 2. cmd찾기 속성시트 -> On click(= 찾기 버튼 클릭 ) -> 우측 상단 빨간네모 박스 클릭 > |
Me.RecordSource = "Select*from 강좌 where 강좌명 = '" & txt찾기 & "'"
End Sub
4. DoCmd
5. DoCmd.OpenForm
6. DoCmd.OpenReport
7. ApllyFilter



댓글
댓글 쓰기