|
회계관리 프로그램을 짜고 있는데..
누적합계를 못구하겠습니다.누적합계가 되는 함수가 있는지 아니면 쿼리를 사용해서 어떻게 짜맞춰야 하는지 고민중이구 그게 잘않되네요..
도움 부탁합니다.
==============[tiger님 글에 대한 답변입니다]==============
쿼리와 반복문을 사용하세요 아래 코드 참조
do - loop 반복문에서 레코드는 자동으로 이동하지 않으므로
xxxx.MoveNext 메서드를 필히 사용하셔야 누적합계가 가능
합니다
VBA 예제:
Private Sub 본문_Format(Cancel As Integer, FormatCount As Integer)
Dim dbs As Database
Dim strSQL As String
Dim rst As Recordset
Dim qdf As QueryDef
Set dbs = CurrentDb()
strSQL = "SELECT 계정코드, Sum(차변금액) AS 차변총계, " & _
"Sum(대변금액) AS 대변총계 " & _
"FROM 분개장 " & _
"GROUP BY 계정코드 " & _
"HAVING 계정코드 > 610000 ;"
Set qdf = dbs.CreateQueryDef("") "질의 생성
qdf.SQL = strSQL
Set rst = qdf.OpenRecordset()
Do Until rst.EOF
"각 계정과목 합계 계산
Select Case rst!계정코드
Case 611010 To 611020 "매출액/상품
Me!Text2 = Me!Text2 + rst!대변총계
Case 612010 "매출액/시설운영수익
Me!Text3 = Me!Text3 + rst!대변총계
Case 622010 To 622293 "매출원가/시설운영원가
Me!Text12 = Me!Text12 + rst!차변총계
.
.
.
.
Case Else
"MsgBox "일치하지 않는 계정코드가 있습니다. 계정코드를 점검하세요"
End Select
rst.moveNext "다음레코드로 이동하는 메서드 필히 기표
Loop
.
.
.
.
.
end sub
|
|