본문 바로가기
카테고리 없음

[액세스] VBA 작성(조회/Me.RecordSource) 정리

by 도도새 도 2021. 2. 9.

  • Me개체 속성
  1. Filter
  2. RecordSource
  3. RecordsetClone
  4. BookMark
  5. FindFirst
  6. OrderBy, OrderByOn


액세스 VBA작성 Me.RecordSource

 

컴퓨터 활용능력 1급 액세스 조회 섹션 중 Me.RecordSource 사용을 정리합니다.

 

액세스 VBA_ ME개체와 필터 속성(Me.RecordSource)

Me 개체 : 현재 폼에서 현재 폼을 제어시 사용

RecordSource 속성 : 테이블이나 쿼리, SQL문 등으로 데이터를 폼이나 보고서의 데이터 원본으로 지정 할 때 사용하는 속성

문제

정답

<판매> 폼의 'txt이메일' 컨트롤에 '담당자'의 일부를 입력하고 'cmb이메일찾기' 단추를 클릭시,

  1. '담당자' 주소가 'txt이메일'에 입력된 글자를 포함하는 제품의 정보를 찾아 표시

  2. RecordSource 속성을 이용

Private Sub cmd이메일찾기_Click()

 

Me.RecordSource = "SELECT* FROM 원본테이블명 where 담당자 like '*" & txt이메일 & "*'"

 

End Sub

 

// 원본테이블에서(from) 'txt이메일'의 글자를 포함하는 조건(where)의 모든(*)것을 선택(SELECT)

<도서찾기> 폼의 'txt찾기' 컨트롤에 '도서'의 일부를 입력하고 'cmb찾기' 단추를 클릭시

  1. '도서' 가 'txt찾기'에 입력된 글자를 포함하는 제품의 정보를 찾아 표시

  2. RecordSource 속성을 이용

private Sub cmd찾기_Click()

 

Me.RecordSource = "SELECT* FROM 원본테이블 where 도서 like '*" & txt찾기 & "*'"

 

End Sub

<도서찾기> 폼의 'txt찾기' 컨트롤에 '일련번호'를 입력하고 'cmb찾기' 단추를 클릭시

 

  1. '일련번호' 가 'txt찾기'에 입력된 글자와 일치하는 정보를 표시

  2. RecordSource 속성을 이용

Private Sub cmd찾기_Click()

 

Me.RecordSource = "SELECT* FROM 원본테이블 where 일련번호 =" & txt찾기

  • 원본테이블 이름은 <폼 속성시트> - <데이터> - >레코드 원본>에서 확인 가능

 

액세스_문자열 연결 방법

데이터 타입

형식

문자형 데이터

' " & 컨트롤명(문자형) & " ' "

숫자형 데이터

" & 컨트롤명(숫자형)

날짜형 데이터

# " & 컨트롤명(날짜형) & " # "

댓글