컴퓨터활용능력1급/컴활1급 실기

취성패_컴활1급_22일차 <최신기출문제2,3,4회>

삼토 2016. 12. 21. 18:36

최신기출문제2회


outputto

inputbox


문제2
<2>
filteron은 filter를 활성화 시키는 기능.
따라서 필터제거를 위해서는
: filteron = false 만 써주면 ok


<3>
* close
 : 개체유형 및 이름 생략시 현재의 열려있는 폼을 닫는

 

input박스 이용해 폼이 열리기 전에 암호 폼 열리게 하

고 싶다면
: 전체 폼 속성의 on open이벤트에서 시작하기
a = inputbox("암호를 입력하라")

* on open V.S. on load
 : on load 가 실행되는 속도가 더 빠르다(on

open보다 선행)

 

문제3

<1>

* 현재 날짜 및 시간까지 표시하는 함수
: 엑셀하고 똑같이 NOW()쓴다

(cf. 엑셀의 today()는 액세스에서 date(),
엑셀의 date(년,월,일)는 액세스의 dateserial(년,월,

일))


* 날짜 형식 만들기
: yyyy년 mm월 dd일 aaaa hh:mm:ss (24시간)
액세스는 소문자로 써주기. (대소문자 구별 잘하기)

yyyy년 mm월 dd일 aaaa ampm hh:mm:ss
(ampm : 한국어로 오전오후)

 


<2>
<3> 알아서 푸세염!

 

 

문제4
<1>
Docmd.runsql "delete * from 학과 where 학과코드 =

'" & txt_학과코드 & "'"
where조건 하에서 학과 테이블로부터 모든 레코드를 삭


(where이하가 없으면 그냥 모든 레코드 삭제임)

 ※ 이런 문제는 시험장에서 삭제실행까지는 하지 말 것


<2>
1. 학생이 수강하지 않은 학과를 표시하려면:
학과코드를 끌어온 후 표시 해제.
조건행에 Not in (select 학과 from 학생)

학생 테이블의 학과 필드는 행원본이 2개이지만,
바운드 된 것은 실제로 학과코드이므로
저렇게 써도 되는 것.

※※ 2. 관계-조인속성을 반드시 확인할 것.
: '두 테이블의 조인한 필드가 일치하는 행만 포함'에

체크가 되어있으면 안된다.
두번째 속성에 체크되어있어야 함.
('학과'에서는 모든 레코드가, '학생'에서는 조인된 필

드가 일치하는 레코드만 포함)
 

 


<3>
조건에 규칙을 작성할 것:


조건 : ([중간고사]+[기말고사]+[출석점수])/3>=90

 

 

* 필터에서의 조건문과 인쇄에서의 조건문은 따로 논다.
(즉, 필터에서 조건문 설정했어도 인쇄에서 따로 설정하

지 않으면 필터링되어 뜨진 않음)

 

 

최신기출3

문제1
<1>-3
필수라는 말이 없으므로 L이든 ?든 상관없음(숫자는 0이

든 9든 상관없음)
: L00-000;0;#


<2> 관계
관계 편집창에서 아래에 '일대다관계'라고 뜨면 관계 만

들 수 있는 것

 

<3> 다시 풀 것!!!!!총체적 난국임
보이지 않더라도 열개수는 항상 2개로 해줄 것.

 


문제2

<1>-1

* 기본보기는 리본메뉴의 '보기'를 설정하는 것
* 왜 단일폼이지?
: 필드선택기가 하나만 보이면 무조건 단일폼
  연속폼은 필드 선택기가 여러개로 나뉘어져 있음


<1>-3
[복습要] 액세스의 Dsum함수의 조건 쓰기

* =dsum("[필드명]","개체명","[필드]=[컨트롤]")

답:

=DSum("[재고]","제품","[번호]='" & [txt번호] & "'")

 

<2>
[복습要] 조건부서식이 행단위로 적용되려면?

right(


<3>
[복습要] 닫기 이벤트프로시저 복습
답:
DoCmd.Close , , acSaveYes
내 오답:
DoCmd.Close acForm, 컨트롤, acSaveYes

 

문제3
<1> -1
그룹 머리글 구역의 데이터가 다음 페이지로 넘어가더라

도, 그 내용이 계속 표시되도록 : 반복실행구역

<1>-2
그룹별로 일련번호
: '누적합계' - 그룹별,
그런데 컨트롤 원본에 1이 안써짐
--> =1 이라고 써야지 바보야

 

<1>-3
중복내용 숨기기

<1>-4
그룹별 재고 총합: sum 사용


<2>

* <포함>한다면 연산자'=' 대신 'Like'를 써준다
 : Me.filter = "넘버 Like *txt조회*"
-> Me.filter = "넘버 Like '*txt조회*'"
([tip] *도 검색하는 것에 포함되므로 문자로 나올 것.
    따라서 ' ' 안에 넣어준다)
-> Me.filter = "넘버 Like '*" & txt조회 & "*'"

[tip] 명령어 형식의 연산자는 반드시 앞과 뒤를 띄어

주는 것 잊지 말자

 

 
내 오답:(제대로 작동되긴 함) *을 ''밖에 넣음
Me.Filter = "넘버 like '*" & txt조회 & "*'"
Me.FilterOn = True

 


<3>
정답:
a = MsgBox("재고리포트를 보시겠습니까?", vbOKOnly +

vbInformation)

DoCmd.OpenReport "재고R", acViewPreview


※ 인포메이션 아이콘 : vbinformation

 


문제4

<1>
번호별: Left([번호],3)


※ 점수총합 : [점수]


<2>
틀림: 다시하기

 

<3>
* 컨트롤의 내용이 변경되면 동작하는 이벤트 프로시저
: before update 이벤트


* 조건 불만족 시 아무일도 일어나게 하지 않으려면,

else절을 쓰지 않는다!

답:
Private Sub t관리인_BeforeUpdate(Cancel As

Integer)

a = MsgBox("패널티를 부여하겠습니까?", vbYesNok, "

패널티")

If a = vbYes Then

    If 점수 >= 90 Then
   
        점수 = 점수 - 1
       
    End If
   
End If

 

 

최신기출문제 4회

<모르겠는 문제>

 

'출판여부'필드에 y,n이외의 값 입력되지 않게 데이터

형식을 설정하시오

문제2
<2> 조건부서식


문제3
<1>-1 =[IBSN] & "/" & [회원ID]썼더니 자꾸 매개변수

뜸 ---> =[ISBN] & "/" & [회원ID] 이게 맞는 것.
(필드명 오타)

 

문제3
<1>-4

=iif([대여일자]<=2015-3-1,count(*),"0") --> (x)

= dcount("[대여일자]","자료종합","[대여일자]<=#" &

2015-3-1 & "#") --> (x)

 

 

 

 

<아릿까릿한 문제>
문제2
<1>-5
잘 구현됨.