배움터  
  HOME > 배움터 > 무료강좌
무료강좌
 
액세스 연재 강좌 - 자재관리 프로젝트 , Access

● 보고서

05-01.gif(25698바이트)

Private Sub FIND_AfterUpdate()
DoCmd.Minimize
On Error GoTo FIND_AfterUpdate_Err
With CodeContextObject
If (.FIND = 1) Then
DoCmd.OpenReport "자재전표", acPreview, "[발행일]", _
"[Forms]![보고서]![A]<=[발행일] And [발행일]<=[Forms]![보고서]![B]"
End If
If (.FIND = 2) Then
DoCmd.OpenReport "자재전표", acPreview, "", _
"[Forms]![보고서]![A]<=[발행일] And [발행일]<=[Forms]![보고서]![B] and [Forms]![보고서]![전표구분]=[전표구분]"
End If

If (.FIND = 3) Then
DoCmd.OpenReport "품목재고현황", acPreview ', "", _
"(((자재상위.발행일)>=[Forms]![보고서]![A] And (자재상위.발행일)<=[Forms]![보고서]![B])) "
End If

If (.FIND = 4) Then
DoCmd.OpenReport "현재재고현황", acPreview ', "", _
"[Forms]![보고서]![A]<=[발행일] And [발행일]<=[Forms]![보고서]![B] and [Forms]![보고서]![전표구분]=[전표구분] and [Forms]![보고서]![검색거래처]=[거래처코드]"
End If
생략,,,,

If (.FIND = 9) Then
DoCmd.OpenReport "현재재고현황세부", acPreview ', "", _
"[Forms]![보고서]![A]<=[발행일] And [발행일]<=[Forms]![보고서]![B] and [Forms]![보고서]![전표구분]=[전표구분] and [Forms]![보고서]![검색거래처]=[거래처코드]"
End If
End With
Me.FIND = ""
aa
FIND_AfterUpdate_Exit:
Exit Sub
FIND_AfterUpdate_Err:
MsgBox Error$
Resume FIND_AfterUpdate_Exit
End Sub

05-02.gif(67722바이트)

05-03.gif(16414바이트)

입고-공정수량 : Sum(IIf([전표구분]=1,[수량],0))-Sum(IIf([전표구분]=2,[수량],0))
입고-공정금액 : Sum(IIf([전표구분]=2,[금액],0))-Sum(IIf([전표구분]=1,[금액],0))
등등 쿼리식 삽입
발행일 : 조건식

목차 | 이전 | 다음