2019 이기적 기출문제집 컴퓨터활용능력 1급 실기
문제3 조회 및 출력 기능 구현
[기출 따라하기]
3-2 폼, Filter, FilterOn 이벤트 프로시저
문제: 부서번호가 cmb조회에서 선택 부서와 같은 레코드만 표시
정답:
Me.Filter = "부서번호 = '" & cmb조회 & "'"
Me.FilterOn = True
3-3 클릭 매크로 작성
(참고) Where 조건문 = [부서번호] = [Forms]![봉사부서관리]![cmb조회]
[기출 1회]
3-2 문제: 폼의 단추 클릭 시 메시지 상자 표시 / 예 단추 클릭 시 폼 종료
a = MsgBox("영업소이용관리 작업을 종료할까요?", vbYesNo, "")
If a = vbYes Then
DoCmd.Close acForm, "영업소이용관리"
End If
[기출 2회]
3-2 폼, 이벤트 프로시저
문제: 1) 입력 단추를 클릭하면 새 레코드가 추가2) 추가된 레코드의 txt봉사내용 컨트롤로 포커스가 이동
정답: 1) DoCmd.GoToRecord acDataForm, "봉사내역관리", acNewRec
2) txt봉사내용.SetFocus
의미: 1) 개체유형은 폼(acDataForm), 개체이름은 "봉사내역관리", 새 레코드로 만들것 (acNewRec)
2) txt봉사내용 컨트롤로 포커스 이동(SetFocus)
[기출 3회]
3-1 보고서 속성 (구역 전후 모르는 개념이었는데 어케 맞추긴 함)
씨앗코드 머리글의 속성 시트 > 페이지 바꿈 > '구역 전'
3-2 이벤트 프로시저, Filter
문제: 폼에서 'txt찾기' 컨트롤에 검색할 '씨앗명'의 일부를 입력한 후 찾기 단추 클릭하면~~
정답: Click 프로시저에서
Me.Filter = "씨앗명 like '*" & txt찾기 & "*'"
Me.FilterOn = True
3-3 매크로 작성
MessageBox 선택, 메시지 =Now() & “ 보고서를 인쇄합니다.” ※ Now 함수는 날짜랑 시간 같이 보여줌!
[기출 4회]
3-1 보고서
④ 현재 날짜와 시간 표시하시오 ~ format: 2018년 8월 1일 수요일
정답: 컨트롤 원본 속성 =Now()
형식 속성 '자세한 날짜'
※ Now: 현재 날짜와 시간, Time: 현재 날짜~둘다가능
3-2 폼, 이벤트 프로시저
문제: cmd_조회 버튼 클릭 시 cmd_소속 컨트롤에서 선택한 소속 정보만 표시할 것
정답: DoCmd.ApplyFilter , "소속 = '" & cmd_소속 & "'"
3-3 폼, 이벤트 프로시저
문제: cmd_인쇄 버튼 클릭 시 소속별 사원 보고서를 인쇄 미리 보기로 열 것. cmd_소속 컨트롤에서 선택한 것과 동일한 레코드를 표시할 것
정답: DoCmd.OpenReport "소속별 사원", acViewPreview, , "소속 = '" & cmd_소속 & "'"
[기출 5회]
3-1 보고서 완성
④ 바닥글 컨트롤에 현재 시스템의 날짜와 시간 표시
ex) 2018년 3월 5일 월요일 AM 6시 8분 5초
정답:
컨트롤원본 =Now()
형식 yyyy년 m월 d일 aaaa AM/PM h시 n분 s초
3-2 폼, 이벤트 프로시저
문제: cmd_제품명 컨트롤에서 선택한 값으로 조회
정답: DoCmd.ApplyFilter , "제품명 = '" & cmd_제품명 & "'"
3-3 폼, 매크로
문제: '제품별 매출 현황'보고서를 '인쇄 미리 보기'형태로 열 것
cmd_제품명 컨트롤에서 선택한 값에 해당하는 제품명 내역만을 대상으로 할 것
정답: 걍 매크로 작성 그대로 하면 됨 ㅇㅇ
조건식은 함 확인하기
[제품명]= Forms![매출]![cmd_제품명]
※ 폼의 값 가져오는 방법
현재폼: [컨트롤명] / 외부폼: [Forms]![폼이름]![컨트롤명] / 하위폼: [폼이름].Form![컨트롤명]
폼 본문은 계산 시 필드명, 컨트롤이름 OK / 폼 바닥글은 필드명ONLY OK
댓글