¿ÀÇǽºÆ©ÅÍ ÀÓÁ÷¿ø ¿ª·® °­È­¸¦ À§ÇÑ ÇнÀ »çÀÌÆ®ÀÔ´Ï´Ù.
±³À°°úÁ¤ ³ªÀÇÇнÀ ¿ÀÇǽºÆÁ °Ë»ö ¹«·á°­ÁÂ
Home ·Î±×ÀΠȸ¿ø°¡ÀÔ °í°´¼¾ÅÍ »çÀÌÆ®¸Ê
¿ÀÇǽºÆ©ÅÍ ±â¾÷ASP¼­ºñ½º > ¹«·á°­ÁÂ
¾×¼¼½º 2000 µû¶óÇϱâ
Ȩ·¯´× ¾×¼¼½º 2000
¾×¼¼½º 2000 ÀÏÀÏ°­ÁÂ
¾×¼¼½º 2002 »õ·Î¿î±â´É
±è±Ô°æ´ÔÀÇ DB ±âÃÊ
¾×¼¼½º ÇÁ·ÎÁ§Æ® °­ÁÂ
Home > ¹«·á°­Á > ¾×¼¼½º
¾×¼¼½º ¿¬Àç °­Á - ÀÚÀç°ü¸® ÇÁ·ÎÁ§Æ® - 2 , Access

¡Ü Ãʱâ È­¸é ¡Ü

01-02.gif(8222¹ÙÀÌÆ®)

[±×¸² 1]

¡Ü »ç¿ë¼³¸í - °úÁ¤º° ´Ü°è¸¦ ¼±ÅÃÇÑ ÈÄ ¿­±â¸¦ Ŭ¸¯ÇÕ´Ï´Ù.

Private Sub ¿­±â_Click()
DoCmd.OpenForm "ÀÚÀç»óÀ§", acNormal, "", "[ÀüÇ¥±¸ºÐ]= [Forms]![ÃʱâÈ­¸é]![ÀüÇ¥±¸ºÐ1]"
ÀÚÀç»óÀ§ ÆûÀ» ¿­°í ÀüÇ¥±¸ºÐ°ú ÃʱâÈ­¸éÀÇ ÀüÇ¥±¸ºÐ1°ú °°Àº Á¶°Ç½Ä¿¡ ÀÖ´Â °ÍÀ» ¿­±â

DoCmd.GoToRecord , , acLast
¸¶Áö¸· ÀÔ·ÂµÈ ·¹ÄÚµå·Î À̵¿

[Forms]![ÀÚÀç»óÀ§]![ÀüÇ¥±¸ºÐ1] = [Forms]![ÃʱâÈ­¸é]![ÀüÇ¥±¸ºÐ1]
º¯¼öÁöÁ¤À» ÇÏÁö ¾Ê°í ÀÚÀç»óÀ§ÀüÇ¥±¸ºÐ1¿¡ ÃʱâÈ­¸é ÀüÇ¥±¸ºÐ1°ú °°ÀÌ º¹»çÇÏ¿© ºÙ¿©³Ö±â

[Forms]![ÀÚÀç»óÀ§]![ÀüÇ¥À̸§] = [Forms]![ÃʱâÈ­¸é]![ÀüÇ¥±¸ºÐ1].Column(1) & " ÀÚÀçÀüÇ¥"
ÀÚÀçÀüÇ¥ Á¦¸ñ¿¡ Ç¥±âµÊ 
ÀüÇ¥±¸ºÐ1ÀÇ ÅؽºÆ® ¿­Áß 2¹ø° Ç׸ñÀ» °¡Á®¿À±â
¿ìÃøºÎÅÍ ¼ø¼­ 0,1,2, ¼øÀ¸·Î ÁöÁ¤ÇÒ ¼ö ÀÖÀ½, Ç×»ó ¹®ÀÚ±¸ºÐÀº ""·Î Ç¥±â

