2019 이기적 기출문제집 컴퓨터활용능력 1급 실기
문제4 처리 기능 구현
[기출 따라하기]
4-3 폼 이벤트 프로시저 MsgBox
문제: 클릭 시 메시지 팝업 (현재 폼 이름 & 문구)
정답:
MsgBox Me.Name & " 작업을 종료합니다"
DoCmd.Close
[기출 1회]
4-1 쿼리 작성
문제: 통행요금, 지역정보 테이블 이용 / 두 테이블의 조인된 필드가 일치하는 행만 포함하도록 설정 /
출퇴근할인요금은 요금에 20% 할인율 적용한 금액으로 나타내시오 / 매개 변수 그림으로 주어짐
정답: 조인 속성 > ‘두 테이블의 조인된 필드가 일치하는 행만 포함’ 설정
영업소주소 필드의 조건에 입력 > Like "*" & [주소의 일부를 입력하세요] & "*"
[기출 2회]
4-1 쿼리 작성 및 실행 ※ 기존 쿼리를 이용
문제: 1) 학과명 일부를 매개 변수로 입력
2) 새 테이블 생성하는 쿼리 작성 및 실행
1) 매개 변수 입력 위해, 필드 추가 시 '학과'도 추가
단 체크표시 해제! 그리고 조건 행에 다음 입력
Like "*" & [조회할 학과명의 일부를 입력]& "*"
2) 쿼리에서 우클릭 > 쿼리 유형 중 [테이블 만들기] 클릭
쿼리 저장 후 꼭 실행하기!!
4-3 폼 이벤트 프로시저, OrderBy, OrderByOn
문제: 특정 단추들 클릭시 정렬하는 이벤트 프로시저
정답
Me.OrderBy = "필드" > 오름차순 정렬
Me.OrderBy = "필드 desc" > 내림차순 정렬
Me.OrderByOn = True > 정렬 적용되도록 함
[기출 3회]
4-1 매개변수 쿼리 작성
※ If가 아니라, IIf 함수!
※ 형식 주의하기. 통화, 소수자릿수 등
※ 속성 시트에서 소수 자릿수 안보임 > 데이터시트보기 후 다시 디자인보기
4-3 폼 이벤트 프로시저 If~ElseIf
정답: MsgBox "내용", 버튼종류, "제목"
If txt수량 >=10 Then
MsgBox "인기품종", , "인기도분석"
ElseIf txt수량 >=6 Then
MsgBox "보통품종", , "인기도분석"
Else
MsgBox "비인기품종", , "인기도분석"
End If
[기출 4회]
4-1 합계 표시하는 쿼리
틀린 부분: 별명 안달아줌 / 합계 계산 안함 / 그림 꼭 잘보기.....
조건은 잘 달아줬음
4-2 없는 레코드 검색 쿼리
문제: ‘사원’ 테이블의 레코드 중 ‘관리’ 테이블에 없는 레코드를 검색하는 쿼리 작성하시오
* '관리' 테이블에 존재하지 않는 'ID'레코드를 검색
> 조인 속성 변경 안해서 틀림!
정답: 조인 선택~ '사원'에서는 모든 레코드 포함하고, '관리'에서는 조인된 필드가 일치하는 레코드만 포함
ID 필드 조건에 입력: Not In (Select ID From 관리)
4-3 폼, 이벤트 프로시저
문제: txt_ID 컨트롤에 표시된 ID에 해당하는 '나이'와 '전화번호'를 txt_나이, txt_전화번호 컨트롤에 표시할 것
정답:
txt_나이 = 나이
txt_전화번호 = 전화번호
※ 2-2 SQL문과의 차이점(SQL 아예 X 오답정리안함): 2-2문제는 ‘컨트롤에 입력된 값이 ##테이블의 필드에 저장되도록 할 것’
이 문제는 ‘txt 나이’ 컨트롤에 표시할 것’
[기출 5회]
4-1 쿼리 작성, Is Null 조건 (*조인 & 조건 넣는 필드 헷갈림)
문제: 매출, 제품 테이블을 이용하여 미리보기처럼 결과를 표시하는 쿼리 작성하기
매출건수가 없는 제품명에 대한 ‘제품구분’별 건수를 표시할 것
정답: 조인 더블클릭해서 '제품' 테이블만 모든 레코드 포함하도록 2번으로 변경
4-2 폼, 이벤트 프로시저
문제: txt_제품명 컨트롤에서 선택한 ‘제품명’에 해당하는 ‘구입단가’ 값을 찾아 txt_구입단가 컨트롤에 표시할 것
txt_순이익 컨트롤에는 현재 폼의 레코드 원본 고려, 판매단가에서 구입단가 뺀 값 표시할 것
정답
txt_구입단가 = 구입단가
txt_순이익 = 판매단가 - 구입단가
4-3 쿼리 작성
1) ‘제품구매기준’ 쿼리는 ‘제품’ 테이블을 이용하여 작성하고, ‘제품명’의 일부를 매개 변수로 입력받아 결과 표시 / ‘구입단가’가 650000원 이상이면 ‘보류, 나머지 경우는 ‘구매’로 표시할 것
2) ‘하반기실적(6월30일포함)’ 쿼리는 ‘매출’ 테이블 이용
2002년 하반기 (단 6/30포함)에 해당하는 매출 자료 표시
DateAdd 함수 사용할 것
[기출 6회]
4-1 이벤트프로시저, 메시지 상자
문제: ‘txt_암호’에 입력한 문자가 “1234”이면 ‘회원정보’폼을 열고, 아니면 “문구” 상자 표시
정답:
If Me.txt_암호 = "1234" Then
DoCmd.OpenForm "회원정보", acNormal
Else
MsgBox ("암호가 잘못입력되었습니다!")
End If
4-2 쿼리 작성
문제: 가입내역, 회원신상명세 테이블 이용
2003년 6월 30일 이후에 가입한 회원들의 부가서비스별 인원 조회하는 쿼리 작성
[기출 7회]
1-3 저장 매크로
ExportWithFormatting
=InputBox(prompt, 제목표시줄, 입력란 표시 문자열)
=InputBox("저장할 파일이름을 쓰시오" & Chr(13) & "C:\학생테이블.xlsx로 저장하시오", >여기까지 prompt(2줄)
"내보내기","C:\학생테이블.xlsx")
3-1 보고서 완성
컨트롤원본 =Now()
형식 yyyy년 mm월 dd일 aaaa ampm h:nn:ss
3-2 매크로, Applyfilter
Where 조건문 =[Forms]![성적관리]![lst학과]=[성적관리]![학과]![학과]
4-2 쿼리 작성
[기출8회]
3-2 폼, 프로시저
Filter = "넘버 like '*" & txt조회 & "*'"
FilterOn = True
3-3 폼, 프로시저
MsgBox "재고리포트를 보시겠습니까?", vbInformation
DoCmd.OpenReport "재고R", acViewPreview
4-3 폼, 프로시저
a = MsgBox("패널티를 부여하시겠습니까?", vbYesNo, "패널티")
If a = vbYes And 점수 >= 90 Then
점수 = 점수 - 1
Else
DoCmd.CancelEvent
End If
댓글