[데이터베이스] 컴활 1급 실기 풀자 (vbYesNo, acSaveYes, DoCmd.Close)

 

(문제 출처 : https://m.cafe.daum.net/hermingway/ZYwR/39?listURI=%2Fhermingway%2FZYwR )

 

​​​​​​​​액세스 컴활 실기문제를 계속해서 풀어보자.

 

이벤트 프로시저 만들기

 

 

===

 

우선

문제가 말한 컨트롤러를 선택 후,

[이벤트]->[OnClick] 설정을 [이벤트 프로시저]로 설정하고

식 작성기 호출

 

 

그리고 DoCmd 함수에 대해 참고해두자.

참고 ) DoCmd 개체

Microsoft Access 매크로 함수를

Visual Basic에서 실행하기 위한 개체

 

OpenReport	작성된 보고서를 호출하는 매크로 함수를 수행 ex1> DoCmd.OpenReport "보고서명", 여는방법, 필터이름(생략 시 공백),"조건"
OpenForm	작성된 폼을 호출하는 매크로 함수를 수행 ex1> DoCmd.OpenForm "폼 명", 여는방법, 필터이름(생략 시 공백),"조건" ex2> DoCmd.OpenForm "폼 명"
OpenQuery	작성된 쿼리를 호출하는 매크로 함수를 수행 ex1> DoCmd.OpenQuery "쿼리 명" ex2> DoCmd.OpenQuery "명단추가"
RunSQL	SQL문을 실행하는 매크로 함수를 수행 * 검색 : SELECT 필드명 FROM 테이블명 WHERE 조건 * 갱신 : UPDATE 테이블명 SET 변경내용 WHRE 조건 * 삭제 : DELETE 필드명 FROM 테이블명 WHERE 조건 * 추가 : INSERT INTO 테이블(필드1, 필드2) VALUES(값1, 값2) ​ ex1> DoCmd.RunSQL "DELETE * FROM "명단1"
RunCommand	액세스 내부에서 제공하는 명령을 실행시키는 매크로 함수를 수행
Close	활성화되어 있는 데이터베이스 개체를 닫는 매크로 함수를 수행
Quit	액세스를 종료하는 매크로 함수를 수행

 

 

나열한 함수중 폼을 종료하는 건 Close (DoCmd와 합쳐써주는 메쏘드 역할)

DoCmd.Close로 활용해준다.

 

 

즉 1번째~2번째는 Close대상에 관한 인자고

3번째가 "저장여부 묻지않고 저장"을 시켜주는 인자

 

 

Private Sub cmd닫기_Click()

    대답 = MsgBox("폼을 종료합니다.", vbYesNo, "폼종료")
    
    If 대답 = vbYes Then
        '저장여부 묻지 않고 저장하고 종료
        DoCmd.Close acForm, "도서판매현황", acSaveYes
    Else
        '아무 변화 없음
    End If

End Sub