If [Forms]![ÃʱâÈ­¸é]![ÀüÇ¥±¸ºÐ1] = 1 Or [Forms]![ÃʱâÈ­¸é]![ÀüÇ¥±¸ºÐ1] = 4 Then
[Forms]![ÀÚÀç»óÀ§]![°Å·¡Ã³ÄÚµå].Visible = True
`````` Áï À§ÀÇ Á¶°Ç¿¡ ¸Â´Â °ÍÀ̶ó¸é, °Å·¡Ã³ÄÚµå´Â º¸ÀÌ°í
[Forms]![ÀÚÀç»óÀ§]![Label47].Visible = True
``````
Else
`````
[Forms]![ÀÚÀç»óÀ§]![´ëÇ¥ÀÚÀ̸§].Visible = False
¾Æ´Ï¸é º¸ÀÌÁö ¾Ê°Ô ÇÕ´Ï´Ù.
ÂüÁ¶] [Forms]![ÀÚÀç»óÀ§]![´ëÇ¥ÀÚÀ̸§].ENABLED = False ¸¹ÀÌ »ç¿ëµÊ
»ç¿ëÀ» ÇÏÁö ¸øÇÏ°Ô ÇÏ´Â °æ¿ì¿¡ ¸¹ÀÌ »ç¿ë 

[Forms]![ÀÚÀç»óÀ§]![Label47].Visible = False
`````
End If
End Sub

Private Sub Ç°¸ñÄÚµå_Click()
DoCmd.OpenForm "Ç°¸ñÄÚµå»óÀ§", acNormal
Ç°¸ðÄÚµå»óÀ§ÆûÀ» ¿­±â 
DoCmd.GoToRecord , , acLast
End Sub

Private Sub Form_Load()
DoCmd.Maximize
ÃÖ´ëÇϸé ó¸®, ÃÖ¼ÒÈ­¸éÀº ?
End Sub

Private Sub Á¾·á_Click()
DoCmd.Quit
Á¾·áÇϱâ
End Sub

Private Sub °Å·¡Ã³_Click()
DoCmd.OpenForm "°Å·¡Ã³", acNormal
DoCmd.GoToRecord , , acLast
End Sub

 
01-03.gif(22897¹ÙÀÌÆ®)

[±×¸² 2] ÀüÇ¥±¸ºÐ1

¡¡
Çà ¿øº» Çü½Ä Äõ¸®, °ª¸ñ·Ï, ÇʵåÁß  °ª¸ñ·Ï
¸¶¹ý»ç¸¦ ÀÌ¿ëÇÏ´Â °Í º¸´Ù Á÷Á¢ ÀÛ¼ºµÈ °ÍÀ» º¯°æÇÏ¿© »ç¿ëÇÏ´Â °ÍÀÌ ´õ ÁÁ½À´Ï´Ù.
Çà ¿øº»Àº "1","ÀÔ°í" ¡¥¡¥¡¥
¿­ °³¼ö 2 (Áï Æ÷Ä¿½º°æ¿ì 1;ÀÔ°í´Â °°ÀÌ ±×·ìÈ­)
¿­ ¸Ó¸®±Û  ¾Æ´Ï¿À(Çʵå¸í)
¿­ ³Êºñ ¿­°³¼ö 2°³Áß Ã¹¹ø°¿­ ¼ýÀÚ´Â º¸ÀÌÁö ¸»°í µÎ ¹ø° ÀÔ°íµî°ú °°Àº ¹®ÀÚ¸¸ Ç¥½Ã
Çà °³¼ö  8 Áï ÇàÀÇ ¼ö Á¶Àý Çѹø 3À̳ª 2·Î ¹Ù²Ù¾î º¸½Ê½Ã¿À

Áú¹®1 ) Çà ¿øº»ÀÌ 1;2;3;4;5;6;7¶ó¸é
¿­ °³¼ö : ?
¿­ ³Êºñ : ?
 
