데이터베이스 최신기출문제 3회 오답노트

[입력수정]

[문제 1-3] 본문에 있는 'txt총합' 컨트롤에는 해당번호의 총합이 표시되도록 설정하시오

▶ <제품> 테이블과 'txt번호' 컨트롤, Dsum() 함수를 이용하여 구할 것

=Dsum("[필드]","테이블","[필드]=[컨트롤]") = Dsum("[재고]","제품","[번호]=[txt번호]")

 

▶ 'txt넘버' 컨트롤에는 포커스가 이동하지 않도록 설정하시오

포커스가 이동 -> 탭 정지

 

[조회출력]

[문제 2] <재고관리> 폼의 'txt조회'에 '넘버'를 입력하고 '조회' 버튼을 클릭하면 다음과 같이 동작하고록 이벤트 프로시저를 작성하시오

▶ 'txt조회' 컨트롤에 입력된 '넘버'를 포함하는 레코드가 조회되도록 할 것

▶ Filter, FilterOn 속성을 이용할 것

Me.Filter = "넘버 like '*" & txt_조회 & "*'"

Me.FilterOn = True

 

[처리기능]

[문제 3] <컨트롤> 폼의 't관리인' 컨트롤의 내용이 변경되면 다음과 같이 동작하고록 이벤트 프로시저를 구현하시오

▶ 메시지 박스(패널티 / 패널티를 부여하시겠습니까? / 예아니오)를 표시하고 '예'를 클릭하면 점수를 다시 계산하여 처리할 것

▶ '점수'가 90 이상인 경우에만 '점수'에 1점을 감할 것(이외의 경우는 변경되지 않고록 처리할 것)

▶ Before Update 이벤트로 구현할 것

a = MsgBox("패널티를 부여하겠습니까?", vbYesNo, "패널티")

If a = "Y" And "점수" >= 90 Then

점수 = 점수 - 1

Else

DoCmd.CancelEvent

End If