컴퓨터활용능력1급_엑세스 실기

기본

• 편집 불가능은 잠금속성을 말한다

• InStr([물품코드],” “) = 0

  물품코드에 공백의 수가 0일때 true
  

• =Format(Now(),”yyyy-mm-dd hh:nn:ss ampm”)

• 순번

  컨트롤 : =1
  누적합계 : 그룹
  

• 폼 크기 고정

  테두리 스타일 => 가늘게
  

• 형식에 @*★

  빈공간을 별로 
  

• lcase
• 탭 전환 = 탭 정지

• 속성택에서 dsum

  =DSum("대여금액","대여내역입력","도서명='귀천'")
  다음과 같이 사용되어야 한다 # 함수
  

• InStr([거래처코드],”-“)

  거래처코드에서 "-"의 위치값 전달
  

• =DateAdd(d,1,date())

  date에서 하루를 더해준다 # form
  

• String(count,str)

  str을 count만큼 출력한다 # 퀴리
  

• 퀴리 조건

  (select max(합계) from 업체별내역)
  - 합계가 가장 큰 업체를 출력하는 조건으로 사용했다
  

조건부서식

[상호] Like "*산업*"
상호에 산업이라는 단어가 포함되는지 확인

프로시져

• Dim ``` Dim a a = MsgBox(“폼 종료”,vbYesNo,”종료”)

if a = vbYes Then Docmd.close,,acSaveYes End if

yes를 선택하면 자동으로 저장하고 종료

  


* dsum("속성명","속성을 가진 테이블 이름","조건")
* msgbox

Me.RecordSource = “select * from 고객관리 where 고객코드 = ‘” & cmb고객코드 & “’” Me.Requery

me.recordsetClone.findFirst “이름 = ‘” & txt성명 & “’” me.Bookmark = Me.Recordsetclone.Bookmark

Private Sub 고객이름_GotFocus() 고객이름.ControlTipText = 직업 End Sub

Private Sub cmd닫기_Click() Dim aa aa = MsgBox(“폼을 닫습니다.”, vbOKCancel) If aa = vbOK Then DoCmd.Close End If End Sub

* filter

Private Sub lst회원정보_DblClick(Cancel As Integer) Me.Filter = “회원성명 = ‘” & lst회원정보 & “’” Me.FilterOn = True

End Sub

Private Sub cmd조회_Click()

Me.Filter = "Year(진급예정일자) =" & txt년 & " And Month(진급예정일자) = " & txt월
Me.FilterOn = True

End Sub

* 특정 조건으로 열기

Private Sub cmd표시_DblClick(Cancel As Integer) If Fra확인란 = 1 Then DoCmd.OpenReport “회원별사용현황”, acviewdesignpreview, , “[회원성명] = [Forms]![스포츠클럽관리]![lst회원정보]” Else DoCmd.OpenReport “강사별사용현황”, acviewdesignpreview, , “[강사코드] = [Forms]![스포츠클럽관리]![lst강사정보]” End If End Sub

* AfterUpdate

Private Sub lst회원정보_AfterUpdate() txt표시 = “회원명:” & lst회원정보 & “(강사이름:” & DLookup(“강사이름”, “회원관리현황”, “회원성명=lst회원정보”) & “)” txt이용료평균 = lst회원정보 & “회원의 이용료 평균:” & DAvg(“이용료”, “회원관리현황”, “회원성명=lst회원정보”) txt이용료최대값 = lst회원정보 & “회원의 이용료 최대값:” & DMax(“이용료”, “회원관리현황”, “회원성명=lst회원정보”) End Sub

* 테이블에 데이터 추가하기 runsql을 사용

Private Sub cmd등록_Click() DoCmd.RunSQL “insert into 거래내역(접수일자,거래처코드,행선지코드,금액,세액,합계,출발일자) values(txt접수일자,cmb거래처코드,cmb행선지코드,txt금액,txt세액,txt합계,txt출발일자)” Call 접수내용지우기 # 특정 함수를 호출하는법 End Sub

* requery
    
      폼에 나타나는 자료를 갱신한다
      

Private Sub cmd상품정리_Click() DoCmd.RunSQL (“delete from 상품 where 상품코드 not in(select 상품코드 from 매출관리)”) DoCmd.Requery End Sub

* RecordSource

Private Sub cmd검색_Click() Me.RecordSource = “select * from 접수 where 운송코드 = ‘” & cmb운동방법 & “’ and 중량 = ‘” & cmb중량 & “’” End Sub

* acNewRec

DoCmd.GoToRecord acDataForm, “반품관리”, acNewRec 제품코드.SetFocus ```