엑세스 66점받고 첫시험 떨어져서 충격먹고 띵까띵까 놀다가 3주뒤에 다시 신청해서 1주일 정도 더 공부했을때 본거

엑세스 코드 정리

1회

-‘날짜’ 필드에는 새 레코드 추가 시 기본적으로 오늘 날짜 다음 날이 표시되도록 설정하되, 시간을 제외하는 함수를 사용

=>기본값 : Dateadd(“d”,1,date()) - “=”은 붙이지 X

<!--[if !supportEmptyParas]--> <!--[endif]-->

-오름차순 : 그냥 필드명 / 내림차순 : 필드명 Desc

<!--[if !supportEmptyParas]--> <!--[endif]-->

-‘거래처현황’ 폼의 ‘닫기’ 버튼을 클릭하면 현재 시간과 ‘폼을 종료할까요?’라는 메시지, 그리고 “예(Y), 아니오(N)” 버튼이 있는 메시지 상자가 그림과 같이 나타나도록 이벤트 프로시저를 구현 ( 예 버튼을 선택했을 때 폼을 종료, 기본적으로 아니오버튼)

=> aa = MsgBox(Time()&“ 폼을 종료할까요?”, vbYesNo+vbdefaultbutton2, “”)

If aa = vbYes then

Docmd.Close

End if

<!--[if !supportEmptyParas]--> <!--[endif]-->

-현재 날짜가 2014년 7월 24일이면 ‘2014年 07月 24日’과 같이 표시

=> =format(date(), “yyyy年 mm月 dd日”)

<!--[if !supportEmptyParas]--> <!--[endif]-->

-거래처현황 폼에서 폼 머리글의 ‘txt매출번호1’ 컨트롤에 매출번호를 입력하고, 조회버튼을 클릭하면 입력된 매출번호에 해당하는 레코드로 옮겨가서 정보를 보여 주는 기능을 수행하도록 구현.(조건에 맞는 레코드가 여러 개 있는 경우 첫 번째로 일치하는 레코드를 찾을 수 있도록)

<!--[if !supportEmptyParas]--> <!--[endif]-->

=> Me.Recordsetclone.findfirst “매출번호=”&txt매출번호1

Me.Bookmark = Me.Recordsetclone.Bookmark

<!--[if !supportEmptyParas]--> <!--[endif]-->

Where조건문

[거래처명] = [forms]![보고서출력]![cmb거래처]

<!--[if !supportEmptyParas]--> <!--[endif]-->

거래처현황 폼의 txt공급가액 컨트롤에 포커스가 이동(Got focus)하면 다음과 같은 기능을 수행하도록 이벤트 프로시저를 구현

=> If txt공급가액 >= 70000 then

Msgbox “VIP”, vbokonly, “등급”

Elsief txt공급가액 >= 50000 then

Msgbox “우수”, vbokonly, “등급”

Else

Msgbox “일반”,vbokonly, “등급”

<!--[if !supportEmptyParas]--> <!--[endif]-->

<!--[if !supportEmptyParas]--> <!--[endif]-->

<!--[if !supportEmptyParas]--> <!--[endif]-->

2회

-제품코드 필드는 3번째 자리에 입력되는 ‘-’이후에 반드시 3자리가 입력되도록 유효성 검사 규칙을 설정하시오.

=>Len([제품코드])-Instr([제품코드],“-”)=3

<!--[if !supportEmptyParas]--> <!--[endif]-->

폼 바닥글의 txt반품수에는 현재 소매점명(txt소매점명)의 반품된 레코드 수가, ‘txt총액’에는 현재 선택된 소매점명의 “반품가격”의 총 합계가 표시되도록 설정=>

=Dcount(“제품코드”,“소매점별반품”,“소매점명=txt소매점명”)

=Dsum(“반품금액”,“소매점별반품”,“소매점명=txt소매점명”)

<!--[if !supportEmptyParas]--> <!--[endif]-->

소매점관리 폼의 ‘추가’ 버튼(cmb추가)을 클릭할 때 입력한 소매점드르이 정보들을 소매점2 테이블에 추가되도록 하고 새로운 값을 입력받을 수 있도록 각 컨트롤에 입력된 내용을 지움

<!--[if !supportEmptyParas]--> <!--[endif]-->

=>Docmd.RunSQL “insert into 소매점2(소매점코드, 소매점명, 연락처, 평균매출액, 등급) values(cmb소매점코드, txt소매점명, txt연락처, txt평균매출액, txt등급)”

cmb소매점코드 = “”

txt소매점명 =“”

txt연락처 = “”

txt평균매출액 = “”

txt등급 = “”

<!--[if !supportEmptyParas]--> <!--[endif]-->

