[컴퓨터활용능력1급]수업 정리 8

<폼 속성>

폼 열었을 때 나타나는 오류
   - #Name? : 레코드 원본이 설정되지 않으면 나타나는 오류
             즉, 폼의 자료의 원본인 테이블이나 쿼리가 지정되지 않은 경우
 

폼 기본 보기 속성(64page)
   - 단일 폼 : 자료 하나씩 보기
            (레코드 탐색 단추나 명령단추로 다음 레코드로 이동)
   - 연속 폼 : 레코드 여러 개 보여주는 보기
                 (세로 스크롤바로 이동)
   - 데이터 시트 : 테이블의 데이터 시트 보기과 같은 형태
   - 분할 표시 폼 : 상단 폼(단일 폼)이고, 하단에 관련 자료가 테이블(데이터시트)처럼 보여지는 형태


테두리 스타일
   - 가늘게 = 폼의 크기 조정 불가능(조절 불가능)
   - 굵게 = 폼의 크기 조정 가능(조절 가능)


색상 - RGB(화면 색상)
  - #000000(검정) - #FFFFFF(흰색)
  - #C0C0C0(무채색-회색)  : 12632256

인쇄색상 - CMYK


모달
  - 현재 폼(창)을 닫기 전에는 다른 폼이나 개체 작업을 진행할 수 없도록 하는 기능
  - 개체 탐색기 자체가 닫힘.
  - 우선순위를 높혀서 다른 작업을 못함.
  - 기본값 : 모달리스(modalless)





<컨트롤 속성>

컨트롤 오류
  - 컨트롤이 하얗게 보이는 경우 : 컨트롤 원본이 설정되지 않은 경우
    즉, 각 컨트롤의 원본인 필드(쿼리나 테이블 필드)와 연결이나 지정되지 않는 경우,  디자인 보기 상태에서는 언바운드 컨트롤로 나타남.
 
예) 각 필드에 바운드 시켜라. 
                 각 필드를 컨트롤 원본으로 설정하세요.
     각 필드에 연결하세요.
            => 결과적으로는 텍스트 상자 컨트롤에 필드명이 보인다.
              (필드명은 컨트롤 이름과 다르게 지정되기 하고, 같을 수도 있다.)


계산 컨트롤 = 계산식이 입력된 텍스트 상자 컨트롤, 
  - 계산식은 컨트롤 원본에 입력하거나, 컨트롤에 수식을 직접 입력


텍스트 상자 컨트롤 = 입력란 컨트롤 = 필드 컨트롤 = 계산 컨트롤


컨트롤의 데이터를 편집하지 못하게 하는 경우
  - 데이터(자료) 보호 기능 : 데이터 탭-잠금-예로 설정
                  (데이터는 변경 불가능하지만, 컨트롤은 클릭 가능)


컨트롤에 포커스를 가질 수 없도록 하는 경우 
  - 컨트롤 사용하지 못하게 하는 기능, 커서나 탭이 지정 컨트롤로 들어가지 못함.(클릭이 안됨)
    데이터 탭-사용 가능-아니오로 설정



탭 순서 
  - 탭 설정은 텍스트 상자 컨트롤과 명령 단추에만 가능
  - 화면에 보이는 대로 순서를 할 경우 <자동 순서>를 지정하면 됨.
  - 자동 순서를 지정해도 순서가 맞지 않으면, 앞의 필드 선택기로 순서 변경(드래그)


1-7. 컨트롤 오른쪽 맞춤 : 정렬 탭 - 맞춤 - 오른쪽 - 텍스트 상자 컨트롤이 이동


1-8. 텍스트 오른쪽 맞춤 : 형식 탭 - 글꼴 - 오른쪽 맞춤 -텍스트 상자는 이동 안하고 텍스트만 이동


컨트롤 크기 : 가장 긴 길이로, 가장 넓은 너비로(왼쪽 설정만)
컨트롤 맞춤 : 위쪽/아래쪽->왼쪽/오른쪽
      

<폼 컨트롤 변경>

폼의 텍스트 상자 -> 마우스 오른쪽 변경 -> 콤보상자 컨트롤

행 원본 = rowsource

행 원본 유형 : 값목록, 테이블/쿼리, 필드목록

저장되는 열 = 바운드 열 = 연결되는 열 : 가져오신 순서에서 열번호


목록 값만 허용 -> 콤보 상자에서만 설정

여러 항목 선택 -> 목록 상자에서만 선택 가능


콤보상자가 문제 그림에서 가로 스크롤바가 있는 경우 -> 목록 너비 자동
콤보상자가 문제 그림에서 가로 스크롤바가 없는 경우 -> 목록 너비는 열 너비를 합친 크기로 설정(잘림없이 나타남)

콤보 상자 컨트롤 설정 사항
 : 데이터 원본(행 원본) 설정 필요
   행원본 유형 - 테이블/쿼리, 값목록(입력시), 필드목록
   연결(저장될) 열번호=바운드 열 번호-가져온(select) 필드 순서에서 지정
   열개수 - 가져온 필드 수만큼 설정
   열너비 순서대로 입력(열 너비를 숨길 경우 0cm)  
