● 보고서 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 입고-공정수량 : Sum(IIf([전표구분]=1,[수량],0))-Sum(IIf([전표구분]=2,[수량],0)) 입고-공정금액 : Sum(IIf([전표구분]=2,[금액],0))-Sum(IIf([전표구분]=1,[금액],0)) 등등 쿼리식 삽입 발행일 : 조건식 목차 | 이전 | 다음