1

콤보 상자 목록에 나타난 최대 행의 수는 부가서비스 테이블의 레코드 수로

최대 행의수

상단 1열의 개수 = 6

회원관리 폼의 관리자모드 버튼 cmd관리자 를 클릭하면

다음과 같은 기능

(암호) 폼을 폼 보기 상ㄴ태로 열 것

과 같은 기능을 수행하도록

관리자 매크로를 작성하시오.

매크로 함수 : OpenForm

매크로 함수 인수의 폼 이름에 <암호>

보기 형식 : 폼

매크로 이름 : 관리자.

cmd종료 버튼을 클릭하면 

저장 여부(저장 여부를 묻는 대화 상자 표시) 확인 후 액세스를 종ㄹ할 것.

기능 구현 후 실행 여부 확인은 마지막에 할 것.

수행호고 종료 매크로를 작성하시오

매크로 함수 - Quit

옵션인수 - 확인

옵션에서 확인을 선택하면 변경내용이 있을 시 저장 여부를 묻는 메시지 상자가 나타남.

매크로 이름 : 종료

cmd 종료 > On click > 종료 매크로 > 저장

txt날짜에 시스템의 현재 날짜가 표시되도록

현재 날짜가 2017년 3월 1일이면 '2017년 3월 1일 수요일' 과 같이 표시되도록 할 것,

시간 없다고해서 now 아니라고 생각하지 마라.

=now()와 자세한 날짜 합치면 시간 안적혀있음

cmd조회 버튼을 클릭할 때

현재 폼 데이터에 부가서비그가 cmd_부가서비스에 입력된 값과 동일한 레코드만을 표시

하도록 조회매크류로르를 ㅣㄹ행

매크로 아이콘

매크로 함수는 ApplyFilter.

Where 조건문 > 작성기 > forms![회원관리]![cmd_부가서비스] = [부가서비스]

매크로 이름 조회로 저장

회원관리 폼의 cmd조회에 <조회> 매크로를 저장

cmd 인쇄버튼을 클릭할 때

회원관리 보고서를 인쇄 미리보기 형태로 열도록 하고

cmd부가서비스에 비력된 값에 해당되는 부가서비스 내역만을 대상으로 할 것의 기능을

인쇄 매크로롤작성하시오.

매크로함수 OpenReport.

매크로 함 수 인수 중 보고서 이름은 회원관리 보고서 

보기형식은 인쇄 미리보기로 설정.

Where 조거문 > 작성기

> [Forms]![회원관리]![cmd_부가서비스]=[부가서비스]

매크로 이름은 인쇄

회원관리 폼의 cmd 인쇄에 <인쇄> 매크로를 지정한 후 저장

//

암호폼의 cmd확인을 클릭하면 미리버기 그림처럼 메시지 상자

암호가 잘못입력되었습니다! 확인

를 표시하도록 이벤트 프로시저를 작성

txt_암호에 입력한 문자가 1234이면 회원정보 폼을 열고 아니면 암호가 잘못되었습니다! 라는 메시지 상자 표시.

c암호 폼의 디자인보기모드

cmb 확인 > On clik >> 이벤트프로시저 > 작성기

Private Sb cmd_확인_Click( )

If Me.Txt_암호 = "1234" Then

DoCmd.OpenForm "회원정보" , acNormal

Else 

MsgBox ("암호가잘못입력되었습니다!")

End If

End Sub

가입내역, 회원신상명세 테이블을 이용하여

2003년 6월 30일 이후에 가입한 회원들의 부가서비스를 인원을 조회하는 부가서비스인원 쿼리를 작성하시오

요약 아이콘을 클릭.

인원 을 구하기 위하여 집계함수 Count를 사용하려면 Group bY 절로 그룹화(요약)해어야 한다.

조회 결과 필드는 미리보기 화면을 참조

ㅜ가서비스 종류 ;/ ㅇ인원

부가서비스 종류: 부가서비스 // 인원: 회원명 // 가입일

가입내역 //                         회원신상명세 // 가입내역

묶는 방법                                개수     // 묶는방법

체크                                        체크        // X

>=#2003-06-30#

쿼리이름 

부가서비스관리.

회원관리 폼의 회원명 컨트롤을 클릭하면 다음과 같은 기능

ADO 객체를 이용

미리보기 그림과 같이 회원명에 해당하는 가입일을 메시지 박스로 표시

회원ID 휘원명 주민등록번호 월기본요금 부가서비스

메시지

회원정보

김택수 님의 가입일은 2003-03-15입니다

확인

Dim rst As ADODB.Recordset

ADODB.Recordset 개체 형식으로 rst 변수를 선언합니다.

Set rst = New ADODB.Recordset

ADODB.REcordset 개체에 새로운 참조가 가능하도록 합니다.

rst.Open "select * from 회원관리 where 회원명 = " & 회원명 & " ' " , CurrentProject.Connection

Open 메서드로 <회원관리> 테이블의 '회원명' 필드와 '회원명' 컨트롤의 값이 동일한 경우의 ㄱ밧을 검색하며, 현재 연결을 활성화합니다.

MsgBox rst("회원명") & "님의 가입일은 " & rst("가입일") & "입니다." vbOkonly "회원정보"

메시지 박스에 프롬프트와 버튼, 제목표시줄을 설정합니다.