0cm;2cm (첫열은 숨기고, 두번째 열은 2cm)
0cm; (첫열은 숨기고, 두번째 열은 목록 너비만큼 자동 2.54cm)
         ;0cm (첫 열은 목록 너비만큼 자동, 두번째 열을 숨기기)

   목록 너비 : 열들의 너비를 합친 만큼하거나 자동으로 설정, 
                  잘리지 않게 설정하려면 열너비들의 합 이상(약간 커도 괜찮음).

   목록 값만 허용 : 행원본에 존재하는 것만 사용(콤보상자만 가능)



<출제유형2>

저장되는 열번호가 1이면 
행원본 : 데이터 입력 순서는 -1;남;0;여
행원본 유형 : 값목록
바운드열 : 1
열개수 : 2
열너비 : 0cm; (첫 열은 숨기고, 두번째 열너비 자동)

저장되는 열번호가 2이면 
행원본 : 데이터 입력 순서는 남;-1;여;0
행원본 유형 : 값목록 
바운드열 : 2
열개수 : 2
열너비 : ;0cm (첫 열너비 자동이고, 두번째 열을 숨김)




<보고서>
보고서 오류
  - #Name? : 레코드 원본(테이블/쿼리)이 설정(연결/바운드) 안됨
  - 컨트롤이 흰색 : 컨트롤 원본이 설정(연결/바운드) 안됨(디자인 보기 - 언바운드)


보고서 보기형태
- 보고서 보기 : 모든 페이지가 연결되어서 1페이지로 나타남(연속 용지)
- 디자인 보기 : 수정
- 인쇄미리 보기 : 인쇄용, 결과확인은 이 방법으로 해야 페이지 레이아웃이 확인
- 레이아웃 보기 : 자료를 확인하면서 너비, 위치 조정 가능



영역(구역)
- 보고서 머리글/바닥글 : 보고서의 맨앞/맨뒤, 보고서에서 한번만 보임.
보고서 바닥글에 sum을 실행하면 총합계가 나온다.

- 페이지 머리글/바닥글 : 매 페이지마다 반복되는 내용
페이지 머리글에 반복할 행 레이블 위치
페이지 바닥글에 페이지번호, 날짜 등 입력
페이지 바닥글에 sum을 실행하면 해당 페이지의 합계가 나타남.

- 그룹 머리글/바닥글 : 그룹의 맨앞, 맨뒤, 그룹의 갯수만큼 보임.
본문 바로 위가 그룹머리글, 본문 아래가 그룹바닥글


정렬 및 그룹화
- 정렬, 그룹화는 순서가 변경되면 보고서의 모양이 틀어지므로, 꼭 순서를 지킬 것.
- 정렬이나 그룹화 중 필드가 이미 한번이라도 설정(사용되고)되어 있는 필드가 있으면, 더이상 추가하지 말고, 설정되어 있는 필드는 변경만해서 적용
- 그룹화 설정은 '자세히'단추를 클릭해서 지정 머리글/바닥글을 표시


<Docmd 개체>

Docmd.OpenForm "폼이름", 보기형식(생략), 필터생략, "조건"

Docmd.OpenReport "보고서이름", 보기형식(인쇄미리보기), 필터생략, "조건"

Docmd.OpenQuery "쿼리이름"


   예) DoCmd.OpenForm "고객정보", , , "이름='" & txt조건 & "'"
    

 DoCmd.OpenReport "대여목록", acViewPreview, , 

 "대여일자>=#" & me.txt시작일 & "# and 대여일자<=#" & me.txt종료일 &  "#"


 "대여일자 between #" & me.txt시작일 & "# and #" & me.txt종료일 & "#"



<폼 종료시 저장 옵션>

DoCmd.Close 개체타입, "개체명", 저장 옵션

acSaveYes  : 무조건 저장
acSavePrompt  : 기본값, 선택 저장 -예/아니오/취소
acSaveNo : 무조건 저장 안함

예) DoCmd.Close acForm, "동아리정보", acSaveYes




<추출 - 조회>

 - filter, filteron

Me.Filter = "조건식"
Me.FilterOn = True


Me.Filter = "거래처명='" &  Me.Cmb거래처찾기 & "'"
     Me.FilterOn = True


Me.Filter = "year([구매일자])=" & Me.txt년 & 
" and month([구매일자])=" & Me.txt월 & 
" and day([구매일자])=" & Me.txt일
Me.FilterOn = True