반품관리 폼이 활성화(Activate)되면 ‘txt판매단가’ 컨트롤에 포커스가 이동하고, 글꼴 크기가 11포인트로 변경되도록 이벤트 프로시저를 구현

=>Private Sub Form_Activate()

txt판매단가.Gotfocus

txt판매단가.Font.Size = 11

End Sub

<!--[if !supportEmptyParas]--> <!--[endif]-->

반품관리 폼의 cmb입력을 클릭하면 새 레코드가 추가되고 추가된 레코드의 제품코드 컨트롤로 포커스가 이동하도록 이벤트 프로시저를 작성(docmd,　Gotorecord, Setfocus)

<!--[if !supportEmptyParas]--> <!--[endif]-->

=> Docmd.Gotorecord acDataForm, “반품관리”, acNewRec

제품코드.SetFocus

<!--[if !supportEmptyParas]--> <!--[endif]-->

<!--[if !supportEmptyParas]--> <!--[endif]-->

<!--[if !supportEmptyParas]--> <!--[endif]-->

<!--[if !supportEmptyParas]--> <!--[endif]-->

<!--[if !supportEmptyParas]--> <!--[endif]-->

<!--[if !supportEmptyParas]--> <!--[endif]-->

3회

-판매일은 반드시 2003년에 판매된 제품만 입력되도록 설정

유효성 검사 규칙 => Year([판매일])=2003(따옴표 붙이지 x)

<!--[if !supportEmptyParas]--> <!--[endif]-->

-바운드열 : 1, 열갯수 : 3

<!--[if !supportEmptyParas]--> <!--[endif]-->

-판매수량이 txt최소수량과 txt최대수량에 입력된 값의 범위에 포함되는 제품의 정보만 표시

=> Me.Filter = “판매수량>=” & txt최소수량 & “AND 판매수량 <=” & txt최대수량

Me.FilterOn = True

<!--[if !supportEmptyParas]--> <!--[endif]-->

-판매현황 폼의 인쇄 버튼을 클릭할 때 판매현황출력 보고서를 인쇄 미리 보기 형태로 열고 판매현황출력 보고서는 판매수량이 txt최소수량과 txt최대수량 범위에 해당하는 제품만을 대상으로 할 것

=> Where 조건문 :　[판매수량]>=[FORMS]![판매조회]![TXT최소수량]

AND [판매수량]<=[Forms]![판매조회]![txt최대수량]

<!--[if !supportEmptyParas]--> <!--[endif]-->

각 텍스트 상자에 입력된 소속지점 정보들을 <소속지점>테이블의 해당 필드에 추가할 것

=>Docmd.RunSQL “insert into 소속지점() values()”

<!--[if !supportEmptyParas]--> <!--[endif]-->

-판매조회 폼의 크기가 바뀌면(Resize) 다음과 같은 기능을 수행하도록 매크로를 작성

=>

<!--[if !supportEmptyParas]--> <!--[endif]-->

4회

-통화요금조회 폼의 cmd고객정보를 클릭하면 cmb고객이름에 해당하는 고객 정보를 보여주는 기능을 수행하도록 이벤트 프로시저를 작성 ‘고객’폼을 폼 보기 형태로 열 것

=>Docmd.Openform “고객”,acNormal,,“고객이름=‘” & cmb고객이름 & “’”

<!--[if !supportEmptyParas]--> <!--[endif]-->

-고객 폼에 있는 cmb고객코드에서 고객코드를 선택하고 조회(cmd조회)을 클릭하면 cmb고객코드에 선택된 값에 해당하는 고객코드에 대한 정보를 표시하도록(RecordSource, Requery이용)

<!--[if !supportEmptyParas]--> <!--[endif]-->

=>Me.Recordsource = “Select * From 고객관리 where 고객코드=’” & cmb고객코드 & “‘”

Me.Requery

<!--[if !supportEmptyParas]--> <!--[endif]-->

고객 폼의 인쇄버튼을 클릭할 때 요금코드별요금합계 보고서를 인쇄 미리 보기의 형태로 열 것

=> Docmd.Openreport “요금코드별요금합계”, acViewPreview

<!--[if !supportEmptyParas]--> <!--[endif]-->

등급은 요금합계가 30000이상이면 “골드”, 20000이상이면 “실버” 그 외는 공백으로 표시

=> Switch([요금합계]>=30000,“골드”,[요금합계]>=20000,“실버”)

활성화되면 -> Activate

실행되면 -> Initialize

<!--[if !supportEmptyParas]--> <!--[endif]-->

[조회함수]

Me.Filter = “조건”

Me.FilterOn = “true” or “false”

<!--[if !supportEmptyParas]--> <!--[endif]-->

Me.RecordSource = “SQL조건”

<!--[if !supportEmptyParas]--> <!--[endif]-->

Me.Recordsetclone.findifirst “조건”(=