|
¡Ü º¸°í¼
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))
µîµî Äõ¸®½Ä »ðÀÔ
¹ßÇàÀÏ : Á¶°Ç½Ä
¸ñÂ÷ |
ÀÌÀü |
´ÙÀ½
|