[액세스]컴활1급암기

@ 테이블, 쿼리(재료) ---> 폼, 보고서(작품)



@ 그리드(쿼리박스)
@ 조인(테이블+테이블)



Private Sub cmd제품명찾기_Click()
    Me.Filter = "제품명='" & txt제품명 & "'"
    Me.FilterOn = True
End Sub

A(문자) <--- '" & B(컨트롤명) & "'
A(숫자) <--- " & B(컨트롤명) & "
A(날짜) <--- #" & B(컨트롤명) & "#

컨트롤명은 양 옆에 &로 묶는다.



@ 특정 문자열이 포함하는 레코드 찾기
Private Sub cmd이메일찾기_Click()
    Me.RecordSource = "select * from 제품별판매현황 where 담당자이메일 like '*" & txt이메일 & "*'"
End Sub

like '*" & B(컨트롤명) & "*'



Private Sub cmd판매번호찾기_Click()
    Me.RecordsetClone.FindFirst "판매번호=" & txt판매번호
    Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub



Private Sub cmd제품정보찾기_Click()
    Dim rs As ADODB.Recordset    '선언
    Set rs = New ADODB.Recordset    '할당

    DoCmd.OpenForm "제품정보"    '액세스 폼 열기
    rs.ActiveConnection = CurrentProject.Connection    'rs에 연결
    rs.Open "select * form 제품별판매현황 where 판매번호=" & txt판매번호    '쿼리문 결과값을 rs에 할당

    Forms!제품번호.txt판매번호 = rs!판매번호    'rs필드부분을 액세스에 표시

    rs.Close
End Sub

@ 매크로 where 조건문
다음과 같을 경우
[분류]=[Forms]![판매현황]![txt분류]



Private Sub cmd상품별인쇄_Click()
    DoCmd.OpenReport "판매내역", acViewPreview, , "상품명='" & txt이름 & "'"
End Sub

Private Sub cmd상품정보_Click()
    DoCmd.OpenForm "상품정보", acNormal, , "상품명='" & txt이름 & "'"
End Sub



@ 쿼리
크로스탭 쿼리(피벗테이블과 비슷함)
왼쪽,위쪽,가운데