|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
엑세스를 DB 로 사용하는데요..
현재는 기간별 업체별 합계금액 만 보는데..
여기서 년, 월, 을 나타낼수 있을까요?
그리고 입고구분 아래에 합계금액을 나타내고 싶은데요..
방법이 없을까요 ?
Sub 업체별합계_Search()
Range("D_Range").ClearContents
S_시작일 = Cells(1, 4)
S_종료일 = Cells(1, 5)
Call DBOpen
Application.ScreenUpdating = False
mySql = "Select "
mySql = mySql & " distinct '','','',입고구분, 업체명, sum(금액)"
mySql = mySql & " FROM 입고등록"
mySql = mySql & " WHERE 입고일자 BETWEEN #" & S_시작일 & "# AND #" & S_종료일 & "# "
mySql = mySql & " group by 업체명,입고구분 "
mySql = mySql & " having sum(금액) > 0"
mySql = mySql & " order by 입고구분 desc, sum(금액) desc, 업체명 "
Call Execute_SQL(mySql)
If rs.EOF Or rs.BOF Then
MsgBox " ☞ 조 회 된 자 료 없 음!! ☜", vbOKOnly, "H"
Call DBClose
Exit Sub
Else
Range("A4").CopyFromRecordset rs
Application.ScreenUpdating = True
MsgBox " ☞ 조 회 완 료!! ☜", vbOKOnly, "H"
End If
Call DBClose
Application.ScreenUpdating = True
Range("E8").Select
End Sub |
|