Private Sub ÀüÇ¥±¸ºÐ1_AfterUpdate()
Me.ÀüÇ¥±¸ºÐ1.Requery
»õ·Î¿î ³»¿ëÀÌ ÀÖÀ» °æ¿ì
End Sub

Private Sub ÀüÇ¥±¸ºÐ1_GotFocus()
Me.ÀüÇ¥±¸ºÐ1.Dropdown
Áï ÀüÇ¥±¸ºÐ1¿¡ Æ÷Ä¿½º µÉ °æ¿ì ÄÞº¸³»¿ëÀÌ ÇÏ´ÜÀ¸·Î º¸À̵µ·Ï ÇÏ´Â °Í
End Sub

 - ¿­±â : ÀÔ°í¸¦ ´©¸£°í ¿­±â¸¦ ´©¸¥´Ù.

¡Ü ¿ä¾à

- ¸í·É¾î 
DOCMD °ü·ÃµÈ µµ¿ò¸»À» ÂüÁ¶ÇÏ¿© »ç¿ëÇÒ ¼ö ÀÖ´Ù¸é ¾×¼¼½º¸¦ ¹ÝÁ¤µµ ½ÀµæÇß´Ù°í Çصµ °ú¾ðÀÌ ¾Æ´Õ´Ï´Ù. Æû ¿­±â, º¸°í¼­¿­±â, ¸ÅÅ©·Î ½ÇÇà, È­¸é È®´ëÃà¼Ò, SQLµî °ÅÀÇ ÇϳªÀÇ ¸í·É¾î·Î ÇØ°áÀÌ µË´Ï´Ù.
VBA¿¡ °ü·ÃµÈ »çÇ×Àº MSDN¿¡¼­ DOCMD¶ó´Â ã±â¸¦ ÇÏ½Ã¸é ±â´ëÀÌ»óÀÇ ¼Ò½º¸¦ ¾òÀ» ¼ö ÀÖ½À´Ï´Ù.

- Á¤¸®
Á¦ÀÏ Áß¿äÇÑ °ÍÀº ¸í·É¾î¸¦ ÀûÀýÇÏ°Ô ÀÌ¿ëÇÏ¿© ¹Ýº¹µÇ´Â ¸í·É¾î¸¦ ÅؽºÆ®³ª ¿öµå·Î Á¤¸®ÇÑ ÈÄ ÇÊ¿ä ½Ã ¾µ ¼ö ÀÖµµ·Ï ¹Ýº¹ ÈÆ·ÃÀÌ ÇÊ¿äÇÕ´Ï´Ù. ÇÁ·Î±×·¥À» ¸¸µå´Â °ÍÀº °³¹ß À̶ó±â º¸´Ù´Â ÀÀ¿ëÀ̶ó°í ÇÒ ¼ö ÀÖ½À´Ï´Ù. Áï ÇÁ·Î±×·¥À» ¸¸µé±â Àü¿¡ Á¤¸®ÇÏ°í ¼³°èÇÏ´Â ½À°üµµ Áß¿äÇÕ´Ï´Ù.

- ¹®Á¦
¿©±â¼­ ¿¡·¯¿¡ ´ëÇÑ ÇØ°á¹æ¹ýÀ» Á¦½ÃÇÏÁö ¾Ê°í ¸ðµç °úÁ¤ ÇÁ·Î¼¼½º°¡ ¸Â´Ù´Â °¡Á¤ ÇÏ¿¡¼­ ÇÁ·Î±×·¥À» ÀÛ¼ºÇÏ¿´À¸³ª, ¿¡·¯¿¡ ´ëÇÑ ´äÀº ÀÛ¼ºÇÏÁö ¾Ê¾Ò½À´Ï´Ù.
ÀÌ°ÍÀ» ÀÀ¿ëÇÏ¿© ¿¡·¯¿¡ ´ëÇÑ VBA¹®±îÁö Çѹø ÀÛ¼ºÇØ º¸½Ê½Ã¿À

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

¡¡

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