±³À°°úÁ¤ ³ªÀÇÇнÀ ¿ÀÇǽºÆÁ °Ë»ö ¹«·á°­ÁÂ
Home ·Î±×ÀΠȸ¿ø°¡ÀÔ °í°´¼¾ÅÍ »çÀÌÆ®¸Ê
¿ÀÇǽºÆ©ÅÍ ±â¾÷ASP¼­ºñ½º > ¹«·á°­ÁÂ
¾×¼¼½º 2000 µû¶óÇϱâ
Ȩ·¯´× ¾×¼¼½º 2000
¾×¼¼½º 2000 ÀÏÀÏ°­ÁÂ
¾×¼¼½º 2002 »õ·Î¿î±â´É
±è±Ô°æ´ÔÀÇ DB ±âÃÊ
¾×¼¼½º ÇÁ·ÎÁ§Æ® °­ÁÂ
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))
µîµî Äõ¸®½Ä »ðÀÔ
¹ßÇàÀÏ : Á¶°Ç½Ä

¸ñÂ÷ | ÀÌÀü | ´ÙÀ½

¡¡

¿ÀÇǽºÆ©ÅÍ ±â¾÷ASP¼­ºñ½º 135-880 ¼­¿ï½Ã °­³²±¸ »ï¼ºµ¿ 157-3 ¿¤ÁöÆ®À©ÅÚ 2Â÷ 1603È£ ¢Ï070-7098-2554
Copyright ¨Ï 1999-2008 Officetutor.com All rights reserved
¡¡