https://www.instagram.com/fkslqk94/
인스타 DM 질문하기
본문에 있는 ' txt총합 ' 컨트롤에는 해당 번호의 재고 총합이 표시되도록 설정하시오.
- <제품> 페이블과 ' txt번호 ' 컨트롤, DSUM()함수 이용
답) =DSum("[재고]","제품","[번호]=[txt번호]")
--------------------------------------------
<봉사내역입력>폼의 바닥글 영역에서 ' txt봉사시수합계 ' 컨트롤에는 학과가 ' 회계학과' 인 학생들의 봉사시수 합계가 표시 되도록 설정하시오.
- <봉사내역입력> 쿼리와 DSUM 함수 사용
답) =DSUM("[시수]","봉사내역입력","[학과]='회계학과'")
----------------------------------------------
<컨트롤> 품의 ' 닫기(cmd닫기) ' 단추를 클릭하면 다음과 같이 동작하도록 이벤트 프로시저를 작성하시오.
- < 컨트롤> 폼이 반드시 저장되고 닫히도록 처리할 것
답)
Private Sub cmd닫기_Click()
DoCmd.Close acForm, "컨트롤", acSaveYes
End Sub
----------------------------------------------
<재고관리> 품의 ' txt조회 '에 ' 넘버 '를 입력하고 ' 조회(cmd조회) ' 버튼을 클릭하면 다음과 같이 동작하도록 이벤트 프로시저를 작성하시오
- ' txt조회 ' 컨트롤에 입력된 ' 넘버 '를 포함하는 레코드가 조회되도록 할 것
- Filter, FilterOn 속성을 이용할 것
답)
Private Sub cmd조회_Click()
Filter = "넘버 like '*" & txt조회 & "*'"
FilterOn = True
End Sub
----------------------------------------------
<영업소이용관리> 폼의 'cmb지역조회' 컨트롤에서 지역코드를 선택하면(change) 다음과 같은 조회기능을 수행하는 이벤트 프로시저를 작성하시오.
- ' 지역코드 '가 ' cmb지역조회'에서 선택한 지역과 같은 레코드만을 표시하도록 설정하시오
- Filter, FilterOn 속성을 이용할 것
답)
me.Filter = "지역코드= '"& cmb지역조회 &"'"
me.Filteron = true
-----------------------------------------------
<씨앗정보찾기> 폼에서 ' txt찾기 ' 컨트롤에 검색할 ' 씨앗명 ' 의 일부를 입력한 후 ' 찾기(cmd찾기) ' 단추를 클릭하면 해당하는 정보를 표시하는 이벤트 프로시저를 구현하시오.
- Filter, FilterOn 속성을 이용할 것
답)
Private Sub cmd찾기_Click()
Filter = "씨앗명 like '*" & txt찾기 & "*'"
FilterOn = True
End Sub
-----------------------------------------------
<재고관리> 품의 ' 출력(cmd출력) ' 버튼을 클릭하면 다음과 같이 동작하도록 이벤트 프로시저를 작성하시오
- 미리보기와 같은 메시지 박스 표시 후 <재고R> 보고서를 " 인쇄 미리 보기" 상태로 연리도록 할 것
답)
Private Sub cmd출력_Click()
MsgBox "재고리포트를 보시겠습니까?", vbInformation
DoCmd.OpenReport "재고R", acViewPreview
End Sub
--------------------------------------------
<봉사내역관리> 품의 오름(cmd오름) 단추와 내림(cmd내림) 단추를 클릭(on click)하면 시수를 기준으로 정렬을 수행할도록 구현하시오.
- ' 오름 ' 단추를 클릭하면 오름차순 정렬, ' 내림 ' 단추를 클릭하면 내림차순으로 정렬
- 품의 orderBy, orderByOn 속성 사용
답)
Private Sub cmd오름_Click()
Me.OrderBy = "시수"
Me.OrderByOn = True
End Sub
답)
Private Sub cmd내림_Click()
Me.OrderBy = "시수 desc"
Me.OrderByOn = True
End Sub
-----------------------------------------
<주문현황>폼에서 ' txt수량 ' 컨트롤에 포커스가 이동하면(GotFocus) <그림>과 같은 메시지 상자를 출력하는 이벤트 프로시저를 구현하시오.
- ' txt수량 ' 컨트롤에 표시된 값이 10 이상이면 ' 인기품종' , 10 미만 6 이상이면 ' 보통품종 ' , 그 외에는 ' 비인기품종 ' 으로 표시하시오
- if ~ Elseif 문 사용
답)
private sub txt수량_GotFocus()
if txt수량 >= 10 then
msgbox "인기품종",, "인기도분석"
Elseif txt수량 >= 6 then
msgbox "보통품종",, "인기도분석"
Else
msgbox "비인기품종",, "인기도분석"
end if
end sub
-------------------------------------
하위 폼 쪽의 ' txt건수 ' 컨트롤에 다으뫄 같이 레코드 개수를 표시하시오.
- "반납일자" 가 null(비어있는)인 경우에는 개수에 포함하지 말 것
답)
컨트롤 원본 =count([반납일자])
-----------------------------------------------
IBSN 바닥글 영역의 ' txt할증건수 ' 컨트롤에 다음과 같이 건수를 표시하시오.
- ' 대여일자 '가 2015년 3월 1일 이전 자료의 건수를 표시 할것
- DCount, Count, Sum, iif 중 적절한 함수를 이용할 것
- 해당 자료가 없을 경우 '0' 으로 표시할 것
답)
sum(iif([대여일자]<=#2015-03-01#,1,0))
댓글