- 조건
  "필드명=값"
  "상품명='모자'"   - 텍스트는 작은따옴표
  "수량>=10", 
  "매출일>=#2017-1-1#"  - 날짜는 #안에

  "수량>=10 and 수량<=20"   - 10~20


  "필드명=컨트롤명"  : 컨트롤명은 큰따옴표에 들어가지 못함.
  
  컨트롤명 = 텍스트 상자 컨트롤 이름, 콤보상자 컨트롤 이름

  "필드명=" & 컨트롤명 

  
  텍스트  : "필드명='컨트롤명'" => "필드명='" & 컨트롤명 & "'"
  
  숫자  : "필드명=컨트롤명"  => "필드명=" & 컨트롤명 
  
  날짜 : "필드명=#컨트롤명#"=> "필드명=#" & 컨트롤명 & "#"

  "필드명>=#" & 컨트롤명1 & "# and 필드명<=#" & 컨트롤명2 & "#"


  텍스트 일부 : "필드명 like '*" & 컨트롤명 & "*'"


   예) DoCmd.OpenForm "고객정보", , , "이름='" & txt조건 & "'"
    


 "대여일자>=#" & txt시작일 & "# and 대여일자<=#" & txt종료일 & "#"



- RecordsetClone, FindFirst, Bookmark
   
    Me.RecordsetClone.FindFirst "조건식"
    Me.Bookmark = Me.RecordsetClone.Bookmark



    Me.RecordsetClone.FindFirst "제품코드='" & Me.txt조회 & "'"
    : 조건에 맞는 레코드 집합을 복사한 후 첫번째 자리로 찾아가라.

    Me.Bookmark = Me.RecordsetClone.Bookmark
    : 복사본에서 찾은 첫번째 자리(에 있는 북마크)를 현재 폼에 표시해라.






 출제유형3.  ~~~'찾기(cmd찾기)' 버튼을 클릭하면
 <txt찾기에 입력된> 강좌명에 해당하는 ~~


- RecordSource
   (교재 124page SQL 참조)
 
  Me.RecordSource = "SQL"

  
  select */필드명 from 테이블명 where 조건식 order by 필드명 asc/desc


강좌명의 전체로 조회할 경우
 Me.RecordSource = "select * from 강좌 where 강좌명='" & Me.txt찾기 & "'"

강좌명의 일부분만으로 조회할 경우
 Me.RecordSource = "select * from 강좌 
  where 강좌명 like '*" & me.txt찾기 & "*'"




출제유형 7.
ApplyFilter 함수 - 매크로 작성기

  

    Me.txt대여횟수 = DCount("대여번호", "대여", 
"전화번호='" & Me.txt전화번호 & "'")
    
    Me.txt연체횟수 = DCount("대여번호", "대여", 
"전화번호='" & Me.txt전화번호 & "' and 연체료>0")


<프로시저 쿼리 실행>

Docmd.OpenQuery "쿼리명"  : 쿼리를 실행

Me.requery    : 폼 새로고침의 개념처럼 변형된 자료를 다시 적용



<프로시저 내에서 다른 프로시저 실행>

Call 프로시저명

(서브 프로그램 호출은 call)



- Docmd.RunSQL "insert~~~"

<MSGBOX 함수-180page>

형식1 : 메시지만 표시할 때 
= 선택사항이 없는 경우  = 확인 버튼만 존재(버튼이 여러 개가 아님) 
= 반환값이 필요없는 경우 = 변수가 불필요한 경우 = if구문 X

 - msgbox "메시지내용"

   msgbox "수고하셨습니다!!!"



형식2 : 반환값이 있는 경우 
= 선택사항 있는 경우 = 버튼 여러개(예/아니오/취소) 버튼이 존재
= 변수가 필요한 경우(버튼의 선택여부) = if 구문(변수 상태)이 나타남.
 

 - 변수 선언(생략가능)  : Dim a

 
 - a = msgbox("메시지내용", [아이콘종류+]버튼종류, [타이틀])
   : a는 메시지박스의 선택 사항의 값을 받는 변수
 

 - 변수 값에 따라 다르게 처리되므로 if문이 나타남.
   
if a=버튼종류(선택값) then 
   
처리문

    end if
   



 
<프로시저 내의 sql문 처리 - 182page >

Docmd.RUNSQL "sql문"

- 삽입  
  DoCmd.RunSQL "insert into 테이블명(필드명1, 필드명2....)
  values(컨트롤명1, 컨트롤명2....)"


  예) DoCmd.RunSQL "insert into 호봉기준(호봉, 기본급)  
       values('" & me.txt호봉 & "', " & me.txt기본급 & ")"

       Me.Requery





- 수정
  DoCmd.RunSQL "update 테이블명 set 필드명=변경값  
  where 필드명=컨트롤명"
 

 예) Docmd.RunSQL "update 호봉기준 set 기본급=" & txt기본급 &
      " where 호봉='" & txt호봉 & "'"

      Me.Requery




- 삭제
  DoCmd.RunSQL "delete from 테이블명 where 필드명=컨트롤명"

  예)DoCmd.RunSQL "delete from 호봉기준 where 호봉='" & txt호봉 & "'"
      me.requery



컨트롤 클리어-초기화(공란)으로 설정
Me.txt호봉 = ""
     Me.txt기본급 = ""