컴퓨터활용능력 1급 액세스

invalid-file

2008년 2회 엑세스

 

문제1] DB구축(30점)

 

문제2] 입력 및 수정 기능 구현(25점)

 

3.  <구입기자재입력> 폼이 로드될 때 새로운 레코드가 나타나도록 설정하고 ‘T기자재명’ 컨트롤에 포커스가 위치하도록 이벤트 프로시저를 작성하시오. (5점)

  ▶ Docmd개체와 GotoRecord, SetFocus메서드를 이용하시오.

Private Sub Form_Load()

DoCmd.GoToRecord acDataForm, "구입기자재입력", acNewRec

T기자재명.SetFocus

End Sub

 

문제3] 조회 및 출력 기능 구현(25점)

 

 2.  <거래처관리> 폼의 ‘Cmd조회’ 버튼을 클릭하면 ‘Txt조회’에 입력된 문자와 ‘구입처’의 내용이 한 문자라도 일치하면 해당 정보가 나타나도록 이벤트 프로시저를 구현하시오. (5점)

   ▶ Filter, FilterOn 속성을 이용하여 이벤트 프로시저를 작성하시오.

Private Sub Cmd조회_Click()

Me.Filter = "구입처 like '*" & Txt조회 & "*'"

Me.FilterOn = True

End Sub

 3.  <거래처관리> 폼의 ‘Cmd인쇄’ 버튼을 클릭하면 ‘미리보기 할까요?’ 메시지와 ‘예(Y), 아니오(N)’ 버튼이 있는 메시지 상자가 나타나도록 이벤트 프로시저를 구현하시오. (5점)

   ▶ ‘예’버튼을 선택했을때만 <부서별구입기자재> 보고서가 ‘미리보기’ 형태로 출력되도록 하시오.

   ▶ 기본적으로 ‘아니오’ 버튼이 선택되더 있도록 설정하시오.

   ▶ 보고서 미리보기는 Docmd 개체를 이용하시오.

Private Sub Cmd인쇄_Click()

Dim a

a = MsgBox("미리보기 할까요?", vbYesNo + vbDefaultButton2)

If a = vbYes Then

DoCmd.OpenReport "부서별구입기자재", acViewPreview

End If

End Sub

 

문제4] 처리기능 구현(20점)

 

 3.  <거래처관리> 폼의 본문 영역의 ‘Txt구입처’ 컨트롤을 클릭하면 <팝업> 폼이 폼 보기 형태로 나타나도록 이벤트 프로시저를 작성하시오. (6점)

 ▶ <팝업> 폼의 ‘T구입처’ 컨트롤에는 <거래처관리> 폼의 본문 영역에 있는 ‘Txt구입처’의 값이 표시되고, ‘T 평균’ 컨트롤에는 <구입기자재목록> 하위 폼의 ‘Txt평균’의 값이 표시되도록 설정하시오.

 ▶ 단, <구입기자재목록> 하위 폼의 ‘Txt평균’ 컨트롤은 화면에 표시되지 않도록 설정되어 있음

 ▶ DoCmd 개체를 이용하시오.

Private Sub Txt구입처_Click()

DoCmd.OpenForm "팝업", acNormal

[Forms]![팝업]![t구입처] = [Txt구입처]

[Forms]![팝업]![t평균] = [Forms]![거래처관리]![구입기자재목록].Form![txt평균]

End Sub