| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 액세스 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
Public Sub 기간별내용합계()
Dim query As ADODB.Recordset
Set query = New ADODB.Recordset
Dim sql_string As String
Dim row_count As Long
Dim i As Integer
Dim sum As Currency
sql_string = "SELECT DISTINCTROW Sum(금전출납부쿼리.금액) AS 금액의합계" _
& " FROM 금전출납부쿼리 GROUP BY 금전출납부쿼리.일자, 금전출납부쿼리.[내용],금전출납부쿼리.[외상] " _
& " HAVING (((금전출납부쿼리.일자) Between #" & [Forms]![기간별 검색]![처음날짜] _
& "# And #" & [Forms]![기간별 검색]![끝날짜] & "#) AND ((금전출납부쿼리.[내용])= '" & ([Forms]![기간별 검색]![내용별검색]) & "'" & " ) and (금전출납부쿼리.외상)=true); "
query.ActiveConnection = CurrentProject.Connection
query.CursorType = adOpenStatic
query.LockType = adLockReadOnly
query.Open sql_string
row_count = query.RecordCount
'msgbox()
sum = 0
If (row_count = 0) Then
Forms![기간별 검색]![입출합계1] = 0
Else
For i = 1 To row_count
sum = sum + query("금액의합계")
query.MoveNext
Next
End If
query.Close
Set query = Nothing
Forms![기간별 검색]![입출합계1] = sum
Forms![기간별 검색]!입출합계1label.Caption = Me.내용별검색 & " 합계"
end sub
이부분을 and (금전출납부쿼리.외상)=true)
요렇게 바꿀려고 하는데
and ((금전출납부쿼리.[외상])= '" & ([Forms]![기간별 검색]![외상검색]) & "'" & " )
이렇게하면 0 과 1이 들어 가서 에라가 납니다.
외상검색이라는 확인란을 선택 하고 안 하고에 따라서 금액 계산을 할려고 합니다.
어떻게 해야되는지 모르겠습니다.
|
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
