|
¡Ü Ãʱâ È¸é ¡Ü
|
|
[±×¸² 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
|
|
[±×¸² 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¹®±îÁö Çѹø
ÀÛ¼ºÇØ º¸½Ê½Ã¿À ¸ñÂ÷
| ÀÌÀü | ´ÙÀ½
|