¥Ê¥Ó¥²¡¼¥·¥ç¥ó
FrontPage
FreeBSD
Linux
Citrix XenServer
VMware ESXi
Unix¥³¥Þ¥ó¥É
MySQL
PostgreSQL
Windows
CMS/CRM
¥¯¥é¥¦¥É
ÍѸì
PHP¥¹¥¯¥ê¥×¥È
Bash¥·¥§¥ë¥¹¥¯¥ê¥×¥È
Ruby¥¹¥¯¥ê¥×¥È
³«È¯Æüµ
¸¡º÷
¥Ä¡¼¥ë¥Ü¥Ã¥¯¥¹
¿·¤·¤¤¥Ú¡¼¥¸¤ÎºîÀ®
¥Ð¥Ã¥¯¥¢¥Ã¥×¤Îɽ¼¨
³°Éô¤Î¥ê¥ó¥¯¸µ
ºÇ¶á¹¹¿·¤·¤¿¥Ú¡¼¥¸
Á´¥Ú¡¼¥¸
¥Ø¥ë¥×
Åà·ë
¥¢¥Ã¥×¥í¡¼¥É
¥Ú¡¼¥¸Ì¾¤ÎÊѹ¹
ºÇ¿·¤Î40·ï
2016-08-17
Linux/NagiosQL
Linux/CentOS¥Á¥å¡¼¥Ë¥ó¥°
2016-02-23
Linux/¥½¥Õ¥È¥¦¥§¥¢RAIDÉüµì¼ê½ç
2016-02-18
FreeBSD/DHCP
FreeBSD/squid
2016-02-15
Unix¥³¥Þ¥ó¥É/file
2016-02-05
FreeBSD/DynaBook
FreeBSD/Linux compatibility
2016-01-21
PHP¥¹¥¯¥ê¥×¥È/PEAR DB¥¤¥ó¥¹¥È¡¼¥ë¤Ç¤¤Ê¤¤
PHP¥¹¥¯¥ê¥×¥È/PEAR DB
2016-01-20
PHP/¥Õ¥ì¡¼¥à¥ï¡¼¥¯/Zend Framework
PHP/¥Õ¥ì¡¼¥à¥ï¡¼¥¯
FreeBSD/Postfix+amavisd+clamav
2016-01-15
FreeBSD/sl
2015-12-04
Unix¥³¥Þ¥ó¥É/dig
Unix¥³¥Þ¥ó¥É/nslookup
Unix¥³¥Þ¥ó¥É/traceroute
Linux/rsync
FreeBSD/rsync
Unix¥³¥Þ¥ó¥É/vipw
2015-11-25
Linux/Postfix+MySQL+Postfix Admin¤Ë¤è¤ë¥Ð¡¼¥Á¥ã¥ëSMTP¥µ¡¼¥Ð¤Î¹½ÃÛ
Linux/Postfix + postgrey
2015-11-24
Linux/Postfix + amavisd + clamav
2015-05-25
Unix¥³¥Þ¥ó¥É/ifconfig
2015-05-23
Unix¥³¥Þ¥ó¥É/netstat
Unix¥³¥Þ¥ó¥É/route
Unix¥³¥Þ¥ó¥É/lsof
Unix¥³¥Þ¥ó¥É/disown
Unix¥³¥Þ¥ó¥É/time
Unix¥³¥Þ¥ó¥É/crontab
2015-05-22
Unix¥³¥Þ¥ó¥É/nohup
Unix¥³¥Þ¥ó¥É/fg¤Èbg
Unix¥³¥Þ¥ó¥É/nice
Unix¥³¥Þ¥ó¥É/kill
Unix¥³¥Þ¥ó¥É/jobs
Unix¥³¥Þ¥ó¥É/restor
Unix¥³¥Þ¥ó¥É/dump
Unix¥³¥Þ¥ó¥É/uncompress
Unix¥³¥Þ¥ó¥É/compress
Unix¥³¥Þ¥ó¥É/zcat
total:
20536
today:
1
yesterday:
0
now:
1
ËÜʸ
¥Î¡¼¥È
ÊÔ½¸
º¹Ê¬
°ìÍ÷
AccessVBA/¼ÂÎ㽸 ¤ÎÊÔ½¸
*»öÎ㽸 [#eb202357] #contents *¥Õ¥©¡¼¥à¤ÎÁàºî [#c7a0e9e9] ¥Õ¥©¡¼¥à¤ò³«¤¤¤¿¤êÊĤ¸¤¿¤ê¤¹¤ëºî¶È¤Ï¡¢DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎOpenForm¥á¥½¥Ã¥É¤ÈClose¥á¥½¥Ã¥É¤ò»È¤¤¤Þ¤¹¡£ **»ØÄꤷ¤¿¥Õ¥©¡¼¥à¤ò³«¤¯ [#ea3b3aeb] -½ñ¼° DoCmd.OpenForm formname, view, filtername, wherecondition, datamode, windowmode, openargs formname :³«¤¯¥Õ¥©¡¼¥à¤Î̾Á° view :(¾Êά²Ä)¥Ó¥å¡¼ acDesign :¥Ç¥¶¥¤¥ó¥Ó¥å¡¼ acFormDS :¥Ç¡¼¥¿¥·¡¼¥È¥Ó¥å¡¼ acFormPivotChart :¥Ô¥Ü¥Ã¥È¥°¥é¥Õ¥Ó¥å¡¼ acFormPibotTable :¥Ô¥Ü¥Ã¥È¥Æ¡¼¥Ö¥ë¥Ó¥å¡¼ acNormal :¥Õ¥©¡¼¥à¥Ó¥å¡¼(´ûÄêÃÍ) acPreview :°õºþ¥×¥ì¥Ó¥å¡¼ filtername :(¾Êά²Ä)¥ì¥³¡¼¥É¤òÃê½Ð¾ò·ï¤ò»ØÄꤷ¤¿¥¯¥¨¥ê̾ wherecondition :¥ì¥³¡¼¥ÉÃê½Ð¾ò·ï¤òɽ¤¹Ê¸»úÎó datamode :(¾Êά²Ä)¥Ç¡¼¥¿¥â¡¼¥É acFormAdd :Äɲà acFormEdit :ÊÔ½¸ acFormPropetySetting :ÊÔ½¸(´ûÄêÃÍ) acFormReadOnly :Æɤ߼è¤êÀìÍÑ windowmode :(¾Êά²Ä)¥¦¥£¥ó¥É¥¦¥â¡¼¥É acDialog :¥À¥¤¥¢¥í¥° acHidden :Èóɽ¼¨ aclcon :¥¢¥¤¥³¥ó acWindowNormal :ɸ½à(´ûÄêÃÍ) openargs :(¾Êά²Ä)³«¤¯¥Õ¥©¡¼¥à¤ËÅϤ¹Ê¸»úÎó¼° -Îã1 DoCmd.OpenForm "F_¸ÜµÒ" ***Ãê½Ð¤·¤¿¥ì¥³¡¼¥É¤ò¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë¡£ [#kdcc66a0] -Îã1~ [Q_ÅìµþÅÔ]¥¯¥¨¥ê¤ò»È¤Ã¤ÆÃê½Ð¤·¤¿¥ì¥³¡¼¥É¤ò[F_¸ÜµÒ¥Õ¥©¡¼¥à]¤Ëɽ¼¨¤¹¤ë¡£ DoCmd.OpenForm "F_¸ÜµÒ", , "Q_ÅìµþÅÔ" -Îã2~ wherecondition°ú¿ô¤Ë¾ò·ï¤ò½ñ¤¤¤ÆÃê½Ð¤¹¤ë¡£ DoCmd.OpenForm "F_¸ÜµÒ",,,"ÅÔÆ»Éܸ© = 'ÅìµþÅÔ'" ***¿·µ¬¥ì¥³¡¼¥ÉÄɲÃÍѤ˥ե©¡¼¥à¤ò³«¤¯ [#z3b4e324] Private Sub cmd¸ÜµÒ_Click() DoCmd.OpenForm "F_¸ÜµÒ", , , , acFormAdd End Sub ***¥Õ¥©¡¼¥à¤ÎɸÂê¤òÊѹ¹¤¹¤ë [#d0407d90] -¥Õ¥©¡¼¥à¤òºîÀ®¤·¤Æ¡¢¥¯¥ê¥Ã¥¯»þ¤Î¥×¥í¥Ñ¥Æ¥£¤ËOpenArgs¤òÅϤ¹¤è¤¦¤ËÀßÄê Private Sub cmdÄɲÃ_Click() DoCmd.OpenForm "F_¸ÜµÒ", , , , acFormAdd, , "ÄɲÃ" End Sub Private Sub cmdÊÔ½¸_Click() DoCmd.OpenForm "F_¸ÜµÒ", , , , acFormEdit, , "ÊÔ½¸" End Sub Private Sub cmdÆɤ߼è¤ê_Click() DoCmd.OpenForm "F_¸ÜµÒ", , , , acFormReadOnly, , "Æɤ߼è¤ê" End Sub -¡ÖF_¸ÜµÒ¡×¤Î³«¤¯»þ¤Î¥×¥í¥Ñ¥Æ¥£¤Ë²¼µ¤Î¥×¥í¥·¡¼¥¸¥ã¤òºîÀ® Private Sub Form_Open(Cancel As Integer) Select Case Me.OpenArgs Case "ÄɲÃ" Me.Caption = "F_¸ÜµÒ¡¡(Äɲå⡼¥É)" Case "ÊÔ½¸" Me.Caption = "F_¸ÜµÒ¡¡(ÊÔ½¸¥â¡¼¥É)" Case "Æɤ߼è¤ê" Me.Caption = "F_¸ÜµÒ (Æɤ߼è¤ê¥â¡¼¥É)" Case Else Me.Caption = "F_¸ÜµÒ" End Select End Sub **¥Õ¥©¡¼¥à¤Î°ÌÃÖ¤ò»ØÄꤹ¤ë [#s0863f94] DoCMD¥ª¥Ö¥¸¥§¥¯¥È¤ÎMoveSize¥á¥½¥Ã¥É¤òÍøÍѤ·¤Æ¡¢¥«¥ì¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È¤Îɽ¼¨°ÌÃÖ¤äÂ礤µ¤ò»ØÄꤹ¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° DoCMD.MoveSize right, down, width, height right :¥¦¥£¥ó¥É¥¦¤Îº¸¶ù¤Î¿åÊ¿°ÌÃÖ.ºî¶È¥¦¥£¥ó¥É¥¦¤Îº¸Ã¼¤«¤é¤Îµ÷Î¥¤Ç»ØÄê down :¥¦¥£¥ó¥É¥¦¤Îº¸¶ù¤Î¿âľ°ÌÃÖ.ºî¶È¥¦¥£¥ó¥É¥¦¤Î¾å¶¶¤«¤é¤Îµ÷Î¥¤Ç»ØÄê width :¥¦¥£¥ó¥É¥¦¤ÎÉý height :¥¦¥£¥ó¥É¥¦¤Î¹â¤µ -Îã~ ¥¦¥£¥ó¥É¥¦¤ÎÉý¤ò10cm¡¢¹â¤µ¤ò5cm¤Ë¤¹¤ë DoCmd.MoveSize ,,10 * 567, 5 * 567 -&color(red){»²¹Í};~ MoveSize¥á¥½¥Ã¥É¤Î°ú¿ô¤Ï¡¢twipñ°Ì¤Ç»ØÄꤷ¤Æ¤¯¤À¤µ¤¤¡£~ twip¤Ï¡¢²èÌ̤ÎŤµ¤òɽ¤¹»þ¤Ë»È¤¦Ã±°Ì¤Ç¤¹¡£~ -1cm¤Ï567twip -1inch¤Ï440twip -1¥Ô¥¯¥»¥ë¤Ï15twip **¥Õ¥©¡¼¥à¤ÎÂ礤µ¤Çɽ¼¨¤¹¤ë [#w86b8ec7] ¥Õ¥©¡¼¥à¤Î[¥µ¥¤¥º¼«Æ°½¤Àµ]¥×¥í¥Ñ¥Æ¥£¤¬¡Ö¤¤¤¤¤¨¡×¤Î¾ì¹ç¤Ï¡¢ºÇ¸å¤ËÊĤ¸¤¿¤È¤¤Î¥¦¥£¥ó¥É¥¦¤ÎÂ礤µ¤Ç¥Õ¥©¡¼¥à¤¬³«¤¤Þ¤¹¡£~ -½ñ¼° DoCmd.RunCommand acCmdSizeToFitForm -Îã Private Sub cmd¥µ¥¤¥ºÊѹ¹_click() DoCmd.RunCommand acCmdSizeToFitForm End Sub **ͽÄê»þ¹ï¤Ë¥¢¥é¡¼¥à¤òɽ¼¨¤¹¤ë [#h7c50541] -ÀßÄê ¥ª¥Ö¥¸¥§¥¯¥È ̾Á° ¥×¥í¥Ñ¥Æ¥£ ÃÍ ¥Õ¥©¡¼¥à ¥¿¥¤¥Þ´Ö³Ö 1000 ¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹ »þ´Ö ½ñ¼° »þ¹ï(S) -Îã ¥Õ¥©¡¼¥à Private Sub Form_Timer() If time() = Me!»þ´Ö Then Beep MsgBox "¥¢¥é¡¼¥à" End If End Sub **¥Õ¥©¡¼¥à¤òÊĤ¸¤ë [#m3a19aa6] -½ñ¼° DoCmc.Close objecttype, objectnae, save objecttype :(¾Êά²Ä)ÊĤ¸¤ë¥ª¥Ö¥¸¥§¥¯¥È¥¿¥¤¥× acDataAccessPage :¥Ç¡¼¥¿¥¢¥¯¥»¥¹¥Ú¡¼¥¸ acDefault :¥«¥ì¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È(´ûÄêÃÍ) acDiagram :¥À¥¤¥¢¥°¥é¥à acForm :¥Õ¥©¡¼¥à acFunction :´Ø¿ô acMacro :¥Þ¥¯¥í acModule :¥â¥¸¥å¡¼¥ë acQuery :¥¯¥¨¥ê acReport :¥ì¥Ý¡¼¥È acServerView :¥µ¡¼¥Ð¡¼¥Ó¥å¡¼ acStoredProcedure :¥¹¥È¥¢¥¢¥É¥×¥í¥·¡¼¥¸¥ã acTable :¥Æ¡¼¥Ö¥ë objectname :(¾Êά²Ä)ÊĤ¸¤ë¥ª¥Ö¥¸¥§¥¯¥È̾ save :(¾Êά²Ä)ÊĤ¸¤ë»þ¤Ë¥ª¥Ö¥¸¥§¥¯¥È¤òÊݸ¤¹¤ë¤«¤É¤¦¤« acSaveNo :Êݸ¤·¤Ê¤¤ acPrompt :Êѹ¹¤¬¤¢¤Ã¤¿¤È¤³Îǧ¤¹¤ë(´ûÄêÃÍ) acSaveYes :Êݸ¤¹¤ë.³Îǧ¤Ï¤·¤Ê¤¤ **¥Õ¥©¡¼¥à¤òϢư¤µ¤»¤ë [#uf2e4790] ¥Õ¥©¡¼¥à¤ò³«¤¯¤È¤¡¢FormOpen¥×¥í¥·¡¼¥¸¥ã¤ËÊ̤Υե©¡¼¥à¤â°ì½ï¤Ë³«¤¯½èÍý¤ò½ñ¤¤¤Æ¤ª¤±¤Ð¡¢~ 2¤Ä¤Î¥Õ¥©¡¼¥à¤ò°ì½ï¤Ë³«¤¯¤³¤È¤¬¤Ç¤¤Þ¤¹¡£ Private Sub Form_Open(Cancel As Integer) DoCmd.OpenForm "F_¸ÜµÒ", acFormDS End Sub Private Sub Form_Close() DoCmd.Close acForm, "F_¸ÜµÒ" End Sub **2¤Ä¤Î¥Õ¥©¡¼¥à¤òϢư¤µ¤»¤ë [#d70ce2c0] [¥ì¥³¡¼¥É¤Î°ÜÆ°»þ]¥×¥í¥Ñ¥Æ¥£¤Ë²¼µ¤Î¥×¥í¥·¡¼¥¸¥ã¤òºîÀ® Private Sub Form_Current() DoCmd.OpenForm "F_ÃíʸÍúÎò", acFormDS, , "¸ÜµÒID =" & Me!¸ÜµÒID '-----------¡ Me.SetFocus '-------------------------------------------------------------¢ End Sub -¡[F_ÃíʸÍúÎò]¥Õ¥©¡¼¥à¤ò¥Ç¡¼¥¿¥·¡¼¥È¥Ó¥å¡¼¤Ç³«¤¯,[¸ÜµÒID]¥Õ¥£¡¼¥ë¥É¤¬¥á¥¤¥ó¥Õ¥©¡¼¥à¤Î[¸ÜµÒID]¤ÈƱ¤¸¥ì¥³¡¼¥É¤À¤±Ãê½Ð -¢¥×¥í¥°¥é¥à¤ò¼Â¹Ô¤·¤Æ¤¤¤ë¥Õ¥©¡¼¥à¤Ë¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°¤¹¤ë¡£ **¥Õ¥©¡¼¥à¤Ë¥¥ã¥ó¥»¥ë¥Ü¥¿¥ó¤òÄɲ乤ë [#nec353fd] ¥¥ã¥ó¥»¥ë¥Ü¥¿¥ó¤òºîÀ®¤¹¤ë¤Ë¤Ï¡¢[¥¥ã¥ó¥»¥ë¥Ü¥¿¥ó]¥×¥í¥Ñ¥Æ¥£¤ò¡Ö¤Ï¤¤¡×¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£~ &Color(red){¥¥ã¥ó¥»¥ë¥Ü¥¿¥ó¤Ï¡¢¥Õ¥©¡¼¥à¤Ë°ì¤Ä¤À¤±ºîÀ®¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£};~ -Îã~ ¡ÖEsc¡×¥¡¼¤ò²¡¤¹¤È¡¢ÊÔ½¸Áàºî¤ò¼è¤ê¾Ã¤·¤Æ¡¢¥Õ¥©¡¼¥à¤òÊĤ¸¤Þ¤¹¡£ Private Sub cmd¥¥ã¥ó¥»¥ë_Click() If Me.Dirty Then DoCmd.RunCommand acCmdUndo End If DoCmd.Close End Sub **°ìÄê»þ´Ö·Ð²á¸å¤Ë¥Õ¥©¡¼¥à¤òÊĤ¸¤ë [#l62a0922] ¥Õ¥©¡¼¥à¤Î[¥¿¥¤¥Þ´Ö³Ö]¤ò¡Ö5000¡×¤ËÀßÄê Private Sub Form_Timer() DoCmd.Close End Sub -Timer()~ 1000/1000ÉäȤϡ¢1ÉäΤ³¤È¤Ç¤¹¡£~ 5000/1000ÉäȤϡ¢5ÉäΤ³¤È¤Ç¤¹¡£ *¥ì¥Ý¡¼¥È¤ÎÁàºî [#wa2f7017] DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎOpenReport¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢»ØÄꤷ¤¿¥ì¥Ý¡¼¥È¤ò¥×¥ê¥ó¥¿¤Ë°õºþ¤·¤¿¤ê¡¢¥×¥ì¥Ó¥å¡¼¤·¤¿¤ê¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£~ OpenReport¥á¥½¥Ã¥É¤Ï¡¢¥Þ¥¯¥í¤Î[¥ì¥Ý¡¼¥È¤ò³«¤¯]¥¢¥¯¥·¥ç¥ó¤ÈƱ¤¸½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£ -½ñ¼° DoCmd.OpenReport reportname, view, filtername, wherecondition, windowmode, openargs reportname :³«¤¯¥ì¥Ý¡¼¥È̾ view :(¾Êά²Ä)¥Ó¥å¡¼ acViewDesign :¥Ç¥¶¥¤¥ó¥Ó¥å¡¼ acViewNormal :¥×¥ê¥ó¥¿¤Ë½ÐÎÏ(´ûÄêÃÍ) acViewPreview :°õºþ¥×¥ì¥Ó¥å¡¼ filtername :(¾Êά²Ä)¥ì¥³¡¼¥ÉÃê½Ð¾ò·ï¤ò»ØÄꤷ¤¿¥¯¥¨¥ê̾ wherecondition :(¾Êά²Ä)¥ì¥³¡¼¥ÉÃê½Ð¾ò·ï¤òɽ¤¹Ê¸»úÎó windowmode :(¾Êά²Ä)¥¦¥£¥ó¥É¥¦¥â¡¼¥É acDialog :¥À¥¤¥¢¥í¥° acHidden :Èóɽ¼¨ acIcon :¥¢¥¤¥³¥ó acWindowNormal :ɸ½à(´ûÄêÃÍ) openargs :(¾Êά²Ä)³«¤¯¥ì¥Ý¡¼¥È¤ËÅϤ¹Ê¸»úÎó -Îã Private Sub cmd¥×¥ì¥Ó¥å¡¼_Click() DoCmd.OpenReport "R_ÅìµþÅÔ", acViewPreview End Sub Private Sub cmd°õºþ_Click() DoCmd.OpenReport "R_ÅìµþÅÔ" End Sub **ÇÜΨ¤ò»ØÄꤷ¤Æ¥×¥ì¥Ó¥å¡¼¤¹¤ë [#x7a77370] ¥×¥ì¥Ó¥å¡¼¤ÎÇÜΨ¤ò»ØÄꤹ¤ë¤Ë¤Ï¡¢DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎRunCommand¥á¥½¥Ã¥É¤ò»È¤Ã¤Æ[¥º¡¼¥à]¥³¥Þ¥ó¥É¤ò¼Â¹Ô¤·¤Æ¤¯¤À¤µ¤¤¡£ -Îã Private Sub ¥º¡¼¥à_Click() DoCmd.OpenReport "Q_ÅìµþÅÔ", acViewPreview DoCmd.MoveSize , , 18 * 567 '----------------------¥¦¥£¥ó¥É¥¦¤ÎÉý¤ò18cm¤Ë¤¹¤ë DoCmd.RunCommand acCmdZoom75 '----------------------[¥º¡¼¥à75%]¥³¥Þ¥ó¥É¤ò¼Â¹Ô¤¹¤ë End Sub **¥ì¥Ý¡¼¥È¤Î¥¿¥¤¥È¥ë¤ò°õºþ»þ¤Ë»ØÄꤹ¤ë [#df75b565] ¥á¥¤¥ó¥Õ¥©¡¼¥à¤Ç°õºþ¥×¥ì¥Ó¥å¡¼¤ò¥¯¥ê¥Ã¥¯¤·¤¿»þ¤Î¥×¥í¥·¡¼¥¸¥ã¤Ëopenargs°ú¿ô¤òÉÕ¤±¤ë Private Sub cmdÂçºåÉÜ_Click() DoCmd.OpenReport "R_¸ÜµÒ", acViewPreview, , "ÅÔÆ»Éܸ© = 'ÂçºåÉÜ'", , "ÂçºåÉÜ" End Sub Private Sub cmdÅìµþÅÔ_Click() DoCmd.OpenReport "R_¸ÜµÒ", acViewPreview, , "ÅÔÆ»Éܸ© = 'ÅìµþÅÔ'", , "ÅìµþÅÔ" End Sub Private Sub cmd¸ÜµÒ°ìÍ÷_Click() DoCmd.OpenReport "R_¸ÜµÒ", acViewPreview End Sub [R_¸ÜµÒ]¥ì¥Ý¡¼¥È¤Î³«¤¯¤È¤¤Î¥×¥í¥Ñ¥Æ¥£¤Ë²¼µ¤Î¥×¥í¥·¡¼¥¸¥ãºîÀ® Private Sub Report_Open(Cancel As Integer) If OpenArgs <> "" Then Me!¥é¥Ù¥ë19.Caption = OpenArgs Else Me!¥é¥Ù¥ë19.Caption = "¸ÜµÒ°ìÍ÷" End If End Sub **1¥ì¥³¡¼¥É¤´¤È¤Ë¿§Ê¬¤±¤·¤Æ°õºþ¤¹¤ë [#v7692760] Report¥ª¥Ö¥¸¥§¥¯¥È¤ÎSection¥×¥í¥Ñ¥Æ¥£¤òÍøÍѤ¹¤ë¤È¡¢³Æ¥»¥¯¥·¥ç¥ó¤Î¥×¥í¥Ñ¥Æ¥£¤ò»²¾È¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° object.Section(index) object :Acess¥ª¥Ö¥¸¥§¥¯¥È index :»²¾È¤¹¤ë¥»¥¯¥·¥ç¥ó acDetail :¾ÜºÙ¥»¥¯¥·¥ç¥ó acHeader :¥Ø¥Ã¥À¡¼¥»¥¯¥·¥ç¥ó acFooter :¥Õ¥Ã¥¿¡¼¥»¥¯¥·¥ç¥ó acPageHeader :¥Ú¡¼¥¸¥Ø¥Ã¥À¡¼¥»¥¯¥·¥ç¥ó acPageFooter :¥Ú¡¼¥¸¥Õ¥Ã¥¿¡¼¥»¥¯¥·¥ç¥ó acGroupLevel1Header :¥°¥ë¡¼¥×¥ì¥Ù¥ë1¤Î¥Ø¥Ã¥À¡¼¥»¥¯¥·¥ç¥ó(¥ì¥Ý¡¼¥È¤Î¤ß) acGroupLevel1Footer :¥°¥ë¡¼¥×¥ì¥Ù¥ë1¤Î¥Õ¥Ã¥¿¡¼¥»¥¯¥·¥ç¥ó(¥ì¥Ý¡¼¥È¤Î¤ß -Îã~ ¥«¥ì¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È¤Î[¾ÜºÙ]¥»¥¯¥·¥ç¥ó¤Î[ÇØ·Ê¿§]¥×¥í¥Ñ¥Æ¥£¤ò»²¾È¤¹¤ë¡£ Me.Section(acDetail).BackColor -¾ÜºÙ¥»¥¯¥·¥ç¥ó¤Î¡Ö¥Õ¥©¡¼¥Þ¥Ã¥È»þ¡×¥×¥í¥Ñ¥Æ¥£¤Ë¥×¥í¥·¡¼¥¸¥ã¤òºîÀ® Private Sub ¾ÜºÙ_Format(Cancel As Integer, FormatCount As Integer) Static flgColor As Boolean If flgColor = True Then Me.Section(acDetail).BackColor = RGB(255, 255, 255) Else Me.Section(acDetail).BackColor = RGB(230, 230, 230) End If flgColor = Not flgColor End Sub **°õºþÁ°¤Ë¡Ö¥Ú¡¼¥¸ÀßÄê¡×¥À¥¤¥¢¥í¥°¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤¹¤ë [#a32c9766] Private Sub cmd°õºþ_Click() DoCmd.SelectObject acReport, "R_¸ÜµÒ", True '--------¡ DoCmd.RunCommand acCmdPageSetup '-------------------¢ DoCmd.OpenReport "R_¸ÜµÒ", acViewPreview '------------£ End Sub -¡¥Ç¡¼¥¿¥Ù¡¼¥¹¥¦¥£¥ó¥É¥¦¤Ç¡ÖR_¸ÜµÒ¡×¤òÁªÂò -¢¡Ö¥Ú¡¼¥¸ÀßÄê¡×¥À¥¤¥¢¥í¥°¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤¹¤ë -£¡ÖR_¸ÜµÒ¡×¥ì¥Ý¡¼¥È¤ò¥×¥ì¥Ó¥å¡¼¤¹¤ë **DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎSelectObject¥á¥½¥Ã¥É¤Ï¡¢¥Þ¥¯¥í¤Î¡Ö¥ª¥Ö¥¸¥§¥¯¥È¤ÎÁªÂò¡×¥¢¥¯¥·¥ç¥ó¤ÈƱ¤¸½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£ [#dfe2dae3] -½ñ¼° DoCmd.SelectObject objecttype, objectname, indatabasewindow objecttype :ÁªÂò¤¹¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Î¼ïÎà acDataAccessPage :¥Ç¡¼¥¿¥¢¥¯¥»¥¹¥Ú¡¼¥¸ acDiagram :¥À¥¤¥¢¥°¥é¥à acForm :¥Õ¥©¡¼¥à acFunction :´Ø¿ô acMacro :¥Þ¥¯¥í acModule :¥â¥¸¥å¡¼¥ë acQuery :¥¯¥¨¥ê acReport :¥ì¥Ý¡¼¥È acServerView :¥µ¡¼¥Ð¡¼¥Ó¥å¡¼ acStoredProcedure :¥¹¥È¥¢¥É¥×¥í¥·¡¼¥¸¥ã acTable :¥Æ¡¼¥Ö¥ë objectname :(¾Êά²Ä)ÁªÂò¤¹¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Î̾Á° indatabasewindow :(¾Êά²Ä)¥Ç¡¼¥¿¥Ù¡¼¥¹¥¦¥£¥ó¥É¥¦¤ÇÁªÂò¤¹¤ë¤«¤É¤¦¤« True :¥Ç¡¼¥¿¥Ù¡¼¥¹¥¦¥£¥ó¥É¥¦Æâ¤ÇÁªÂò False :³«¤¤¤Æ¤¤¤ë¥ª¥Ö¥¸¥§¥¯¥È¤òÁªÂò(´ûÄêÃÍ) **°õºþ¤¹¤ëÁ°¤Ë[°õºþ]¥À¥¤¥¢¥í¥°¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤¹¤ë¡£ [#ee7e0151] Private Sub cmd°õºþ_Click() DoCmd.SelectObject acReport, "R_¸ÜµÒ", True '--------¡ DoCmd.RunCommand acCmdPring '-------------------¢ End Sub -¡¥Ç¡¼¥¿¥Ù¡¼¥¹¥¦¥£¥ó¥É¥¦¤Ç¡ÖR_¸ÜµÒ¡×¤òÁªÂò -¢[°õºþ]¥À¥¤¥¢¥í¥°¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤¹¤ë **°õºþ¤¹¤ë¥Ç¡¼¥¿¤¬¤Ê¤¤»þ¤Ë½èÍý¤òÃæ»ß¤¹¤ë [#bbb9a126] +[R_¸ÜµÒ]¥ì¥Ý¡¼¥È¤Î¡Ö¶õ¥Ç¡¼¥¿¤Î»þ¡×¥×¥í¥Ñ¥Æ¥£¤Ë²¼µ¤òºîÀ®~ Cancel°ú¿ô¤òTrue¤Ë¤¹¤ë¤È¡¢¤³¤Î¥¤¥Ù¥ó¥È¤ò¼è¤ê¾Ã¤¹»ö¤¬¤Ç¤¤Þ¤¹¡£ Private Sub Report_NoData(Cancel As Integer) Cancel = True End Sub +[°õºþ]¥Ü¥¿¥ó¤Î¥¯¥ê¥Ã¥¯»þ¥×¥í¥Ñ¥Æ¥£¤Ë²¼µ¤Î¥×¥í¥·¡¼¥¸¥ã¤òºîÀ® Private Sub cmd°õºþ_Click() On Error GoTo Err_cmd°õºþ_Click DoCmd.OpenReport "Q_¸ÜµÒ", acViewPreview, , "ÅÔÆ»Éܸ©='" & Me!ÅÔÆ»Éܸ© & "'" exit_cmd°õºþ_Click: Exit Sub Err_cmd°õºþ_Click: Select Case Err.Number Case 2501 MsgBox "°õºþ¤¹¤ë¥Ç¡¼¥¿¤¬¤¢¤ê¤Þ¤»¤ó¡£", vbOKOnly + vbInformation, "¥ì¥Ý¡¼¥È¤ò³«¤¯" Case Else Beep MsgBox Err.Number & " : " & Err.Description End Select End Sub *¥ì¥³¡¼¥É¤ò¸¡º÷¤¹¤ë [#wa6ae4e6] ¥Õ¥©¡¼¥à¤Î¥ì¥³¡¼¥É¥½¡¼¥¹¤ò¸¡º÷¤¹¤ë¾ì¹ç¤Ï¡¢[[AccessVBA/DAO]]¤ÎRecordset¥ª¥Ö¥¸¥§¥¯¥È¤òÍøÍѤ·¤Æ¤¯¤À¤µ¤¤¡£~ [[AccessVBA/ADO]]¤ÎRecordset¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤Ï¡¢¥Õ¥©¡¼¥à¤Î¥½¡¼¥¹¤ò°·¤¦»ö¤¬¤Ç¤¤Þ¤»¤ó¡£ **¸¡º÷¥À¥¤¥¢¥í¥°¥Ü¥Ã¥¯¥¹¤òÍøÍѤ¹¤ë [#va7461ed] Public Sub cmd¸¡º÷_Click() Me!ÅÔÆ»Éܸ©.SetFocus DoCmd.RunCommand acCmdFind End Sub **¥Õ¥©¡¼¥à¤Ë¸¡º÷µ¡Ç½¤òÄɲ乤ë [#xc0a9d7b] ¥Õ¥©¡¼¥à¤Ë¥ì¥³¡¼¥É¥½¡¼¥¹¤Ï¡¢RecordsetClone¥×¥í¥Ñ¥Æ¥£¤Ç»²¾È¤Ç¤¤Þ¤¹¡£~ ¤³¤ì¤ò¤â¤È¤ËRecordset¥ª¥Ö¥¸¥§¥¯¥È¤òºîÀ®¤¹¤ë¤È¡¢Recordset¥ª¥Ö¥¸¥§¥¯¥È¤ÎFind·Ï¤Î¥á¥½¥Ã¥É¤òÍøÍѤ·¤Æ¡¢¥ì¥³¡¼¥É¤ò¸¡º÷¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£~ ¤¿¤À¤·¡¢¥Õ¥©¡¼¥à¤Î¥ì¥³¡¼¥É¥½¡¼¥¹¤È¡¢RecordsetClone¥×¥í¥Ñ¥Æ¥£¤ò¤â¤È¤ËºîÀ®¤·¤¿Recordset¥ª¥Ö¥¸¥§¥¯¥È¤ÏÊ̤Υ쥳¡¼¥É¥»¥Ã¥È¤Ç¤¹¡£~ Bookmark¥×¥í¥Ñ¥Æ¥£¤òÍøÍѤ·¤Æ¡¢Î¾Êý¤Î¥«¥ì¥ó¥È¥³¡¼¥É¤ÎƱ´ü¤ò¤È¤ë½èÍý¤¬É¬Íפˤʤê¤Þ¤¹¡£ -Îã Public Sub cmd¸¡º÷02_Click() Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.FindFirst "¸ÜµÒID = " & Me!txt¥¡¼ If rs.NoMatch Then Beep MsgBox "¸«¤Ä¤«¤ê¤Þ¤»¤ó" Else Me.Bookmark = rs.Bookmark '------¡ End If End Sub -¡¸¡º÷¤·¤¿¥ì¥³¡¼¥É¤ò¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë¡£ **¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤ÎÃͤò»È¤Ã¤Æ¸¡º÷¤¹¤ë [#e8416d2a] ¸¡º÷¤¹¤ëÃͤ¬¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤¦¤ÇÁªÂò¤Ç¤¤ì¤ÐÊØÍø¤Ç¤¹¡£~ ¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤ÇÃͤòÁªÂò¤¹¤ë¤È¡¢AfterUpdate¥¤¥Ù¥ó¥È¤¬È¯À¸¤·¤Þ¤¹¡£~ ¤³¤Î¤È¤¤Ë¸¡º÷¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤Ë¡¢¥×¥í¥°¥é¥à¤òºîÀ®¤·¤Æ¤¯¤À¤µ¤¤¡£ -¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤ÎºîÀ® ¥×¥í¥Ñ¥Æ¥£ ÃÍ Ãͽ¸¹ç¥¿¥¤¥× ¥Æ¡¼¥Ö¥ë/¥¯¥¨¥ê Ãͽ¸¹ç¥½¡¼¥¹ T_¸ÜµÒ Îó¿ô 3 ÎóÉý 0cm;0cm;1cm Ï¢·ëÎó 3 -¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤Î¹¹¿·¸å½èÍý¤Î¥×¥í¥Ñ¥Æ¥£¤Ë¥×¥í¥·¡¼¥¸¥ãºîÀ® Public Sub cbo¥¡¼_AfterUpdate() Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.FindFirst "»á̾ = '" & Me!cbo¥¡¼ & "'" Me.Bookmark = rs.Bookmark rs.Close: Set rs = Nothing End Sub **¤¢¤¤¤Þ¤¤¤Ê¾ò·ï¤Ç¸¡º÷¤¹¤ë [#jca722ee] ¥Æ¥¥¹¥È·¿¤Î¥Õ¥£¡¼¥ë¥É¤ò»È¤Ã¤Æ¸¡º÷¤¹¤ë¤È¤¡¢¸¡º÷¾ò·ï¤ËLike±é»»»Ò¤òÍøÍѤ·¤Æ¡¢¤¢¤¤¤Þ¤¤¤Ê¾ò·ï¤Ç¥ì¥³¡¼¥É¸¡º÷¤·¤Þ¤¹¡£ Public Sub cmd¸¡º÷02_Click() Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.FindFirst "ÅÔÆ»Éܸ© Like '" & Me!txt¥¡¼ & "*'" If rs.NoMatch Then Beep MsgBox "¸«¤Ä¤«¤ê¤Þ¤»¤ó" Else Me.Bookmark = rs.Bookmark End If End Sub **Ϣ³¤·¤Æ¸¡º÷¤¹¤ë [#v8eb993a] ÀèƬ¤ò¸¡º÷¥Ü¥¿¥ó¤ÏFindFirst¡¢¼¡¤ò¸¡º÷¥Ü¥¿¥ó¤ÏFindNext¤Ç¸¡º÷¤¹¤ë¤è¤¦¤Ë¤¹¤ë¡£ Public Sub cmdÀèƬ¤ò¸¡º÷_Click() Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.FindFirst "ÅÔÆ»Éܸ© Like '" & Me!txt¥¡¼ & "*'" If rs.NoMatch Then Beep MsgBox "¸«¤Ä¤«¤ê¤Þ¤»¤ó" Else Me.Bookmark = rs.Bookmark End If End Sub Public Sub cmd¼¡¤ò¸¡º÷_Click() Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.Bookmark = Me.Bookmark rs.FindNext "ÅÔÆ»Éܸ© Like '" & Me!txt¥¡¼ & "*'" If rs.NoMatch Then Beep MsgBox "ºÇ¸å¤Î¥ì¥³¡¼¥É¤Þ¤Ç¸¡º÷¤·¤Þ¤·¤¿" Else Me.Bookmark = rs.Bookmark End If End Sub **Æȼ«¤Î¸¡º÷ÃÖ´¹¥Ñ¥Í¥ë¤òºîÀ®¤¹¤ë [#cc2905c1] ²¼µ¤Î½èÍý¤ÇºîÀ®¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£~ ¥Õ¥©¡¼¥à¤ÎRefresh¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢¥Õ¥©¡¼¥à¾å¤Ç¹Ô¤Ã¤¿ÊÔ½¸¤òÊݸ¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ +¥Õ¥©¡¼¥à¾å¤Î¥³¥ó¥È¥í¡¼¥ë¤ËÃÖ´¹¤¹¤ëÃͤòÂåÆþ¤¹¤ë +¥Õ¥©¡¼¥à¾å¤ÎÊÔ½¸·ë²Ì¤ò¥ì¥³¡¼¥É¥½¡¼¥¹¤ËÊݸ¤¹¤ë Private Sub Form_Close() DoCmd.Close acForm, "F_¸ÜµÒ" End Sub Private Sub Form_Open(Cancel As Integer) DoCmd.OpenForm "F_¸ÜµÒ" DoCmd.MoveSize 3 * 567, 11 * 567 End Sub Private Sub cmdÀèƬ_Click() Dim rs As DAO.Recordset Set rs = Forms!F_¸ÜµÒ.RecordsetClone Select Case Me!cbo¥Õ¥£¡¼¥ë¥É Case "¸ÜµÒID" rs.FindFirst "¸ÜµÒID = " & Me!txt¸¡º÷ Case "»á̾" rs.FindFirst "»á̾ Like '" & Me!txt¸¡º÷ & "*'" End Select If rs.NoMatch Then Beep MsgBox "¸«¤Ä¤«¤ê¤Þ¤»¤ó" Else Forms!F_¸ÜµÒ.Bookmark = rs.Bookmark End If rs.Clone: Set rs = Nothing End Sub Private Sub cmd¼¡_Click() Dim rs As DAO.Recordset Set rs = Forms!F_¸ÜµÒ.RecordsetClone rs.Bookmark = Forms!F_¸ÜµÒ.Bookmark Select Case Me!cbo¥Õ¥£¡¼¥ë¥É Case "¸ÜµÒID" rs.FindNext "¸ÜµÒID = " & Me!¸¡º÷ Case "»á̾" rs.FindNext "»á̾ like '" & Me!txt¸¡º÷ & "*'" End Select If rs.NoMatch Then Beep MsgBox "ºÇ¸å¤Þ¤Ç¸¡º÷¤·¤Þ¤·¤¿¡£" Else Forms!F_¸ÜµÒ.Bookmark = rs.Bookmark End If rs.Clone: Set rs = Nothing End Sub Private Sub cmdÃÖ´¹_Click() Select Case Me!cbo¥Õ¥£¡¼¥ë¥É Case "¸ÜµÒID" Forms!F_¸ÜµÒ!¸ÜµÒID = Me!txtÃÖ´¹ Case "»á̾" Forms!F_¸ÜµÒ!»á̾ = Me!txtÃÖ´¹ End Select Forms!F_¸ÜµÒ.Refresh Call cmd¼¡_Click End Sub Private Sub cmd¥¥ã¥ó¥»¥ë_Click() DoCmd.Close End Sub *¥ì¥³¡¼¥É¤òÃê½Ð¤¹¤ë [#va48bc19] **¥Õ¥©¡¼¥à¤Ë¥Õ¥£¥ë¥¿µ¡Ç½¤òÄɲà [#i95d4d23] ¥Õ¥©¡¼¥à¤ÎFilter¥×¥í¥Ñ¥Æ¥£¤ÈFilterOn¥×¥í¥Ñ¥Æ¥£¤òÍøÍѤ·¤Æ¡¢Ãê½Ðµ¡Ç½¤òºîÀ®¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° form.Filter = criteria criteria :Ãê½Ð¾ò·ï¤òɽ¤¹Ê¸»úÎó -FilterOn¥×¥í¥Ñ¥Æ¥£ Filter¥×¥í¥Ñ¥Æ¥£¤ËÀßÄꤷ¤¿¥Õ¥£¥ë¥¿¤òŬÍѤ¹¤ë¤«¤É¤¦¤«¤ò·è¤á¤ë¥×¥í¥Ñ¥Æ¥£¤Ç¤¹¡£~ Ture¤Ë¤¹¤ë¤È¡¢¥Õ¥£¥ë¥¿¤òŬ±þ¤·¤ÆÃê½Ð¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£Flase¤Ë¤·¤¿¾ì¹ç¤Ï¡¢¥Õ¥£¥ë¥¿¤ò²ò½ü¤·¤Þ¤¹¡£ -Îã Private Sub cmdÃê½Ð_Click() If IsNull(Me!txt¾ò·ï) Then Beep MsgBox "Ãê½Ð¤¹¤ëÃͤòÆþÎϤ·¤Æ¤¯¤À¤µ¤¤¡£", vbOKOnly + vbCritical, "Ãê½Ð" Exit Sub End If Me.Filter = "ÅÔÆ»Éܸ© = '" & Me!txt¾ò·ï & "'" Me.FilterOn = True If Me.Recordset.RecordCount = 0 Then Beep MsgBox "³ºÅö¤¹¤ë¥ì¥³¡¼¥É¤¬¤¢¤ê¤Þ¤»¤ó", vbOKOnly + vbInformation, "Ãê½Ð" End If End Sub Private Sub cmd²ò½ü_Click() Me.FilterOn = False End Sub **Ãê½Ð¤·¤¿¥ì¥³¡¼¥É¤ò¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤Ëɽ¼¨¤¹¤ë [#g9b91c4f] ¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤Î[Îó¿ô]¤È[ÎóÉý]¤òŬÀÚ¤ÊÃͤËÊѹ¹¤·¤Æ¤«¤é Private Sub cmdÃê½Ð_Click() Me!lst·ë²Ì.RowSource = "select * from T_¸ÜµÒ WHERE ÅÔÆ»Éܸ© = '" & Me!txt¾ò·ï & "'" Me!lst·ë²Ì.Requery End Sub Private Sub cmd²ò½ü_Click() Me!txt¾ò·ï = Null Me!lst·ë²Ì.RowSource = "" Me!lst·ë²Ì.Requery End Sub **Ãê½Ð¤·¤¿¥ì¥³¡¼¥É¤ò¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤Ëɽ¼¨ [#ce5df784] Private Sub lst¾ò·ï_Click() Me!cbo·ë²Ì.RowSource = "SELECT »á̾,¸ÜµÒID,ÅÔÆ»Éܸ© FROM T_¸ÜµÒ WHERE ÅÔÆ»Éܸ© = '" & Me!lst¾ò·ï & "'" Me!cbo·ë²Ì.Requery End Sub **Ãê½Ð¤·¤¿¥ì¥³¡¼¥É¤ò¥µ¥Ö¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë [#wdcfab71] Private Sub Form_Open(Cancel As Integer) Call cmdÃê½Ð_Click End Sub Private Sub cmdÃê½Ð_Click() Me!sub·ë²Ì.Form.Filter = "ÅÔÆ»Éܸ© = '" & Me!txt¾ò·ï & "'" Me!sub·ë²Ì.Form.FilterOn = True End Sub Private Sub cmd²ò½ü_Click() Me!txt¾ò·ï = Null Call cmdÃê½Ð_Click End Sub **Ê£¿ô¤Î¾ò·ï¤ò»È¤Ã¤Æ¸¡º÷¤¹¤ë [#c19dafbc] **¥¿¥Ö¥³¥ó¥È¥í¡¼¥ë¤ò»È¤Ã¤ÆÃê½Ð [#l743b32f] ¥¿¥Ö¥³¥ó¥È¥í¡¼¥ë¤ò»È¤Ã¤Æ¡¢Ê£¿ô¤Î¥Ú¡¼¥¸¤ò»ý¤Ã¤¿¥·¥¹¥Æ¥à¼êÄ¢¤Î¤è¤¦¤Ê»ÅÀÚ¤ê¥Ú¡¼¥¸¤òºî¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -¥µ¥Ö¥Õ¥©¡¼¥à¤Î¥½¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥ÈºîÀ® +[ŽÌŽØŽ¶ŽÞŽÝ]¥Õ¥£¡¼¥ë¥É¤ÎÀèƬʸ»ú¤¬¥é¥Ù¥ë¤ÎɸÂê(Caption)¥×¥í¥Ñ¥Æ¥£¤ÎÃͤÈÅù¤·¤¤¥ì¥³¡¼¥É¤òÃê½Ð¤¹¤ë¥¯¥¨¥ê¤òºîÀ® +¥µ¥Ö¥Õ¥©¡¼¥à(sub·ë²Ì)¤Î¥½¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥È¤ËÀßÄꤷ¤Æ¤ª¤¯ -¥ª¥Ö¥¸¥§¥¯¥È¤ÎÀßÄê ¥ª¥Ö¥¸¥§¥¯¥È ̾Á° ¥×¥í¥Ñ¥Æ¥£ ÃÍ ¥é¥Ù¥ë ¥é¥Ù¥ë ɸÂê Ž¢Ž±-Žµ]* ¥Ú¡¼¥¸ page0 ɸÂê ¤¢ ¥Ú¡¼¥¸¥¤¥ó¥Ç¥Ã¥¯¥¹ 0 page1 ɸÂê ¤¤ ¥Ú¡¼¥¸¥¤¥ó¥Ç¥Ã¥¯¥¹ 1 ¡¦ ¡¦ ¥µ¥Ö¥Õ¥©¡¼¥à sub·ë²Ì -¥¿¥Ö¥³¥ó¥È¥í¡¼¥ë¤Î[Êѹ¹»þ/Change]¥×¥í¥Ñ¥Æ¥£¤Ë¥×¥í¥·¡¼¥¸¥ã¤òºîÀ® Private Sub tabŽÌŽØŽ¶ŽÞŽÅ_Change() Select Case Me!tabŽÌŽØŽ¶ŽÞŽÅ Case 0: Me!¥é¥Ù¥ë.Caption = "[Ž±-Žµ]*" Case 1: Me!¥é¥Ù¥ë.Caption = "[Ž¶-Žº]*" Case 2: Me!¥é¥Ù¥ë.Caption = "[Ž»-Ž¿]*" Case 3: Me!¥é¥Ù¥ë.Caption = "[ŽÀ-ŽÄ]*" Case 4: Me!¥é¥Ù¥ë.Caption = "[ŽÅ-ŽÉ]*" Case 5: Me!¥é¥Ù¥ë.Caption = "[ŽÊ-ŽÎ]*" Case 6: Me!¥é¥Ù¥ë.Caption = "[ŽÏ-ŽÓ]*" Case 7: Me!¥é¥Ù¥ë.Caption = "[ŽÔ-ŽÖ]*" Case 8: Me!¥é¥Ù¥ë.Caption = "[Ž×-ŽÛ]*" Case 9: Me!¥é¥Ù¥ë.Caption = "[ŽÜ-ŽÝ]*" Case 10: Me!¥é¥Ù¥ë.Caption = "*" End Select Me!sub·ë²Ì.Requery '------------------------¡ End Sub -¡¥µ¥Ö¥Õ¥©¡¼¥à¤ÎºÆ¥¯¥¨¥ê¤ò¼Â¹Ô¤¹¤ë¡£ **¥È¥°¥ë¥Ü¥¿¥ó¤ò»È¤Ã¤ÆÃê½Ð¤¹¤ë [#ic01f647] ¥ª¥×¥·¥ç¥ó¥°¥ë¡¼¥×¤Ç¥Õ¥ì¡¼¥à¤òÇÛÃÖ¤·¤Æ¤«¤é¡¢¤½¤ÎÃæ¤Ë¥È¥°¥ë¥Ü¥¿¥ó¤òÄɲ䷤Ƥ¤¤¯ ***&color(red){¥Ü¥¿¥ó¤Ê¤É¤Î¡Ö¥µ¥¤¥º¡¦ÇÛÃ֡פò·¤¨¤¿¤¤}; [#f86f7129] ·¤¨¤¿¤¤¥ª¥Ö¥¸¥§¥¯¥È¤òÁ´¤ÆÁªÂò¤·¤Æ¡¢¡Ö±¦¥¯¥ê¥Ã¥¯¡×¢Í¡Ö¥µ¥¤¥º¡×¡ÖÇÛÃÖ¡× -[¹¹¿·¸å½èÍý/AfterUpdate]¥×¥í¥Ñ¥Æ¥£¤Ë¥×¥í¥·¡¼¥¸¥ãºîÀ® Private Sub fra¾ò·ï_AfterUpdate() Dim criteria As String Select Case Me!fra¾ò·ï Case 1: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[Ž±-Žµ]*'" Case 2: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[Ž¶-ŽºŽÞ]*'" Case 3: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[Ž»-Ž¿ŽÞ]*'" Case 4: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[ŽÀ-ŽÄŽÞ]*'" Case 5: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[ŽÅ-ŽÉ]*'" Case 6: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[ŽÊ-ŽÎŽß]*'" Case 7: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[ŽÏ-ŽÓ]*'" Case 8: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[ŽÔ-ŽÖ]*'" Case 9: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[Ž×-ŽÛ]*'" Case 10: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[ŽÜ-ŽÝ]*'" Case 11: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '*'" End Select Me!sub·ë²Ì.Form.Filter = criteria Me!sub·ë²Ì.Form.FilterOn = True End Sub **¥Õ¥©¡¼¥à¤ËʤÙÂؤ¨µ¡Ç½¤òÄɲ乤ë [#pfe22030] Private Sub fraʤÙÂؤ¨_AfterUpdate() Debug.Print Me!fraʤÙÂؤ¨ Select Case Me!fraʤÙÂؤ¨ Case 1: Me!sub·ë²Ì.Form.OrderBy = "À¸Ç¯·îÆü ASC" Case 2: Me!sub·ë²Ì.Form.OrderBy = "À¸Ç¯·îÆü DESC" End Select Me!sub·ë²Ì.Form.OrderByOn = True End Sub *¥ì¥³¡¼¥É¤òºï½ü¤¹¤ë [#ce3065fc] **¥µ¥Ö¥ì¥³¡¼¥É¾å¤Î¥ì¥³¡¼¥É¤òºï½ü¤¹¤ë [#i1e7eba7] ¥µ¥Ö¥Õ¥©¡¼¥à¤Î¥ì¥³¡¼¥É¥½¡¼¥¹¤ò¤â¤È¤ËRecordset¥ª¥Ö¥¸¥§¥¯¥È¤òºîÀ®¤¹¤ë¤È¡¢Delete¥á¥½¥Ã¥É¤ò»È¤Ã¤Æ¡¢¥µ¥Ö¥Õ¥©¡¼¥à¤ÇÁªÂò¤µ¤ì¤Æ¤¤¤ë¥ì¥³¡¼¥É¤òºï½ü¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£~ ¥á¥¤¥ó¥Õ¥©¡¼¥à!¥µ¥Ö¥Õ¥©¡¼¥à̾!.Form RecordsetClone **ÆÃÄê¤Î¥ì¥³¡¼¥É¤ò°ìÅ٤˺ï½ü¤¹¤ë(SQL) [#h1b918bd] Private Sub cmdºï½ü_Click() Dim mySQL As String Dim ret As Integer Dim cn As New ADODB.Connection Dim com As New ADODB.Command mySQL = "DELETE * from T_¸ÜµÒ WHERE ÅÔÆ»Éܸ© = '" & Me!txt¾ò·ï & "'" Set cn = CurrentProject.Connection com.ActiveConnection = cn com.CommandText = mySQL com.Execute Me.Requery End Sub *ÆþÎÏÃͤΥÁ¥§¥Ã¥¯ [#eb82af61] **ÆþÎϤµ¤ì¤¿Ãͤ¬ÉÔÀµ¤Ê»þ¤ËºÆÆþÎϤòÂ¥¤¹ [#w36fdf09] ¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤ËÃͤòÆþÎϤ¹¤ë¤È¡¢²¼µ¤Î½çÈ֤˥¤¥Ù¥ó¥È¤¬È¯À¸¤·¤Þ¤¹¡£ Private Sub ¾¦ÉÊ̾_BeforeUpdate(Cancel As Integer) Dim ret As Integer Beep ret = MsgBox(Me!¾¦ÉÊ̾ & vbCrLf & "ÆþÎϤ·¤¿ÃͤÏÀµ¤·¤¤¤Ç¤¹¤«", vbQuestion + vbOKCancel, "ÆþÎϸ¡ºº") Select Case ret Case vbOK Case vbCancel Cancel = True End Select End Sub **ʸ»ú¿ô¤òÄ´¤Ù¤ë¡ÊLen) [#l79384ce] Len´Ø¿ô¤òÍøÍѤ¹¤ë¤È¡¢Ê¸»ú¿ô¤òÄ´¤Ù¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° retvalue = Len(sring) retvalue :Ìá¤êÃÍ(Long·¿). ¼èÆÀ¤·¤¿Ê¸»ú string :ʸ»ú¿ô¤òÄ´¤Ù¤ëʸ»úÎó -Îã ret = Len(Me!¾¦ÉÊ̾) len(Me!¾¦ÉÊ̾) **ʸ»ú¤òÈ´¤½Ð¤¹(Left) [#fabf8fc0] Left´Ø¿ô¤òÍøÍѤ¹¤ë¤È¡¢¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤ËÆþÎϤµ¤ì¤¿Ê¸»úÎó¤Îº¸Ã¼¤«¤é¡¢»ØÄꤷ¤¿Ê¸»ú¿ô¤ò¼èÆÀ -½ñ¼° retvalue = Left(string, length) retvalue :Ìá¤êÃÍ(String·¿). ¼èÆÀ¤·¤¿Ê¸»ú strign :Ä´¤Ù¤ëʸ»úÎó length :¼èÆÀ¤¹¤ëʸ»ú¿ô -Îã ret = Left(Me!¾¦ÉÊÈÖ¹æ,1) **Ãͤ¬½ÅÊ£¤·¤Æ¤¤¤Ê¤¤¤«¤É¤¦¤«Ä´¤Ù¤ë(DLookup) [#gaf64156] DLookup´Ø¿ô¤òÍøÍѤ¹¤ë¤È¡¢¥ì¥³¡¼¥É¥»¥Ã¥È¤ÎÃæ¤Ë»ØÄꤷ¤¿Ãͤ¬¤¢¤ë¤«¤É¤¦¤«¤òÄ´¤Ù¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° retvalue = DLookup(expr, domain, criteria) retvalue :Ìá¤êÃÍ(String·¿) ¥ì¥³¡¼¥É¥»¥Ã¥È¤Ë´Þ¤Þ¤ì¤ë¥Õ¥£¡¼¥ë¥ÉÃÍ expr :¥Õ¥£¡¼¥ë¥É̾ domain :¥Æ¡¼¥Ö¥ë̾¡¢¥¯¥¨¥ê̾ criteria :Ãͤò¸¡º÷¤¹¤ë¾ò·ï¼°¤òɽ¤¹Ê¸»úÎó -Îã~ [T_¾¦ÉÊ]¥Æ¡¼¥Ö¥ë¤Î[¾¦ÉÊÈÖ¹æ]¥Õ¥£¡¼¥ë¥É¤Ë¡ÖA0001¡×¤È¤¤¤¦Ãͤ¬ÅÐÏ¿¤µ¤ì¤Æ¤¤¤ë¤«¤É¤¦¤«~ ²¼µ¤Î¾ì¹çÃͤ¬¤¢¤ë»þ¤Ï¡ÖA0001¡×¡¢Ãͤ¬¸«¤Ä¤«¤é¤Ê¤¤¾ì¹ç¡ÖNull¡×¤Ë¤Ê¤ê¤Þ¤¹¡£ ret = DLookup("¾¦ÉÊÈÖ¹æ", "T_¾¦ÉÊ", "¾¦ÉÊÈÖ¹æ = 'A0001'") **ÆþÎϤµ¤ì¤Æ¤¤¤Ê¤¤¥³¥ó¥È¥í¡¼¥ë¤¬¤¢¤ë¤È¤¤Ë¹¹¿·ºî¶È¤ò¼è¤ê¾Ã¤¹ [#ff857271] ¥Õ¥©¡¼¥à¾å¤Î¥³¥ó¥È¥í¡¼¥ë¤Ï¡¢Controls¥³¥ì¥¯¥·¥ç¥ó¤Ç´ÉÍý¤µ¤ì¤Æ¤¤¤Þ¤¹¡£~ For Each control in Controls ¡¦ ¡¦ ¡¦ Next ¾åµ¤ò·«¤êÊÖ¤»¤Ð¡¢¥Õ¥©¡¼¥à¾å¤ÎÁ´¤Æ¤Î¥³¥ó¥È¥í¡¼¥ë¤Ë¥¢¥¯¥»¥¹¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£~ ¥³¥ó¥È¥í¡¼¥ë¤Î¥¿¥¤¥×¤Ï¡¢Control¥ª¥Ö¥¸¥§¥¯¥È¤ÎControlType¥×¥í¥Ñ¥Æ¥£¤Ç»²¾È¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -Îã Private Sub Form_BeforeUpdate(Cancel As Integer) Dim ctrl As Control Dim str As String Dim ret As Integer str = "" For Each ctrl In Me.Controls '--------------------------¡ If ctrl.ControlType = acTextBox Then '-------------------¢ If IsNull(ctrl) Then '-------------------£ str = str & ctrl.Name & " " '-------------------¤ End If End If Next If str <> "" Then '----------------------------------------¥ Beep ret = MsgBox(str & vbCrLf & "ÆþÎϤµ¤ì¤Æ¤¤¤Þ¤»¤ó", _ vbExclamation + vbOKCancel, "ÆþÎϸ¡º÷") Select Case ret Case vbOK '²¿¤â¤·¤Ê¤¤ Case vbCancel Cancel = True '---------------------------------------¦ End Select End If End Sub -¡¥Õ¥©¡¼¥à¾å¤Î¤¹¤Ù¤Æ¤Î¥³¥ó¥È¥í¡¼¥ë¤ò»²¾È¤¹¤ë·«¤êÊÖ¤· -¢»²¾È¤Î¥³¥ó¥È¥í¡¼¥ë¤¬¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤Î¾ì¹ç -£¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤ÎÃͤ¬Null¤«¤É¤¦¤«Ä´¤Ù¤ë -¤strÊÑ¿ô¤Ë¥³¥ó¥È¥í¡¼¥ë̾¤òÄɲ䷤Ƥ¤¤¯ -¥ÊÑ¿ôstr¤¬½é´üÃÍ("")°Ê³°¤Î»þ¤Ï¡¢¥á¥Ã¥»¡¼¥¸¥Ü¥Ã¥¯¥¹¤Ç¥³¥ó¥È¥í¡¼¥ë̾¤òɽ¼¨¤¹¤ë¡£ -¦[¥¥ã¥ó¥»¥ë]¥Ü¥¿¥ó¤¬ÁªÂò¤µ¤ì¤¿¤È¤¤Ï¡¢¥Õ¥©¡¼¥à¤Ç¤Î¹¹¿·Áàºî¤ò¼è¤ê¾Ã¤¹ *¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¹½ÃۤΥҥó¥È [#v191da61] **¥Õ¥©¡¼¥à¤Ë¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥¡¼¤òÄɲ乤ë [#r60af970] ¥Õ¥©¡¼¥à¤Î[¥¡¼¥¯¥ê¥Ã¥¯»þ/KeyDown]¥×¥í¥Ñ¥Æ¥£¤Ë¥×¥í¥·¡¼¥¸¥ã¤òºîÀ® Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF1 Call cmdÃê½Ð_Click Case vbKeyF2 Call cmd²ò½ü_Click End Select End Sub -&color(red){¥Õ¥©¡¼¥à¤Î[¥¡¼¥¤¥Ù¥ó¥È¼èÆÀ]¥×¥í¥Ñ¥Æ¥£¤ò¡Ö¤Ï¤¤¡×¤Ë¤·¤Æ¤ª¤¯}; -¼ç¤Ê¥¡¼¥³¡¼¥É |¥¡¼|¥¡¼¥³¡¼¥ÉÄê¿ô|h |[F1]|vbKeyF1| |[F2]|vbKeyF2| |[Insert]|vbKeyInsert| |[Delete]|vbKeyDelete| |¢¬|vbKeyUp| |¢|vbKeyDown| **ÆþÎϤ·¤¿Ãͤˤè¤Ã¤Æ¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°¤¹¤ë [#b690134b] ¥ª¥Ö¥¸¥§¥¯¥È¤ÎSetFocus¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢¤½¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ë¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°¤¹¤ë»ö¤¬¤Ç¤¤ë¡£ -½ñ¼° object.Setfocus -Îã~ ͹ÊØÈֹ椬ÆþÎϤµ¤ì¤ì¤Ð¡¢½»½ê2¤Ë¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°~ ÆýÊØÈֹ椬ÆþÎϤµ¤ì¤Ê¤±¤ì¤Ð¡¢½»½ê1¤Ë Private Sub ͹ÊØÈÖ¹æ_AfterUpdate() If IsNull(Me!͹ÊØÈÖ¹æ) Then Me.½»½ê1.SetFocus Else Me.½»½ê2.SetFocus End If End Sub **¼¡¤Î¥Ú¡¼¥¸¤Ë¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°¤¹¤ë [#x06e2f02] Form¥ª¥Ö¥¸¥§¥¯¥È¤ÎGoToPage¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È»ØÄꤷ¤¿¥Ú¡¼¥¸¤ÎÀèƬ¥ª¥Ö¥¸¥§¥¯¥È¤Ë¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° form.GoToPage pagenumber, right, down pagenumber :°ÜÆ°Àè¤Î¥Ú¡¼¥¸ÈÖ¹æ right :(¾Êά²Ä)ɽ¼¨¤¹¤ë¥Ú¡¼¥¸¤Îº¸Ã¼¤Î¿åÊ¿Êý¸þ¤Î¥ª¥Õ¥»¥Ã¥È(twipñ°Ì) down :(¾Êά²Ä)ɽ¼¨¤¹¤ë¥Ú¡¼¥¸¤Î¾å¶¶¤Î¿åÊ¿Êý¸þ¤Î¥ª¥Õ¥»¥Ã¥È(twipñ°Ì¡Ë -Îã Private Sub fra½»½ê_AfterUpdate() Debug.Print Me.fra½»½ê Select Case Me!fra½»½ê Case 1: Me.GoToPage 1 Case 2: Me.GoToPage 2 End Select End Sub **¥³¥ó¥È¥í¡¼¥ë¤Î»ÈÍѲÄǽ/ÉղäòÀÚ¤êÂؤ¨¤ë [#a4f0ca0a] ¥³¥ó¥È¥í¡¼¥ë¤Î[»ÈÍѲÄǽ]¥×¥í¥Ñ¥Æ¥£¤ò¡Ö¤¤¤¤¤¨¡×¤Ë¤¹¤ë¤È¡¢¤½¤Î¥³¥ó¥È¥í¡¼¥ë¤Ï¼Â¹Ô»þ¤Ë¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°¤¹¤ë»ö¤¬¤Ç¤¤Ê¤¯¤Ê¤ê¤Þ¤¹¡£~ [»ÈÍѲÄǽ]¥×¥í¥Ñ¥Æ¥£¤Î±Ñ¸ìɽµ¤Ï¡ÖEnable¡×¤Ç¤¹¡£ -Îã Me!cmdÃê½Ð.Enable = False '»ÈÍÑÉÔ²Ä Me!cmdÃê½Ð.Enable = True '»ÈÍÑ²Ä **¥³¥ó¥È¥í¡¼¥ë¤Îɽ¼¨/Èóɽ¼¨¤òÀÚ¤êÂؤ¨¤ë [#v88414b0] ¥³¥ó¥È¥í¡¼¥ë[²Ä»ë]¥×¥í¥Ñ¥Æ¥£¤ò¡Ö¤¤¤¤¤¨¡×¤Ë¤¹¤ë¤È¡¢¤½¤Î¥³¥ó¥È¥í¡¼¥ë¤ÏÈóɽ¼¨¤Ë¤Ê¤ê¤Þ¤¹¡£~ [²Ä»ë]¥×¥í¥Ñ¥Æ¥£¤Î±Ñ¸ìɽµ¤Ï¡ÖVisible¡×¤Ç¤¹¡£ -Îã If IsNull(Me!txt¥¡¼) Then M!cmdÃê½Ð.Visible = False '----Èóɽ¼¨ Else Me!cmdÃê½Ð.Visible = True '---ɽ¼¨ End If **¥Ç¡¼¥¿¥Ù¡¼¥¹¥¦¥£¥ó¥É¥¦¤òºÇ¾®²½¤¹¤ë [#gfa5794b] DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤Î²¼µ¤Î¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢¥«¥ì¥ó¥È¥¦¥£¥ó¥É¥¦¤Î¥µ¥¤¥º¤òÊѹ¹¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£~ ¤³¤ì¤é¤Î¥á¥½¥Ã¥É¤Ï¡¢¥Þ¥¯¥í¤Î[ºÇ¾®²½][ºÇÂç²½][¸µ¤Î¥µ¥¤¥º¤ËÌ᤹]¥¢¥¯¥·¥ç¥ó¤ÈƱ¤¸½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£ -½ñ¼° DoCmd.Mimimize :ºÇ¾®²½ DoCmd.Maximize :ºÇÂç²½ DoCmd.Restore :¸µ¤Î¥µ¥¤¥º¤ËÌ᤹ ¤³¤ì¤é¤Ï¡¢¥«¥ì¥ó¥È¥¦¥£¥ó¥É¥¦¤Î¥µ¥¤¥º¤òÊѹ¹¤¹¤ë½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£~ ¥á¥½¥Ã¥É¤ò¼Â¹Ô¤¹¤ëÁ°¤Ë¡¢¥µ¥¤¥º¤òÊѹ¹¤¹¤ë¥¦¥£¥ó¥É¥¦¤ÎSetFocus¤òÍøÍѤ¹¤ë¤«DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎSelectObject¥á¥½¥Ã¥É¤òÍøÍѤ·¤Æ¡¢¤½¤Î¥¦¥£¥ó¥É¥¦¤ò¥¢¥¯¥Æ¥£¥Ö¤Ê¾õÂ֤ˤ·¤Æ¤¯¤À¤µ¤¤¡£~ ¥Ç¡¼¥¿¥Ù¡¼¥¹¥¦¥£¥ó¥É¥¦¤ò¥¢¥¯¥Æ¥£¥Ö¤Ë¤¹¤ë¤Ë¤Ï¡¢SelectObject¥á¥½¥Ã¥É¤Îindatabasewindou°ú¿ô¤òTrue¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£ -[[DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎSelectObject¥á¥½¥Ã¥É>#dfe2dae3]] -Îã Private Sub cmdºÇ¾®²½_Click() DoCmd.SelectObject acTable, , True DoCmd.Minimize End Sub Private Sub cmd¸µ¤Î¥µ¥¤¥º_Click() DoCmd.SelectObject acTable, , True DoCmd.Restore Me.SetFocus End Sub **¥Õ¥©¡¼¥à¤¬³«¤¤¤Æ¤¤¤ë¤«¤É¤¦¤«Ä´¤Ù¤ë [#xcf915d9] SysCmd¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢»ØÄꤷ¤¿Access¥ª¥Ö¥¸¥§¥¯¥È¤¬³«¤¤¤Æ¤¤¤ë¤«¤É¤¦¤«¤ò³Îǧ¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£~ ¥ª¥Ö¥¸¥§¥¯¥È¤¬³«¤¤¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢¤½¤Î¥Ó¥å¡¼¤âÄ´¤Ù¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° SysCmd(action, arg2, arg3) action :¼Â¹Ô¤¹¤ë¥¢¥¯¥·¥ç¥ó¤Î¼ïÎà Access¥ª¥Ö¥¸¥§¥¯¥È¤Î¾õÂÖ¤òÄ´¤Ù¤ë»þ¤Ï¡ÖacSysCmdGetObjectState¡× arg2 :¾õÂÖ¤òÄ´¤Ù¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Î¼ïÎà acTable :¥Æ¡¼¥Ö¥ë acQuery :¥¯¥¨¥ê acForm :¥Õ¥©¡¼¥à acReport :¥ì¥Ý¡¼¥È acMacro :¥Þ¥¯¥í acModule :¥â¥¸¥å¡¼¥ë acDataAccessPage :¥Ç¡¼¥¿¥¢¥¯¥»¥¹¥Ú¡¼¥¸ arg3 :¾õÂÖ¤òÄ´¤Ù¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Î̾Á° -Îã~ ¡ÖF_¸ÜµÒ¡×¥Õ¥©¡¼¥à¤Î¾õÂÖ¤òÄ´¤Ù¤ë SysCmd(acSysCmdGetObjectState, acForm, "F_¸ÜµÒ") --Ìá¤êÃÍ Äê¿ô ÃÍ °ÕÌ£ 0 ÊĤ¸¤Æ¤¤¤ë acObjStateOpen 1 ³«¤¤¤Æ¤¤¤ë acObjStateDirty 2 Êѹ¹¸åÊݸ¤µ¤ì¤Æ¤¤¤Ê¤¤ acObjStateNew 3 ¿·¤·¤¤ ***¥ª¥Ö¥¸¥§¥¯¥È¤Î¥«¥ì¥ó¥È¥Ó¥å¡¼ [#e1a56669] ¥ª¥Ö¥¸¥§¥¯¥È¤Î¥«¥ì¥ó¥È¥Ó¥å¡¼¤ÏCurrentView¥×¥í¥Ñ¥Æ¥£¤Ç»²¾È¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -Îã~ ¡ÖF_¸ÜµÒ¡×¥Õ¥©¡¼¥à¤Î¥«¥ì¥ó¥È¥Ó¥å¡¼¤òÄ´¤Ù¤ë Forms("F_¸ÜµÒ").CurrentView --Ìá¤êÃÍ ÃÍ ¥Ó¥å¡¼ 0 ¥Ç¥¶¥¤¥ó¥Ó¥å¡¼ 1 ¥Õ¥©¡¼¥à¥Ó¥å¡¼ 2 ¥Ç¡¼¥¿¥·¡¼¥È¥Ó¥å¡¼ -Îã Private Sub cmd³Îǧ_Click() Dim frmname As String Dim frmview As String frmname = Me.txt̾Á° If SysCmd(acSysCmdGetObjectState, acForm, frmname) = 0 Then Beep MsgBox frmname & " ¤ÏÊĤ¸¤Æ¤Þ¤¹", vbOKOnly + vbInformation, "³Îǧ" Else Select Case Forms(frmname).CurrentView Case 0: frmview = "¥Ç¥¶¥¤¥ó¥Ó¥å¡¼" Case 1: frmview = "¥Õ¥©¡¼¥à¥Ó¥å¡¼" Case 2: frmview = "¥Ç¡¼¥¿¥·¡¼¥È¥Ó¥å¡¼" End Select Beep MsgBox frmname & " ¤Ï³«¤¤¤Æ¤¤¤Þ¤¹ : " & frmview, _ vbOKOnly + vbInformation, "³Îǧ" End If End Sub **¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤Î¥ê¥¹¥È¤ËÃͤòÄɲ乤ë [#s5109a1e] ¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤Ë¸ºß¤·¤Ê¤¤Ãͤò¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹Éôʬ¤ËÆþÎϤ¹¤ë¤È¡¢¥ê¥¹¥È³°ÆþÎÏ»þ/NotInList¥¤¥Ù¥ó¥È¤¬È¯À¸¤·¤Þ¤¹¡£~ ¤³¤Î¤È¤Æȼ«¤Î¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤·¤Æ¡¢ÆþÎϤ·¤¿Ãͤò¥ê¥¹¥È¤ËÄɲ乤ë½èÍý¤ò¼Â¹Ô¤Ç¤¤Þ¤¹¡£~ cbo¥°¥ë¡¼¥×¤ÎÆþÎÏ¥Á¥§¥Ã¥¯¤ò¡Ö¤Ï¤¤¡×¤Ë¤¹¤ë¡£ -Îã Private Sub cbo¥°¥ë¡¼¥×_NotInList(NewData As String, Response As Integer) Dim ret As Integer Dim cn As ADODB.Connection Dim rs As New ADODB.Recordset Debug.Print ret Response = acDataErrContinue '-------------------------------------¡ Beep ret = MsgBox(NewData & " ¤ò¥ê¥¹¥È¤ËÄɲä·¤Þ¤¹¤«", _ vbYesNo + vbQuestion, "¥ê¥¹¥ÈÄɲÃ") Select Case ret Case vbYes Set cn = CurrentProject.Connection rs.Open "¾¦Éʥơ¼¥Ö¥ë", cn, adOpenKeyset, adLockOptimistic rs.AddNew "¾¦ÉÊ̾", NewData '-----------------------------------¢ Me.cbo¥°¥ë¡¼¥× = Null '--------------------------------------£ Me.cbo¥°¥ë¡¼¥×.Requery '--------------------------------------¤ Case vbNo Me.cbo¥°¥ë¡¼¥× = Null Me.cbo¥°¥ë¡¼¥×.Dropdown End Select End Sub -¡NotInList¥×¥í¥·¡¼¥¸¥ã¤ÎResponse°ú¿ô¤òacDataErrContinue¤Ë¤¹¤ë¤È¡¢¥·¥¹¥Æ¥à¥á¥Ã¥»¡¼¥¸¤òÈóɽ¼¨¤Ë¤·¤Æ¡¢Æȼ«¤Î¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤¹¤ë»ö¤¬¤Ç¤¤ë¡£ -¢¿·µ¬¥ì¥³¡¼¥É¤òÄɲ䷤ơ¢¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹Éôʬ¤ËÆþÎϤµ¤ì¤¿Ãͤò¡Ö¾¦ÉÊ̾¡×¥Õ¥£¡¼¥ë¥É¤ËÂåÆþ¤¹¤ë~ ¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤ËÆþÎϤµ¤ì¤¿Ãͤϡ¢NoInList¥×¥í¥·¡¼¥¸¥ã¤ÎNewData°ú¿ô¤Ç»²¾È¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -£¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹Éôʬ¤ò¶õ¤Ë¤¹¤ë -¤¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤ÎºÆ¥¯¥¨¥ê¤ò¼Â¹Ô¤¹¤ë **½èÍý¤Ë»þ´Ö¤¬¤«¤«¤ë»þ¤Ë¡¢¥¹¥Æ¡¼¥¿¥¹¥Ð¡¼¤Ë¥¤¥ó¥¸¥±¡¼¥¿¤òɽ¼¨¤¹¤ë¡£ [#a7d309f6] SysCmd¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢¥¹¥Æ¡¼¥¿¥¹¥Ð¡¼¤Ë»ØÄꤷ¤¿Ê¸»úÎó¤òɽ¼¨¤·¤¿¤ê¡¢¿ÊĽ¾õ¶·¤òɽ¤¹¥¤¥ó¥¸¥±¡¼¥¿¤òɽ¼¨¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° SysCmd(action, arg2, arg3) --¥¤¥ó¥¸¥±¡¼¥¿¤Î½é´ü²½ action :acSysCmdInitMeter arg2 :¥¹¥Æ¡¼¥¿¥¹¥Ð¡¼¤Ëɽ¼¨¤¹¤ëʸ»úÎó arg3 :¥¤¥ó¥¸¥±¡¼¥¿¤ÎºÇÂçÃÍ --¥¤¥ó¥¸¥±¡¼¥¿¤ò¹¹¿· action :acSysCmdUpdateMeter arg2 :¥¤¥ó¥¸¥±¡¼¥¿¤Î¸½ºß¤ÎÃÍ arg3 :(ÀßÄꤷ¤Ê¤¤) --¥¤¥ó¥¸¥±¡¼¥¿¤ò¾Ãµî action :acSysCmdRemoveMeter arg2 :(ÀßÄꤷ¤Ê¤¤) arg3 :(ÀßÄꤷ¤Ê¤¤) -Îã Private Sub cmd¥¹¥¿¡¼¥È_Click() Dim i As Long Dim cnt As Long cnt = 10000000 SysCmd acSysCmdInitMeter, "½èÍýÃæ", cnt For i = 0 To cnt SysCmd acSysCmdUpdateMeter, i Next i SysCmd acSysCmdRemoveMeter MsgBox "½èÍý´°Î»", vbOKOnly + vbInformation, "´°Î»" End Sub **½èÍý¤Ë»þ´Ö¤¬¤«¤«¤ë»þ¤Ë¥Õ¥©¡¼¥à¤Ë¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤¹¤ë [#c6b96d8a] DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎHourgLass¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢¥Þ¥¦¥¹¤Î¥Ý¥¤¥ó¥¿¤Î·Á¾õ¤òº½»þ·×¤Ë¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° DoCmd.HourLass hourLasson hourLasson :º½»þ·×¥Ý¥¤¥ó¥¿¤òɽ¼¨¤¹¤ë¤«¤É¤¦¤« True :º½»þ·×¥Ý¥¤¥ó¥¿ False :Ä̾ï¥Ý¥¤¥ó¥¿ ¥³¥Þ¥ó¥É¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢²¼µ¤Î½çÈ֤ǥ¤¥Ù¥ó¥È¤¬È¯À¸¤·¤Þ¤¹¡£ MouseDown¥¤¥Ù¥ó¥È ¢Í MouseUp¥¤¥Ù¥ó¥È ¢Í Click¥¤¥Ù¥ó¥È -Îã Private Sub cmd¥¹¥¿¡¼¥È_Click() Dim i As Long Dim cnt As Long DoCmd.Hourglass True '--------------------------------------¡ cnt = 10000000 SysCmd acSysCmdInitMeter, "½èÍýÃæ", cnt For i = 0 To cnt SysCmd acSysCmdUpdateMeter, i Next i SysCmd acSysCmdRemoveMeter Me.lbl¥á¥Ã¥»¡¼¥¸.Visible = False '---------------------------¢ DoCmd.Hourglass False '--------------------------------------£ MsgBox "½èÍý´°Î»", vbOKOnly + vbInformation, "´°Î»" End Sub Private Sub cmd¥¹¥¿¡¼¥È_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Me.lbl¥á¥Ã¥»¡¼¥¸.Visible = True '--------------------------¤ End Sub Private Sub Form_Open(Cancel As Integer) Me.lbl¥á¥Ã¥»¡¼¥¸.Visible = False End Sub -¡¥Ý¥¤¥ó¥¿¤Î·Á¾õ¤òº½»þ·×¤Ë¤¹¤ë -¢lbl¥á¥Ã¥»¡¼¥¸¥é¥Ù¥ë¤òÈóɽ¼¨¤Ë¤¹¤ë -£¥Ý¥¤¥ó¥¿¤Î·Ð¾ï¤òÄ̾ï¤ËÌ᤹ -¤lbl¥á¥Ã¥»¡¼¥¸¥é¥Ù¥ë¤òɽ¼¨¤¹¤ë **ÆüÉÕ¤ò¥¢¥Ã¥×¥À¥¦¥ó¤¹¤ë¥Ü¥¿¥ó¤òºîÀ®¤¹¤ë [#w729f375] Visual Basic¤ÎDataAdd´Ø¿ô¤òÍøÍѤ¹¤ë¤È¡¢»ØÄꤷ¤¿»þ´Ö´Ö³Ö¤ò²Ã»»¤Þ¤¿¤Ï¸º»»¤·¤¿ÆüÉÕ¤ò¼èÆÀ¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° retvalue = DataAdd(interval, number, date) retvalue :Ìá¤êÃÍ(String·¿) ²Ã»»¤Þ¤¿¸º»»¤·¤¿ÆüÉÕ interval :Äɲ乤ë»þ´Ö´Ö³Ö¤òɽ¤¹Ê¸»úÎó¼° yyyy :ǯ m :·î d :Æü number :Äɲ乤ë»þ´Ö´Ö³Ö¤Î¿ô date :»þ´Ö´Ö³Ö¤òÄɲ乤ëÆüÉÕ -Îã1~ º£Æü¤ÎÆüÉÕ¤«¤é10Æü¸å¤ÎÆüÉÕ¤ò¼èÆÀ¤¹¤ë ret = DateAdd("d", 10, Date) -Îã2~ º£Æü¤ÎÆüÉÕ¤«¤é10ÆüÁ°¤ÎÆüÉÕ¤ò¼èÆÀ¤¹¤ë ret = DateAdd("d", -10, Date) -ÆüÉÕ¤ò¥¢¥Ã¥×¥À¥¦¥ó¤¹¤ë¥Ü¥¿¥ó Private Sub Form_Open(Cancel As Integer) Debug.Print "¤Æ¤¹¤È" Me.txtÆüÉÕ = Date End Sub Private Sub cmdDec_Click() Me.txtÆüÉÕ = DateAdd("d", -1, Me.txtÆüÉÕ) End Sub Private Sub cmdInc_Click() Me.txtÆüÉÕ = DateAdd("d", 1, Me.txtÆüÉÕ) End Sub --¥³¥ó¥Ñ¥¤¥ë¥¨¥é¡¼¤¬½Ð¤ë~ VisualBasic Editor¤Ç¡¢¡Ö¥Ä¡¼¥ë¡×¢Í¡Ö»²¾ÈÀßÄê¡×¢Í»²¾ÈÉԲĤäƤΤ˥Á¥§¥Ã¥¯¤¬Æþ¤Ã¤Æ¤¤¤¿¤Î¤Ç¡¢¤½¤ì¤ò³°¤¹¤È¼£¤Ã¤¿¡£ **ADO¤Î¥ì¥³¡¼¥É¥»¥Ã¥È¤ò¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë [#g1ca3de6] ¥Õ¥©¡¼¥à¤ÎRecordset¥×¥í¥Ñ¥Æ¥£¤ËADO¤ÎRecordset¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î»²¾È¤òÂåÆþ¤¹¤ë¤È¡¢Recordset¥ª¥Ö¥¸¥§¥¯¥È¤ÎÆâÍƤò¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ Set forms!form.Recordset = recordset -ADO¤Î¥ì¥³¡¼¥É¥»¥Ã¥È¤Ï¥Õ¥©¡¼¥à¾å¤ÇÊÔ½¸¤¹¤ë»ö¤¬¤Ç¤¤Þ¤»¤ó¡£~ ÊÔ½¸¤¹¤ëɬÍפ¬¤¢¤ë¾ì¹ç¤Ï¡¢DAO¤òÍøÍѤ·¤Æ¤¯¤À¤µ¤¤¡£ -Îã Private Sub txt¥¡¼_AfterUpdate() Dim cn As ADODB.Connection Dim rs As New ADODB.Recordset Dim mySQL As String mySQL = "SELECT * FROM T_¾¦ÉÊ WHERE ¾¦ÉÊ¥°¥ë¡¼¥× = '" & Me.txt¥¡¼ & "'" Set cn = CurrentProject.Connection rs.Open mySQL, cn, adOpenKeyset, adLockOptimistic Set Me.Recordset = rs rs.Close: Set rs = Nothing: cn.Close: Set cn = Nothing End Sub **DAO¤Î¥ì¥³¡¼¥É¥»¥Ã¥È¤ò¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë [#h5d3abcc] ¥Õ¥©¡¼¥à¤ÎRecorset¥×¥í¥Ñ¥Æ¥£¤ËDAO¤ÎRecordset¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î»²¾È¤òÂåÆþ¤¹¤ë¤È¡¢Recordset¥ª¥Ö¥¸¥§¥¯¥È¤ÎÆâÍƤò¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ Set forms!form.Recorset = recordset -[[DAO¤òÍøÍѤ¹¤ë¤Ë¤Ï>AccessVBA/DAO#DAO]] -Îã Private Sub txt¥¡¼_AfterUpdate() Dim db As DAO.Database Dim rs As DAO.Recordset Dim mySQL As String Set db = CurrentDb() mySQL = "SELECT * FROM T_¾¦ÉÊ WHERE ¾¦ÉÊ¥°¥ë¡¼¥× Like '" & Me.txt¥¡¼ & "*'" Set rs = db.OpenRecordset(mySQL) Set Me.Recordset = rs Set rs = Nothing: Set db = Nothing End Sub **Æȼ«¤Î¥ì¥³¡¼¥É°ÜÆ°¥Ü¥¿¥ó¤òºî¤ë [#d2b3f56f] ¥Õ¥©¡¼¥à¤ÎRecordset¥×¥í¥Ñ¥Æ¥£¤Ï¡¢¥Õ¥©¡¼¥à¤Ëɽ¼¨¤·¤Æ¤¤¤ë¥ì¥³¡¼¥É¥½¡¼¥¹¤½¤Î¤â¤Î¤ò»²¾È¤·¤Þ¤¹¡£~ Recordset¥ª¥Ö¥¸¥§¥¯¥È¤ÎMove·Ï¤Î¥á¥½¥Ã¥É¤ò»È¤Ã¤Æ¡¢¥«¥ì¥ó¥È¥³¡¼¥É¤ò°ÜÆ°¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -Îã '¥Õ¥©¡¼¥à¤ò[³«¤¯»þ/Open] Private Sub Form_Open(Cancel As Integer) Me.Recordset.MoveLast Me.Recordset.MoveFirst End Sub '¥Õ¥©¡¼¥à¤Î[¥ì¥³¡¼¥É°ÜÆ°»þ/Current] Private Sub Form_Current() Me.txt¾ðÊó = Me.CurrentRecord & " / " & Me.Recordset.RecordCount End Sub Private Sub cmdÀèƬ_Click() Me.Recordset.MoveFirst End Sub Private Sub cmdÁ°_Click() Me.Recordset.MovePrevious End Sub Private Sub cmd¼¡_Click() Me.Recordset.MoveNext End Sub Private Sub cmdºÇ½ª_Click() Me.Recordset.MoveLast End Sub **¾·Á¼°¤Î¥Õ¥¡¥¤¥ë¤ò¥¤¥ó¥Ý¡¼¥È¤¹¤ë [#qfd84c45] DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎTransferSpreadsheet¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢·×»»¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÇºîÀ®¤·¤¿¥Õ¥¡¥¤¥ë¤«¤é¥Ç¡¼¥¿¤òÆɤ߹þ¤à»ö¤¬½ÐÍè¤Þ¤¹¡£~ ¤Þ¤¿¡¢TransferText¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢CSV·Á¼°¤Î¥Õ¥¡¥¤¥ë¤«¤é¥Ç¡¼¥¿¤òÆɤ߹þ¤à»ö¤¬¤Ç¤¤Þ¤¹¡£~ ¤³¤Î¤È¤Visual Basic¤ÎDir´Ø¿ô¤òÍøÍѤ¹¤ë¤È¡¢¥¤¥ó¥Ý¡¼¥È¸µ¤Î¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤¹¤ë¤«¤É¤¦¤«Ä´¤Ù¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -TransferSpreadsheet¥á¥½¥Ã¥É~ ɽ·×»»¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÇºîÀ®¤·¤¿¥Õ¥¡¥¤¥ë¤«¤é¥Ç¡¼¥¿¤òÆɤ߹þ¤ß¡¢¥Æ¡¼¥Ö¥ëÄɲ乤ë½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£~ ¥Þ¥¯¥í¤Î[¥ï¡¼¥¯¥·¡¼¥ÈÊÑ´¹]¥¢¥¯¥·¥ç¥ó¤ÈƱ¤¸½èÍý¤Ç¤¹¡£ -½ñ¼° DoCmd.TransferSpreadsheet transfertype, spreadsheettype, tablename, filename, hasfieldnames, range transfertype :ÊÑ´¹¤Î¼ïÎà ¥¤¥ó¥Ý¡¼¥È¤Î»þ¤Ï¡Öaclmport¡× spreadsheettype :¥ï¡¼¥¯¥·¡¼¥È¤Î¥¿¥¤¥× Excel·Á¼°¤Î¥Õ¥¡¥¤¥ë¤ò¥¤¥ó¥Ý¡¼¥È¤¹¤ë¤È¤¤Ï¡ÖacSpreadsheettypeExcel8¡× ¤Þ¤¿¤Ï¡ÖacSpreadsheetTypeExcel9¡× tablename :¥¤¥ó¥Ý¡¼¥È¤·¤¿¥Ç¡¼¥¿¤òÊݸ¤¹¤ë¥Æ¡¼¥Ö¥ë̾ filename :¥¤¥ó¥Ý¡¼¥È¤¹¤ë¥Õ¥¡¥¤¥ë̾ hasfieldnames :(¾Êά²Ä)¥Õ¥¡¥¤¥ë¤ÎÀèƬ¹Ô¤ò¥Õ¥£¡¼¥ë¥É̾¤Ë»ÈÍѤ¹¤ë¤«¤É¤¦¤« range :(¾Êά²Ä)Æɤ߹þ¤àÈÏ°Ï --Îã~ ¡ÖD:\Sample.xls¡×¤«¤éÆɤ߹þ¤ó¤À¥Ç¡¼¥¿¤ò[¥µ¥ó¥×¥ë]¥Æ¡¼¥Ö¥ë¤ËÄɲ乤롣 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "¥µ¥ó¥×¥ë", "D:\Sample.xls" -TransferText¥á¥½¥Ã¥É~ CSV·Á¼°¤Î¥Õ¥¡¥¤¥ë¤«¤é¥Ç¡¼¥¿¤òÆɤ߹þ¤à»þ¤Ë¤Ï¡¢TransferText¥á¥½¥Ã¥É¤òÍøÍѤ·¤Þ¤¹¡£ --½ñ¼° DoCmd.TransferText transfertype, specificationname, tablename, filename, hasfieldnames, htmltablename, codepage transfertype :ÊÑ´¹¤Î¼ïÎà CSV·Á¼°¤Î¥Õ¥¡¥¤¥ë¤«¤é¥¤¥ó¥Ý¡¼¥È¤¹¤ë¤È¤¤Ï¡¢¡ÖacImportDelim¡× specificationname :(¾Êά²Ä)ÄêµÁ¥Õ¥¡¥¤¥ë̾ tablename :¥¤¥ó¥Ý¡¼¥È¤·¤¿¥Ç¡¼¥¿¤òÊݸ¤¹¤ë¥Æ¡¼¥Ö¥ë̾ filename :¥¤¥ó¥Ý¡¼¥È¸µ¤Î¥Õ¥¡¥¤¥ë̾ hasfieldnames :(¾Êά²Ä)¥Õ¥¡¥¤¥ë¤ÎÀèƬ¹Ô¤ò¥Õ¥£¡¼¥ë¥É̾¤Ë¤·¤è¤¦¤¹¤ë¤«¤É¤¦¤« htmltablename :(ÀßÄꤷ¤Ê¤¤) codepage :(¾Êά²Ä)¥³¡¼¥É¥Ú¡¼¥¸¤Îʸ»ú¥»¥Ã¥È --Îã~ ¡ÖD:\Sample.csv¡×¤«¤éÆɤ߹þ¤ó¤À¥Ç¡¼¥¿¤ò[¥µ¥ó¥×¥ë]¥Æ¡¼¥Ö¥ë¤ËÄɲ乤ë DoCmd.TransferText acImportDelim,,"¥µ¥ó¥×¥ë","D:\Sample.csv" -Dir´Ø¿ô [#m3948c38] ¥·¥¹¥Æ¥à¤Ë¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤¹¤ë¤«¤É¤¦¤« -½ñ¼° retvalue = Dir(pathname) retvalue :Ìá¤êÃÍ(String·¿) pathname :Ä´¤Ù¤ë¥Õ¥¡¥¤¥ë¤Î¥Ñ¥¹Ì¾ Dir´Ø¿ô¤Ï¡¢»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤¬¸«¤Ä¤«¤Ã¤¿¾ì¹ç¤Ë¤Ï¥Õ¥¡¥¤¥ë̾¤òÊÖ¤·¤Þ¤¹¡£¤â¤·¤â¸«¤Ä¤«¤é¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢Ä¹¤µ0¤Îʸ»úÎó("")¤òÊÖ¤·¤Þ¤¹¡£ -Îã [Me.txt¥Õ¥¡¥¤¥ë]¤Ë»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤ò[Me.txt¥Æ¡¼¥Ö¥ë]¤Ë»ØÄꤷ¤¿¥Æ¡¼¥Ö¥ë¤Ë¥¤¥ó¥Ý¡¼¥È¤¹¤ë¡£ Private Sub cmd¥¤¥ó¥Ý¡¼¥È_Click() Dim ext As String If IsNull(Me.txt¥Õ¥¡¥¤¥ë) Or IsNull(Me.txt¥Æ¡¼¥Ö¥ë) Then Beep MsgBox "¥¤¥ó¥Ý¡¼¥È¤¹¤ë¥Õ¥¡¥¤¥ë¤È¡¢¥¤¥ó¥Ý¡¼¥ÈÀè¥Æ¡¼¥Ö¥ë̾¤¬ÆþÎϤµ¤ì¤Æ¤ª¤ê¤Þ¤»¤ó¡£", _ vbOKOnly + vbExclamation, "¥¤¥ó¥Ý¡¼¥È" Exit Sub End If '¥Õ¥¡¥¤¥ë¤¬¤¢¤ë¤«¤É¤¦¤«¥Á¥§¥Ã¥¯ If Dir(Me.txt¥Õ¥¡¥¤¥ë) = "" Then Beep MsgBox "¥Õ¥¡¥¤¥ë¤¬¸«¤Ä¤«¤ê¤Þ¤»¤ó", vbOKOnly + vbExclamation, "¥¤¥ó¥Ý¡¼¥È" Exit Sub End If '³ÈÄ¥»Ò¤ò¥Á¥§¥Ã¥¯¤·¤Æ¥¤¥ó¥Ý¡¼¥È ext = Right(Me.txt¥Õ¥¡¥¤¥ë, 3) Select Case ext Case "xls" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _ Me.txt¥Æ¡¼¥Ö¥ë, Me.txt¥Õ¥¡¥¤¥ë, True Case "csv" DoCmd.TransferText acImportDelim, , _ Me.txt¥Æ¡¼¥Ö¥ë, Me.txt¥Õ¥¡¥¤¥ë, True Case Else Beep MsgBox "»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤Ï¥¤¥ó¥Ý¡¼¥È¤Ç¤¤Þ¤»¤ó¡£", vbOKOnly + vbExclamation, "¥¤¥ó¥Ý¡¼¥È" End Select Beep MsgBox "¥¤¥ó¥Ý¡¼¥È´°Î»", vbOKOnly + vbInformation, "¥¤¥ó¥Ý¡¼¥È" End Sub **¥Æ¡¼¥Ö¥ë¤ò¾·Á¼°¤Î¥Õ¥¡¥¤¥ë¤Ë¥¨¥¯¥¹¥Ý¡¼¥È¤¹¤ë [#c7f53f12] ¥Æ¡¼¥Ö¥ë¤ËÅÐÏ¿¤µ¤ì¤Æ¤¤¤ë¥ì¥³¡¼¥É¤ä¥¯¥¨¥ê¤Î·ë²Ì¤ò¾·Á¼°¤Î¥Õ¥¡¥¤¥ë¤Ë¥¨¥¯¥¹¥Ý¡¼¥È¤¹¤ë»þ¤â¡¢CoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎTransferSpreadsheet¥á¥½¥Ã¥É¤ÈTransferText¥á¥½¥Ã¥É¤òÍøÍѤ·¤Þ¤¹¡£~ -Îã(TransferSpreadsheet¥á¥½¥Ã¥É)~ Excel·Á¼°¤Î¥Õ¥¡¥¤¥ë¤Ë¥¨¥¯¥¹¥Ý¡¼¥È¤¹¤ë¤È¤¤Ï¡¢transfertype°ú¿ô¤òacExport¤Ë¤¹¤ë~ [T_¾¦ÉÊ]¥Æ¡¼¥Ö¥ë¤ÎÆâÍƤò¡ÖD:\Access\¾¦ÉÊ°ìÍ÷.xls¡×¤Ë½ÐÎϤ¹¤ë Excel·Á¼°¤Î¥Õ¥¡¥¤¥ë¤Ë¥¨¥¯¥¹¥Ý¡¼¥È¤¹¤ë¤È¤¤Ï¡¢transfertype°ú¿ô¤òExport¤Ë¤¹¤ë¡£ DoCmd.TransferSpreadsheet acExport, acSpreadSheetType8, "T_¾¦ÉÊ", "D:\Access\¾¦ÉÊ°ìÍ÷" -Îã(TransferText¥á¥½¥Ã¥É)~ CSV·Á¼°¤Î¥Õ¥¡¥¤¥ë¤Ë¥¨¥¯¥¹¥Ý¡¼¥È¤¹¤ë¤È¤¤Ï¡¢transfertype°ú¿ô¤òacExportDelim¤Ë¤¹¤ë~ [T_¾¦Éʥơ¼¥Ö¥ë]¤ÎÆâÍƤò¡ÖD:\Access\¾¦ÉÊ°ìÍ÷.csv¡×¤Ë½ÐÎϤ¹¤ë DoCmd.TransferText acExportDelim, , "T_¾¦ÉÊ", "D:\Access\¾¦ÉÊ°ìÍ÷.csv" -Îã~ ¥Æ¡¼¥Ö¥ë¤Þ¤¿¤Ï¡¢¥¯¥¨¥ê¤Î·ë²Ì¤ò¡¢»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤Ë¥¨¥¯¥¹¥Ý¡¼¥È¤¹¤ë Private Sub cmd¥¨¥¯¥¹¥Ý¡¼¥È_Click() On Error GoTo Err_cmd¥¨¥¯¥¹¥Ý¡¼¥È_Click Dim ext As String Dim ret As Integer '¥Æ¡¼¥Ö¥ë̾¡¢¥¨¥¯¥¹¥Ý¡¼¥ÈÀè¥Õ¥¡¥¤¥ë̾¤¬ÆþÎϤµ¤ì¤Æ¤¤¤ë¤«¤É¤¦¤« If IsNull(Me.txt¥Æ¡¼¥Ö¥ë) Then Beep MsgBox "¥Æ¡¼¥Ö¥ë̾¤«¡¢¥¨¥¯¥¹¥Ý¡¼¥ÈÀè¤Î¥Õ¥¡¥¤¥ë̾¤¬ÆþÎϤµ¤ì¤Æ¤ª¤ê¤Þ¤»¤ó." _ , vbOKOnly + vbExclamation, "¥¨¥¯¥¹¥Ý¡¼¥È" Exit Sub End If '¥Õ¥¡¥¤¥ë¤¬¤¢¤ë¤«¤É¤¦¤« If Dir(Me.txt¥Õ¥¡¥¤¥ë) = "" Then Else Beep ret = MsgBox("»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤Ï´û¤Ë¸ºß¤·¤Þ¤¹¡£" & vbCrLf _ & "¾å½ñ¤¤·¤Þ¤¹¤«", _ vbYesNo + vbQuestion, "¥¨¥¯¥¹¥Ý¡¼¥È") Select Case ret Case vbYes Case vbNo Beep MsgBox "¥Õ¥¡¥¤¥ë̾¤òÆþÎϤ·Ä¾¤·¤Æ¤¯¤À¤µ¤¤", _ vbOKOnly + vbInformation, "¥¨¥¯¥¹¥Ý¡¼¥È" Exit Sub End Select End If '·Á¼°/³ÈÄ¥»Ò¤ò¥Á¥§¥Ã¥¯¤·¤Æ¥¨¥¯¥¹¥Ý¡¼¥È ext = Right(Me.txt¥Õ¥¡¥¤¥ë, 3) Select Case fra·Á¼° Case 1 If ext = "xls" Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, _ Me.txt¥Æ¡¼¥Ö¥ë, Me.txt¥Õ¥¡¥¤¥ë, True Else Beep MsgBox "³ÈÄ¥»Ò¤¬ÉÔÀµ¤Ç¤¹¡£", vbOKOnly + vbExclamation, "¥¨¥¯¥¹¥Ý¡¼¥È" Exit Sub End If Case 2 If (ext = "csv") Or (ext = "txt") Then DoCmd.TransferText acExportDelim, , Me.txt¥Æ¡¼¥Ö¥ë, Me.txt¥Õ¥¡¥¤¥ë, True Else Beep MsgBox "³ÈÄ¥»Ò¤¬ÉÔÀµ¤Ç¤¹¡£", vbOKOnly + vbExclamation, "¥¨¥¯¥¹¥Ý¡¼¥È" End If End Select Beep MsgBox "¥¨¥¯¥¹¥Ý¡¼¥È¤ò½ªÎ»¤·¤Þ¤·¤¿", vbOKOnly + vbInformation, "¥¨¥¯¥¹¥Ý¡¼¥È" Exit_cmd¥¨¥¯¥¹¥Ý¡¼¥È_Click: Exit Sub Err_cmd¥¨¥¯¥¹¥Ý¡¼¥È_Click: Beep MsgBox Err.Number & " : " & Err.Description Resume Exit_cmd¥¨¥¯¥¹¥Ý¡¼¥È_Click: End Sub **¥«¥ì¥ó¥È¥³¡¼¥É¤ò°ÜÆ°¤¹¤ë [#y26b8670] DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎGoToRecord¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢»ØÄꤷ¤¿¥ì¥³¡¼¥É¤ò¥«¥ì¥ó¥È¥³¡¼¥É¤Ë¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£~ ¥Þ¥¯¥í¤Î¡Ö¥ì¥³¡¼¥É¤Î°ÜÆ°¡×¥¢¥¯¥·¥ç¥ó¤ÈƱ¤¸½èÍý¤Ç¤¹¡£ -½ñ¼° DoCmd.GoToRecord objecttype, objectname, record, offset objecttype :(¾Êά²Ä)¥ª¥Ö¥¸¥§¥¯¥È¤Î¼ïÎà objectname :(¾Êά²Ä)¥ª¥Ö¥¸¥§¥¯¥È̾ record :°ÜÆ°Àè¤Î¥ì¥³¡¼¥É acFirst :ÀèƬ¥ì¥³¡¼¥É¤Ø acPrevious :¤Ò¤È¤ÄÁ°¤Î¥ì¥³¡¼¥É¤Ø acNext :¼¡¤Î¥ì¥³¡¼¥É(´ûÄêÃÍ) acLast :ºÇ½ª¥ì¥³¡¼¥É¤Ø acNewRec :¿·µ¬¥ì¥³¡¼¥É¤Ø acGoTo :»ØÄꤷ¤¿¥ì¥³¡¼¥É¤Ø offset :(¾Êά²Ä)°ÜÆ°¤¹¤ë¥ì¥³¡¼¥É¿ô **¥Õ¥¡¥¤¥ë¤Ë½ÐÎϤ¹¤ëÊýË¡ [#o2472700] +¥Õ¥¡¥¤¥ë¤ò½ÐÎϥ⡼¥É¤Ç³«¤¯(Open¥¹¥Æ¡¼¥È¥á¥ó¥È) +¥Ç¡¼¥¿¤ò½ÐÎϤ¹¤ë(Write #¥¹¥Æ¡¼¥È¥á¥ó¥È) +¥Õ¥¡¥¤¥ë¤òÊĤ¸¤ë(Close¥¹¥Æ¡¼¥È¥á¥ó¥È) -Open¥¹¥Æ¡¼¥È¥á¥ó¥È~ »ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤ò³«¤¤¤Æ¡¢¥Ç¡¼¥¿¤òÆþ½ÐÎϤǤ¤ë¤è¤¦¤Ë¤·¤Þ¤¹¡£ --½ñ¼° Open passname For mode As #filenumber passname :½ÐÎÏÀè¤Î¥Õ¥¡¥¤¥ë̾ mode :¥Õ¥¡¥¤¥ë¥â¡¼¥É(½ÐÎÏÍѤ˳«¤¯¤È¤¤Ï¡ÖOutput¡×) finenumber :¥Õ¥¡¥¤¥ë¤ò¼±Ê̤¹¤ëÈÖ¹æ ---Îã~ ¡ÖD:\Access\Sample.csv¡×¤ò½ÐÎϥ⡼¥É¤Ç³«¤¯(¥Õ¥¡¥¤¥ëÈÖ¹æ¤Ï1) Open "D:\Access\Sample.csv" For Output As #1 -write¥¹¥Æ¡¼¥È¥á¥ó¥È Output¥â¡¼¥É¤Ç³«¤¤¤¿¥Õ¥¡¥¤¥ë¤Ë¡¢¥Ç¡¼¥¿¤ò½ÐÎϤ·¤Þ¤¹¡£ --½ñ¼° Write #filenumber, outputlist finenumber :³«¤¤¤Æ¤¤¤ë¥Õ¥¡¥¤¥ëÈÖ¹æ outputlist :¥Õ¥¡¥¤¥ë¤Ë½ÐÎϤ¹¤ë¥Ç¡¼¥¿ ---Îã~ ¥Õ¥¡¥¤¥ë¤Ë¥ì¥³¡¼¥É¥»¥Ã¥È¤Î¡Ö¸ÜµÒID¡×¤È¡Ö»á̾¡×¤ò½ÐÎϤ¹¤ë(¥Õ¥¡¥¤¥ëÈÖ¹æ¤Ï1) Write #1, recordset!¸ÜµÒID, recordset!»á̾ -Close¥¹¥Æ¡¼¥È¥á¥ó¥È~ ¥Õ¥¡¥¤¥ë¤òÊĤ¸¤ë½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£ --½ñ¼° Close #filenumber finenumber :³«¤¤¤Æ¤¤¤ë¥Õ¥¡¥¤¥ëÈÖ¹æ ---Îã~ ¥Õ¥¡¥¤¥ë¤òÊĤ¸¤ë(¥Õ¥¡¥¤¥ëÈÖ¹æ¤Ï1) Close #1
¥¿¥¤¥à¥¹¥¿¥ó¥×¤òÊѹ¹¤·¤Ê¤¤
*»öÎ㽸 [#eb202357] #contents *¥Õ¥©¡¼¥à¤ÎÁàºî [#c7a0e9e9] ¥Õ¥©¡¼¥à¤ò³«¤¤¤¿¤êÊĤ¸¤¿¤ê¤¹¤ëºî¶È¤Ï¡¢DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎOpenForm¥á¥½¥Ã¥É¤ÈClose¥á¥½¥Ã¥É¤ò»È¤¤¤Þ¤¹¡£ **»ØÄꤷ¤¿¥Õ¥©¡¼¥à¤ò³«¤¯ [#ea3b3aeb] -½ñ¼° DoCmd.OpenForm formname, view, filtername, wherecondition, datamode, windowmode, openargs formname :³«¤¯¥Õ¥©¡¼¥à¤Î̾Á° view :(¾Êά²Ä)¥Ó¥å¡¼ acDesign :¥Ç¥¶¥¤¥ó¥Ó¥å¡¼ acFormDS :¥Ç¡¼¥¿¥·¡¼¥È¥Ó¥å¡¼ acFormPivotChart :¥Ô¥Ü¥Ã¥È¥°¥é¥Õ¥Ó¥å¡¼ acFormPibotTable :¥Ô¥Ü¥Ã¥È¥Æ¡¼¥Ö¥ë¥Ó¥å¡¼ acNormal :¥Õ¥©¡¼¥à¥Ó¥å¡¼(´ûÄêÃÍ) acPreview :°õºþ¥×¥ì¥Ó¥å¡¼ filtername :(¾Êά²Ä)¥ì¥³¡¼¥É¤òÃê½Ð¾ò·ï¤ò»ØÄꤷ¤¿¥¯¥¨¥ê̾ wherecondition :¥ì¥³¡¼¥ÉÃê½Ð¾ò·ï¤òɽ¤¹Ê¸»úÎó datamode :(¾Êά²Ä)¥Ç¡¼¥¿¥â¡¼¥É acFormAdd :Äɲà acFormEdit :ÊÔ½¸ acFormPropetySetting :ÊÔ½¸(´ûÄêÃÍ) acFormReadOnly :Æɤ߼è¤êÀìÍÑ windowmode :(¾Êά²Ä)¥¦¥£¥ó¥É¥¦¥â¡¼¥É acDialog :¥À¥¤¥¢¥í¥° acHidden :Èóɽ¼¨ aclcon :¥¢¥¤¥³¥ó acWindowNormal :ɸ½à(´ûÄêÃÍ) openargs :(¾Êά²Ä)³«¤¯¥Õ¥©¡¼¥à¤ËÅϤ¹Ê¸»úÎó¼° -Îã1 DoCmd.OpenForm "F_¸ÜµÒ" ***Ãê½Ð¤·¤¿¥ì¥³¡¼¥É¤ò¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë¡£ [#kdcc66a0] -Îã1~ [Q_ÅìµþÅÔ]¥¯¥¨¥ê¤ò»È¤Ã¤ÆÃê½Ð¤·¤¿¥ì¥³¡¼¥É¤ò[F_¸ÜµÒ¥Õ¥©¡¼¥à]¤Ëɽ¼¨¤¹¤ë¡£ DoCmd.OpenForm "F_¸ÜµÒ", , "Q_ÅìµþÅÔ" -Îã2~ wherecondition°ú¿ô¤Ë¾ò·ï¤ò½ñ¤¤¤ÆÃê½Ð¤¹¤ë¡£ DoCmd.OpenForm "F_¸ÜµÒ",,,"ÅÔÆ»Éܸ© = 'ÅìµþÅÔ'" ***¿·µ¬¥ì¥³¡¼¥ÉÄɲÃÍѤ˥ե©¡¼¥à¤ò³«¤¯ [#z3b4e324] Private Sub cmd¸ÜµÒ_Click() DoCmd.OpenForm "F_¸ÜµÒ", , , , acFormAdd End Sub ***¥Õ¥©¡¼¥à¤ÎɸÂê¤òÊѹ¹¤¹¤ë [#d0407d90] -¥Õ¥©¡¼¥à¤òºîÀ®¤·¤Æ¡¢¥¯¥ê¥Ã¥¯»þ¤Î¥×¥í¥Ñ¥Æ¥£¤ËOpenArgs¤òÅϤ¹¤è¤¦¤ËÀßÄê Private Sub cmdÄɲÃ_Click() DoCmd.OpenForm "F_¸ÜµÒ", , , , acFormAdd, , "ÄɲÃ" End Sub Private Sub cmdÊÔ½¸_Click() DoCmd.OpenForm "F_¸ÜµÒ", , , , acFormEdit, , "ÊÔ½¸" End Sub Private Sub cmdÆɤ߼è¤ê_Click() DoCmd.OpenForm "F_¸ÜµÒ", , , , acFormReadOnly, , "Æɤ߼è¤ê" End Sub -¡ÖF_¸ÜµÒ¡×¤Î³«¤¯»þ¤Î¥×¥í¥Ñ¥Æ¥£¤Ë²¼µ¤Î¥×¥í¥·¡¼¥¸¥ã¤òºîÀ® Private Sub Form_Open(Cancel As Integer) Select Case Me.OpenArgs Case "ÄɲÃ" Me.Caption = "F_¸ÜµÒ¡¡(Äɲå⡼¥É)" Case "ÊÔ½¸" Me.Caption = "F_¸ÜµÒ¡¡(ÊÔ½¸¥â¡¼¥É)" Case "Æɤ߼è¤ê" Me.Caption = "F_¸ÜµÒ (Æɤ߼è¤ê¥â¡¼¥É)" Case Else Me.Caption = "F_¸ÜµÒ" End Select End Sub **¥Õ¥©¡¼¥à¤Î°ÌÃÖ¤ò»ØÄꤹ¤ë [#s0863f94] DoCMD¥ª¥Ö¥¸¥§¥¯¥È¤ÎMoveSize¥á¥½¥Ã¥É¤òÍøÍѤ·¤Æ¡¢¥«¥ì¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È¤Îɽ¼¨°ÌÃÖ¤äÂ礤µ¤ò»ØÄꤹ¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° DoCMD.MoveSize right, down, width, height right :¥¦¥£¥ó¥É¥¦¤Îº¸¶ù¤Î¿åÊ¿°ÌÃÖ.ºî¶È¥¦¥£¥ó¥É¥¦¤Îº¸Ã¼¤«¤é¤Îµ÷Î¥¤Ç»ØÄê down :¥¦¥£¥ó¥É¥¦¤Îº¸¶ù¤Î¿âľ°ÌÃÖ.ºî¶È¥¦¥£¥ó¥É¥¦¤Î¾å¶¶¤«¤é¤Îµ÷Î¥¤Ç»ØÄê width :¥¦¥£¥ó¥É¥¦¤ÎÉý height :¥¦¥£¥ó¥É¥¦¤Î¹â¤µ -Îã~ ¥¦¥£¥ó¥É¥¦¤ÎÉý¤ò10cm¡¢¹â¤µ¤ò5cm¤Ë¤¹¤ë DoCmd.MoveSize ,,10 * 567, 5 * 567 -&color(red){»²¹Í};~ MoveSize¥á¥½¥Ã¥É¤Î°ú¿ô¤Ï¡¢twipñ°Ì¤Ç»ØÄꤷ¤Æ¤¯¤À¤µ¤¤¡£~ twip¤Ï¡¢²èÌ̤ÎŤµ¤òɽ¤¹»þ¤Ë»È¤¦Ã±°Ì¤Ç¤¹¡£~ -1cm¤Ï567twip -1inch¤Ï440twip -1¥Ô¥¯¥»¥ë¤Ï15twip **¥Õ¥©¡¼¥à¤ÎÂ礤µ¤Çɽ¼¨¤¹¤ë [#w86b8ec7] ¥Õ¥©¡¼¥à¤Î[¥µ¥¤¥º¼«Æ°½¤Àµ]¥×¥í¥Ñ¥Æ¥£¤¬¡Ö¤¤¤¤¤¨¡×¤Î¾ì¹ç¤Ï¡¢ºÇ¸å¤ËÊĤ¸¤¿¤È¤¤Î¥¦¥£¥ó¥É¥¦¤ÎÂ礤µ¤Ç¥Õ¥©¡¼¥à¤¬³«¤¤Þ¤¹¡£~ -½ñ¼° DoCmd.RunCommand acCmdSizeToFitForm -Îã Private Sub cmd¥µ¥¤¥ºÊѹ¹_click() DoCmd.RunCommand acCmdSizeToFitForm End Sub **ͽÄê»þ¹ï¤Ë¥¢¥é¡¼¥à¤òɽ¼¨¤¹¤ë [#h7c50541] -ÀßÄê ¥ª¥Ö¥¸¥§¥¯¥È ̾Á° ¥×¥í¥Ñ¥Æ¥£ ÃÍ ¥Õ¥©¡¼¥à ¥¿¥¤¥Þ´Ö³Ö 1000 ¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹ »þ´Ö ½ñ¼° »þ¹ï(S) -Îã ¥Õ¥©¡¼¥à Private Sub Form_Timer() If time() = Me!»þ´Ö Then Beep MsgBox "¥¢¥é¡¼¥à" End If End Sub **¥Õ¥©¡¼¥à¤òÊĤ¸¤ë [#m3a19aa6] -½ñ¼° DoCmc.Close objecttype, objectnae, save objecttype :(¾Êά²Ä)ÊĤ¸¤ë¥ª¥Ö¥¸¥§¥¯¥È¥¿¥¤¥× acDataAccessPage :¥Ç¡¼¥¿¥¢¥¯¥»¥¹¥Ú¡¼¥¸ acDefault :¥«¥ì¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È(´ûÄêÃÍ) acDiagram :¥À¥¤¥¢¥°¥é¥à acForm :¥Õ¥©¡¼¥à acFunction :´Ø¿ô acMacro :¥Þ¥¯¥í acModule :¥â¥¸¥å¡¼¥ë acQuery :¥¯¥¨¥ê acReport :¥ì¥Ý¡¼¥È acServerView :¥µ¡¼¥Ð¡¼¥Ó¥å¡¼ acStoredProcedure :¥¹¥È¥¢¥¢¥É¥×¥í¥·¡¼¥¸¥ã acTable :¥Æ¡¼¥Ö¥ë objectname :(¾Êά²Ä)ÊĤ¸¤ë¥ª¥Ö¥¸¥§¥¯¥È̾ save :(¾Êά²Ä)ÊĤ¸¤ë»þ¤Ë¥ª¥Ö¥¸¥§¥¯¥È¤òÊݸ¤¹¤ë¤«¤É¤¦¤« acSaveNo :Êݸ¤·¤Ê¤¤ acPrompt :Êѹ¹¤¬¤¢¤Ã¤¿¤È¤³Îǧ¤¹¤ë(´ûÄêÃÍ) acSaveYes :Êݸ¤¹¤ë.³Îǧ¤Ï¤·¤Ê¤¤ **¥Õ¥©¡¼¥à¤òϢư¤µ¤»¤ë [#uf2e4790] ¥Õ¥©¡¼¥à¤ò³«¤¯¤È¤¡¢FormOpen¥×¥í¥·¡¼¥¸¥ã¤ËÊ̤Υե©¡¼¥à¤â°ì½ï¤Ë³«¤¯½èÍý¤ò½ñ¤¤¤Æ¤ª¤±¤Ð¡¢~ 2¤Ä¤Î¥Õ¥©¡¼¥à¤ò°ì½ï¤Ë³«¤¯¤³¤È¤¬¤Ç¤¤Þ¤¹¡£ Private Sub Form_Open(Cancel As Integer) DoCmd.OpenForm "F_¸ÜµÒ", acFormDS End Sub Private Sub Form_Close() DoCmd.Close acForm, "F_¸ÜµÒ" End Sub **2¤Ä¤Î¥Õ¥©¡¼¥à¤òϢư¤µ¤»¤ë [#d70ce2c0] [¥ì¥³¡¼¥É¤Î°ÜÆ°»þ]¥×¥í¥Ñ¥Æ¥£¤Ë²¼µ¤Î¥×¥í¥·¡¼¥¸¥ã¤òºîÀ® Private Sub Form_Current() DoCmd.OpenForm "F_ÃíʸÍúÎò", acFormDS, , "¸ÜµÒID =" & Me!¸ÜµÒID '-----------¡ Me.SetFocus '-------------------------------------------------------------¢ End Sub -¡[F_ÃíʸÍúÎò]¥Õ¥©¡¼¥à¤ò¥Ç¡¼¥¿¥·¡¼¥È¥Ó¥å¡¼¤Ç³«¤¯,[¸ÜµÒID]¥Õ¥£¡¼¥ë¥É¤¬¥á¥¤¥ó¥Õ¥©¡¼¥à¤Î[¸ÜµÒID]¤ÈƱ¤¸¥ì¥³¡¼¥É¤À¤±Ãê½Ð -¢¥×¥í¥°¥é¥à¤ò¼Â¹Ô¤·¤Æ¤¤¤ë¥Õ¥©¡¼¥à¤Ë¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°¤¹¤ë¡£ **¥Õ¥©¡¼¥à¤Ë¥¥ã¥ó¥»¥ë¥Ü¥¿¥ó¤òÄɲ乤ë [#nec353fd] ¥¥ã¥ó¥»¥ë¥Ü¥¿¥ó¤òºîÀ®¤¹¤ë¤Ë¤Ï¡¢[¥¥ã¥ó¥»¥ë¥Ü¥¿¥ó]¥×¥í¥Ñ¥Æ¥£¤ò¡Ö¤Ï¤¤¡×¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£~ &Color(red){¥¥ã¥ó¥»¥ë¥Ü¥¿¥ó¤Ï¡¢¥Õ¥©¡¼¥à¤Ë°ì¤Ä¤À¤±ºîÀ®¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£};~ -Îã~ ¡ÖEsc¡×¥¡¼¤ò²¡¤¹¤È¡¢ÊÔ½¸Áàºî¤ò¼è¤ê¾Ã¤·¤Æ¡¢¥Õ¥©¡¼¥à¤òÊĤ¸¤Þ¤¹¡£ Private Sub cmd¥¥ã¥ó¥»¥ë_Click() If Me.Dirty Then DoCmd.RunCommand acCmdUndo End If DoCmd.Close End Sub **°ìÄê»þ´Ö·Ð²á¸å¤Ë¥Õ¥©¡¼¥à¤òÊĤ¸¤ë [#l62a0922] ¥Õ¥©¡¼¥à¤Î[¥¿¥¤¥Þ´Ö³Ö]¤ò¡Ö5000¡×¤ËÀßÄê Private Sub Form_Timer() DoCmd.Close End Sub -Timer()~ 1000/1000ÉäȤϡ¢1ÉäΤ³¤È¤Ç¤¹¡£~ 5000/1000ÉäȤϡ¢5ÉäΤ³¤È¤Ç¤¹¡£ *¥ì¥Ý¡¼¥È¤ÎÁàºî [#wa2f7017] DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎOpenReport¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢»ØÄꤷ¤¿¥ì¥Ý¡¼¥È¤ò¥×¥ê¥ó¥¿¤Ë°õºþ¤·¤¿¤ê¡¢¥×¥ì¥Ó¥å¡¼¤·¤¿¤ê¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£~ OpenReport¥á¥½¥Ã¥É¤Ï¡¢¥Þ¥¯¥í¤Î[¥ì¥Ý¡¼¥È¤ò³«¤¯]¥¢¥¯¥·¥ç¥ó¤ÈƱ¤¸½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£ -½ñ¼° DoCmd.OpenReport reportname, view, filtername, wherecondition, windowmode, openargs reportname :³«¤¯¥ì¥Ý¡¼¥È̾ view :(¾Êά²Ä)¥Ó¥å¡¼ acViewDesign :¥Ç¥¶¥¤¥ó¥Ó¥å¡¼ acViewNormal :¥×¥ê¥ó¥¿¤Ë½ÐÎÏ(´ûÄêÃÍ) acViewPreview :°õºþ¥×¥ì¥Ó¥å¡¼ filtername :(¾Êά²Ä)¥ì¥³¡¼¥ÉÃê½Ð¾ò·ï¤ò»ØÄꤷ¤¿¥¯¥¨¥ê̾ wherecondition :(¾Êά²Ä)¥ì¥³¡¼¥ÉÃê½Ð¾ò·ï¤òɽ¤¹Ê¸»úÎó windowmode :(¾Êά²Ä)¥¦¥£¥ó¥É¥¦¥â¡¼¥É acDialog :¥À¥¤¥¢¥í¥° acHidden :Èóɽ¼¨ acIcon :¥¢¥¤¥³¥ó acWindowNormal :ɸ½à(´ûÄêÃÍ) openargs :(¾Êά²Ä)³«¤¯¥ì¥Ý¡¼¥È¤ËÅϤ¹Ê¸»úÎó -Îã Private Sub cmd¥×¥ì¥Ó¥å¡¼_Click() DoCmd.OpenReport "R_ÅìµþÅÔ", acViewPreview End Sub Private Sub cmd°õºþ_Click() DoCmd.OpenReport "R_ÅìµþÅÔ" End Sub **ÇÜΨ¤ò»ØÄꤷ¤Æ¥×¥ì¥Ó¥å¡¼¤¹¤ë [#x7a77370] ¥×¥ì¥Ó¥å¡¼¤ÎÇÜΨ¤ò»ØÄꤹ¤ë¤Ë¤Ï¡¢DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎRunCommand¥á¥½¥Ã¥É¤ò»È¤Ã¤Æ[¥º¡¼¥à]¥³¥Þ¥ó¥É¤ò¼Â¹Ô¤·¤Æ¤¯¤À¤µ¤¤¡£ -Îã Private Sub ¥º¡¼¥à_Click() DoCmd.OpenReport "Q_ÅìµþÅÔ", acViewPreview DoCmd.MoveSize , , 18 * 567 '----------------------¥¦¥£¥ó¥É¥¦¤ÎÉý¤ò18cm¤Ë¤¹¤ë DoCmd.RunCommand acCmdZoom75 '----------------------[¥º¡¼¥à75%]¥³¥Þ¥ó¥É¤ò¼Â¹Ô¤¹¤ë End Sub **¥ì¥Ý¡¼¥È¤Î¥¿¥¤¥È¥ë¤ò°õºþ»þ¤Ë»ØÄꤹ¤ë [#df75b565] ¥á¥¤¥ó¥Õ¥©¡¼¥à¤Ç°õºþ¥×¥ì¥Ó¥å¡¼¤ò¥¯¥ê¥Ã¥¯¤·¤¿»þ¤Î¥×¥í¥·¡¼¥¸¥ã¤Ëopenargs°ú¿ô¤òÉÕ¤±¤ë Private Sub cmdÂçºåÉÜ_Click() DoCmd.OpenReport "R_¸ÜµÒ", acViewPreview, , "ÅÔÆ»Éܸ© = 'ÂçºåÉÜ'", , "ÂçºåÉÜ" End Sub Private Sub cmdÅìµþÅÔ_Click() DoCmd.OpenReport "R_¸ÜµÒ", acViewPreview, , "ÅÔÆ»Éܸ© = 'ÅìµþÅÔ'", , "ÅìµþÅÔ" End Sub Private Sub cmd¸ÜµÒ°ìÍ÷_Click() DoCmd.OpenReport "R_¸ÜµÒ", acViewPreview End Sub [R_¸ÜµÒ]¥ì¥Ý¡¼¥È¤Î³«¤¯¤È¤¤Î¥×¥í¥Ñ¥Æ¥£¤Ë²¼µ¤Î¥×¥í¥·¡¼¥¸¥ãºîÀ® Private Sub Report_Open(Cancel As Integer) If OpenArgs <> "" Then Me!¥é¥Ù¥ë19.Caption = OpenArgs Else Me!¥é¥Ù¥ë19.Caption = "¸ÜµÒ°ìÍ÷" End If End Sub **1¥ì¥³¡¼¥É¤´¤È¤Ë¿§Ê¬¤±¤·¤Æ°õºþ¤¹¤ë [#v7692760] Report¥ª¥Ö¥¸¥§¥¯¥È¤ÎSection¥×¥í¥Ñ¥Æ¥£¤òÍøÍѤ¹¤ë¤È¡¢³Æ¥»¥¯¥·¥ç¥ó¤Î¥×¥í¥Ñ¥Æ¥£¤ò»²¾È¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° object.Section(index) object :Acess¥ª¥Ö¥¸¥§¥¯¥È index :»²¾È¤¹¤ë¥»¥¯¥·¥ç¥ó acDetail :¾ÜºÙ¥»¥¯¥·¥ç¥ó acHeader :¥Ø¥Ã¥À¡¼¥»¥¯¥·¥ç¥ó acFooter :¥Õ¥Ã¥¿¡¼¥»¥¯¥·¥ç¥ó acPageHeader :¥Ú¡¼¥¸¥Ø¥Ã¥À¡¼¥»¥¯¥·¥ç¥ó acPageFooter :¥Ú¡¼¥¸¥Õ¥Ã¥¿¡¼¥»¥¯¥·¥ç¥ó acGroupLevel1Header :¥°¥ë¡¼¥×¥ì¥Ù¥ë1¤Î¥Ø¥Ã¥À¡¼¥»¥¯¥·¥ç¥ó(¥ì¥Ý¡¼¥È¤Î¤ß) acGroupLevel1Footer :¥°¥ë¡¼¥×¥ì¥Ù¥ë1¤Î¥Õ¥Ã¥¿¡¼¥»¥¯¥·¥ç¥ó(¥ì¥Ý¡¼¥È¤Î¤ß -Îã~ ¥«¥ì¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È¤Î[¾ÜºÙ]¥»¥¯¥·¥ç¥ó¤Î[ÇØ·Ê¿§]¥×¥í¥Ñ¥Æ¥£¤ò»²¾È¤¹¤ë¡£ Me.Section(acDetail).BackColor -¾ÜºÙ¥»¥¯¥·¥ç¥ó¤Î¡Ö¥Õ¥©¡¼¥Þ¥Ã¥È»þ¡×¥×¥í¥Ñ¥Æ¥£¤Ë¥×¥í¥·¡¼¥¸¥ã¤òºîÀ® Private Sub ¾ÜºÙ_Format(Cancel As Integer, FormatCount As Integer) Static flgColor As Boolean If flgColor = True Then Me.Section(acDetail).BackColor = RGB(255, 255, 255) Else Me.Section(acDetail).BackColor = RGB(230, 230, 230) End If flgColor = Not flgColor End Sub **°õºþÁ°¤Ë¡Ö¥Ú¡¼¥¸ÀßÄê¡×¥À¥¤¥¢¥í¥°¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤¹¤ë [#a32c9766] Private Sub cmd°õºþ_Click() DoCmd.SelectObject acReport, "R_¸ÜµÒ", True '--------¡ DoCmd.RunCommand acCmdPageSetup '-------------------¢ DoCmd.OpenReport "R_¸ÜµÒ", acViewPreview '------------£ End Sub -¡¥Ç¡¼¥¿¥Ù¡¼¥¹¥¦¥£¥ó¥É¥¦¤Ç¡ÖR_¸ÜµÒ¡×¤òÁªÂò -¢¡Ö¥Ú¡¼¥¸ÀßÄê¡×¥À¥¤¥¢¥í¥°¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤¹¤ë -£¡ÖR_¸ÜµÒ¡×¥ì¥Ý¡¼¥È¤ò¥×¥ì¥Ó¥å¡¼¤¹¤ë **DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎSelectObject¥á¥½¥Ã¥É¤Ï¡¢¥Þ¥¯¥í¤Î¡Ö¥ª¥Ö¥¸¥§¥¯¥È¤ÎÁªÂò¡×¥¢¥¯¥·¥ç¥ó¤ÈƱ¤¸½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£ [#dfe2dae3] -½ñ¼° DoCmd.SelectObject objecttype, objectname, indatabasewindow objecttype :ÁªÂò¤¹¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Î¼ïÎà acDataAccessPage :¥Ç¡¼¥¿¥¢¥¯¥»¥¹¥Ú¡¼¥¸ acDiagram :¥À¥¤¥¢¥°¥é¥à acForm :¥Õ¥©¡¼¥à acFunction :´Ø¿ô acMacro :¥Þ¥¯¥í acModule :¥â¥¸¥å¡¼¥ë acQuery :¥¯¥¨¥ê acReport :¥ì¥Ý¡¼¥È acServerView :¥µ¡¼¥Ð¡¼¥Ó¥å¡¼ acStoredProcedure :¥¹¥È¥¢¥É¥×¥í¥·¡¼¥¸¥ã acTable :¥Æ¡¼¥Ö¥ë objectname :(¾Êά²Ä)ÁªÂò¤¹¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Î̾Á° indatabasewindow :(¾Êά²Ä)¥Ç¡¼¥¿¥Ù¡¼¥¹¥¦¥£¥ó¥É¥¦¤ÇÁªÂò¤¹¤ë¤«¤É¤¦¤« True :¥Ç¡¼¥¿¥Ù¡¼¥¹¥¦¥£¥ó¥É¥¦Æâ¤ÇÁªÂò False :³«¤¤¤Æ¤¤¤ë¥ª¥Ö¥¸¥§¥¯¥È¤òÁªÂò(´ûÄêÃÍ) **°õºþ¤¹¤ëÁ°¤Ë[°õºþ]¥À¥¤¥¢¥í¥°¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤¹¤ë¡£ [#ee7e0151] Private Sub cmd°õºþ_Click() DoCmd.SelectObject acReport, "R_¸ÜµÒ", True '--------¡ DoCmd.RunCommand acCmdPring '-------------------¢ End Sub -¡¥Ç¡¼¥¿¥Ù¡¼¥¹¥¦¥£¥ó¥É¥¦¤Ç¡ÖR_¸ÜµÒ¡×¤òÁªÂò -¢[°õºþ]¥À¥¤¥¢¥í¥°¥Ü¥Ã¥¯¥¹¤òɽ¼¨¤¹¤ë **°õºþ¤¹¤ë¥Ç¡¼¥¿¤¬¤Ê¤¤»þ¤Ë½èÍý¤òÃæ»ß¤¹¤ë [#bbb9a126] +[R_¸ÜµÒ]¥ì¥Ý¡¼¥È¤Î¡Ö¶õ¥Ç¡¼¥¿¤Î»þ¡×¥×¥í¥Ñ¥Æ¥£¤Ë²¼µ¤òºîÀ®~ Cancel°ú¿ô¤òTrue¤Ë¤¹¤ë¤È¡¢¤³¤Î¥¤¥Ù¥ó¥È¤ò¼è¤ê¾Ã¤¹»ö¤¬¤Ç¤¤Þ¤¹¡£ Private Sub Report_NoData(Cancel As Integer) Cancel = True End Sub +[°õºþ]¥Ü¥¿¥ó¤Î¥¯¥ê¥Ã¥¯»þ¥×¥í¥Ñ¥Æ¥£¤Ë²¼µ¤Î¥×¥í¥·¡¼¥¸¥ã¤òºîÀ® Private Sub cmd°õºþ_Click() On Error GoTo Err_cmd°õºþ_Click DoCmd.OpenReport "Q_¸ÜµÒ", acViewPreview, , "ÅÔÆ»Éܸ©='" & Me!ÅÔÆ»Éܸ© & "'" exit_cmd°õºþ_Click: Exit Sub Err_cmd°õºþ_Click: Select Case Err.Number Case 2501 MsgBox "°õºþ¤¹¤ë¥Ç¡¼¥¿¤¬¤¢¤ê¤Þ¤»¤ó¡£", vbOKOnly + vbInformation, "¥ì¥Ý¡¼¥È¤ò³«¤¯" Case Else Beep MsgBox Err.Number & " : " & Err.Description End Select End Sub *¥ì¥³¡¼¥É¤ò¸¡º÷¤¹¤ë [#wa6ae4e6] ¥Õ¥©¡¼¥à¤Î¥ì¥³¡¼¥É¥½¡¼¥¹¤ò¸¡º÷¤¹¤ë¾ì¹ç¤Ï¡¢[[AccessVBA/DAO]]¤ÎRecordset¥ª¥Ö¥¸¥§¥¯¥È¤òÍøÍѤ·¤Æ¤¯¤À¤µ¤¤¡£~ [[AccessVBA/ADO]]¤ÎRecordset¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤Ï¡¢¥Õ¥©¡¼¥à¤Î¥½¡¼¥¹¤ò°·¤¦»ö¤¬¤Ç¤¤Þ¤»¤ó¡£ **¸¡º÷¥À¥¤¥¢¥í¥°¥Ü¥Ã¥¯¥¹¤òÍøÍѤ¹¤ë [#va7461ed] Public Sub cmd¸¡º÷_Click() Me!ÅÔÆ»Éܸ©.SetFocus DoCmd.RunCommand acCmdFind End Sub **¥Õ¥©¡¼¥à¤Ë¸¡º÷µ¡Ç½¤òÄɲ乤ë [#xc0a9d7b] ¥Õ¥©¡¼¥à¤Ë¥ì¥³¡¼¥É¥½¡¼¥¹¤Ï¡¢RecordsetClone¥×¥í¥Ñ¥Æ¥£¤Ç»²¾È¤Ç¤¤Þ¤¹¡£~ ¤³¤ì¤ò¤â¤È¤ËRecordset¥ª¥Ö¥¸¥§¥¯¥È¤òºîÀ®¤¹¤ë¤È¡¢Recordset¥ª¥Ö¥¸¥§¥¯¥È¤ÎFind·Ï¤Î¥á¥½¥Ã¥É¤òÍøÍѤ·¤Æ¡¢¥ì¥³¡¼¥É¤ò¸¡º÷¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£~ ¤¿¤À¤·¡¢¥Õ¥©¡¼¥à¤Î¥ì¥³¡¼¥É¥½¡¼¥¹¤È¡¢RecordsetClone¥×¥í¥Ñ¥Æ¥£¤ò¤â¤È¤ËºîÀ®¤·¤¿Recordset¥ª¥Ö¥¸¥§¥¯¥È¤ÏÊ̤Υ쥳¡¼¥É¥»¥Ã¥È¤Ç¤¹¡£~ Bookmark¥×¥í¥Ñ¥Æ¥£¤òÍøÍѤ·¤Æ¡¢Î¾Êý¤Î¥«¥ì¥ó¥È¥³¡¼¥É¤ÎƱ´ü¤ò¤È¤ë½èÍý¤¬É¬Íפˤʤê¤Þ¤¹¡£ -Îã Public Sub cmd¸¡º÷02_Click() Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.FindFirst "¸ÜµÒID = " & Me!txt¥¡¼ If rs.NoMatch Then Beep MsgBox "¸«¤Ä¤«¤ê¤Þ¤»¤ó" Else Me.Bookmark = rs.Bookmark '------¡ End If End Sub -¡¸¡º÷¤·¤¿¥ì¥³¡¼¥É¤ò¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë¡£ **¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤ÎÃͤò»È¤Ã¤Æ¸¡º÷¤¹¤ë [#e8416d2a] ¸¡º÷¤¹¤ëÃͤ¬¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤¦¤ÇÁªÂò¤Ç¤¤ì¤ÐÊØÍø¤Ç¤¹¡£~ ¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤ÇÃͤòÁªÂò¤¹¤ë¤È¡¢AfterUpdate¥¤¥Ù¥ó¥È¤¬È¯À¸¤·¤Þ¤¹¡£~ ¤³¤Î¤È¤¤Ë¸¡º÷¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤Ë¡¢¥×¥í¥°¥é¥à¤òºîÀ®¤·¤Æ¤¯¤À¤µ¤¤¡£ -¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤ÎºîÀ® ¥×¥í¥Ñ¥Æ¥£ ÃÍ Ãͽ¸¹ç¥¿¥¤¥× ¥Æ¡¼¥Ö¥ë/¥¯¥¨¥ê Ãͽ¸¹ç¥½¡¼¥¹ T_¸ÜµÒ Îó¿ô 3 ÎóÉý 0cm;0cm;1cm Ï¢·ëÎó 3 -¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤Î¹¹¿·¸å½èÍý¤Î¥×¥í¥Ñ¥Æ¥£¤Ë¥×¥í¥·¡¼¥¸¥ãºîÀ® Public Sub cbo¥¡¼_AfterUpdate() Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.FindFirst "»á̾ = '" & Me!cbo¥¡¼ & "'" Me.Bookmark = rs.Bookmark rs.Close: Set rs = Nothing End Sub **¤¢¤¤¤Þ¤¤¤Ê¾ò·ï¤Ç¸¡º÷¤¹¤ë [#jca722ee] ¥Æ¥¥¹¥È·¿¤Î¥Õ¥£¡¼¥ë¥É¤ò»È¤Ã¤Æ¸¡º÷¤¹¤ë¤È¤¡¢¸¡º÷¾ò·ï¤ËLike±é»»»Ò¤òÍøÍѤ·¤Æ¡¢¤¢¤¤¤Þ¤¤¤Ê¾ò·ï¤Ç¥ì¥³¡¼¥É¸¡º÷¤·¤Þ¤¹¡£ Public Sub cmd¸¡º÷02_Click() Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.FindFirst "ÅÔÆ»Éܸ© Like '" & Me!txt¥¡¼ & "*'" If rs.NoMatch Then Beep MsgBox "¸«¤Ä¤«¤ê¤Þ¤»¤ó" Else Me.Bookmark = rs.Bookmark End If End Sub **Ϣ³¤·¤Æ¸¡º÷¤¹¤ë [#v8eb993a] ÀèƬ¤ò¸¡º÷¥Ü¥¿¥ó¤ÏFindFirst¡¢¼¡¤ò¸¡º÷¥Ü¥¿¥ó¤ÏFindNext¤Ç¸¡º÷¤¹¤ë¤è¤¦¤Ë¤¹¤ë¡£ Public Sub cmdÀèƬ¤ò¸¡º÷_Click() Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.FindFirst "ÅÔÆ»Éܸ© Like '" & Me!txt¥¡¼ & "*'" If rs.NoMatch Then Beep MsgBox "¸«¤Ä¤«¤ê¤Þ¤»¤ó" Else Me.Bookmark = rs.Bookmark End If End Sub Public Sub cmd¼¡¤ò¸¡º÷_Click() Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.Bookmark = Me.Bookmark rs.FindNext "ÅÔÆ»Éܸ© Like '" & Me!txt¥¡¼ & "*'" If rs.NoMatch Then Beep MsgBox "ºÇ¸å¤Î¥ì¥³¡¼¥É¤Þ¤Ç¸¡º÷¤·¤Þ¤·¤¿" Else Me.Bookmark = rs.Bookmark End If End Sub **Æȼ«¤Î¸¡º÷ÃÖ´¹¥Ñ¥Í¥ë¤òºîÀ®¤¹¤ë [#cc2905c1] ²¼µ¤Î½èÍý¤ÇºîÀ®¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£~ ¥Õ¥©¡¼¥à¤ÎRefresh¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢¥Õ¥©¡¼¥à¾å¤Ç¹Ô¤Ã¤¿ÊÔ½¸¤òÊݸ¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ +¥Õ¥©¡¼¥à¾å¤Î¥³¥ó¥È¥í¡¼¥ë¤ËÃÖ´¹¤¹¤ëÃͤòÂåÆþ¤¹¤ë +¥Õ¥©¡¼¥à¾å¤ÎÊÔ½¸·ë²Ì¤ò¥ì¥³¡¼¥É¥½¡¼¥¹¤ËÊݸ¤¹¤ë Private Sub Form_Close() DoCmd.Close acForm, "F_¸ÜµÒ" End Sub Private Sub Form_Open(Cancel As Integer) DoCmd.OpenForm "F_¸ÜµÒ" DoCmd.MoveSize 3 * 567, 11 * 567 End Sub Private Sub cmdÀèƬ_Click() Dim rs As DAO.Recordset Set rs = Forms!F_¸ÜµÒ.RecordsetClone Select Case Me!cbo¥Õ¥£¡¼¥ë¥É Case "¸ÜµÒID" rs.FindFirst "¸ÜµÒID = " & Me!txt¸¡º÷ Case "»á̾" rs.FindFirst "»á̾ Like '" & Me!txt¸¡º÷ & "*'" End Select If rs.NoMatch Then Beep MsgBox "¸«¤Ä¤«¤ê¤Þ¤»¤ó" Else Forms!F_¸ÜµÒ.Bookmark = rs.Bookmark End If rs.Clone: Set rs = Nothing End Sub Private Sub cmd¼¡_Click() Dim rs As DAO.Recordset Set rs = Forms!F_¸ÜµÒ.RecordsetClone rs.Bookmark = Forms!F_¸ÜµÒ.Bookmark Select Case Me!cbo¥Õ¥£¡¼¥ë¥É Case "¸ÜµÒID" rs.FindNext "¸ÜµÒID = " & Me!¸¡º÷ Case "»á̾" rs.FindNext "»á̾ like '" & Me!txt¸¡º÷ & "*'" End Select If rs.NoMatch Then Beep MsgBox "ºÇ¸å¤Þ¤Ç¸¡º÷¤·¤Þ¤·¤¿¡£" Else Forms!F_¸ÜµÒ.Bookmark = rs.Bookmark End If rs.Clone: Set rs = Nothing End Sub Private Sub cmdÃÖ´¹_Click() Select Case Me!cbo¥Õ¥£¡¼¥ë¥É Case "¸ÜµÒID" Forms!F_¸ÜµÒ!¸ÜµÒID = Me!txtÃÖ´¹ Case "»á̾" Forms!F_¸ÜµÒ!»á̾ = Me!txtÃÖ´¹ End Select Forms!F_¸ÜµÒ.Refresh Call cmd¼¡_Click End Sub Private Sub cmd¥¥ã¥ó¥»¥ë_Click() DoCmd.Close End Sub *¥ì¥³¡¼¥É¤òÃê½Ð¤¹¤ë [#va48bc19] **¥Õ¥©¡¼¥à¤Ë¥Õ¥£¥ë¥¿µ¡Ç½¤òÄɲà [#i95d4d23] ¥Õ¥©¡¼¥à¤ÎFilter¥×¥í¥Ñ¥Æ¥£¤ÈFilterOn¥×¥í¥Ñ¥Æ¥£¤òÍøÍѤ·¤Æ¡¢Ãê½Ðµ¡Ç½¤òºîÀ®¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° form.Filter = criteria criteria :Ãê½Ð¾ò·ï¤òɽ¤¹Ê¸»úÎó -FilterOn¥×¥í¥Ñ¥Æ¥£ Filter¥×¥í¥Ñ¥Æ¥£¤ËÀßÄꤷ¤¿¥Õ¥£¥ë¥¿¤òŬÍѤ¹¤ë¤«¤É¤¦¤«¤ò·è¤á¤ë¥×¥í¥Ñ¥Æ¥£¤Ç¤¹¡£~ Ture¤Ë¤¹¤ë¤È¡¢¥Õ¥£¥ë¥¿¤òŬ±þ¤·¤ÆÃê½Ð¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£Flase¤Ë¤·¤¿¾ì¹ç¤Ï¡¢¥Õ¥£¥ë¥¿¤ò²ò½ü¤·¤Þ¤¹¡£ -Îã Private Sub cmdÃê½Ð_Click() If IsNull(Me!txt¾ò·ï) Then Beep MsgBox "Ãê½Ð¤¹¤ëÃͤòÆþÎϤ·¤Æ¤¯¤À¤µ¤¤¡£", vbOKOnly + vbCritical, "Ãê½Ð" Exit Sub End If Me.Filter = "ÅÔÆ»Éܸ© = '" & Me!txt¾ò·ï & "'" Me.FilterOn = True If Me.Recordset.RecordCount = 0 Then Beep MsgBox "³ºÅö¤¹¤ë¥ì¥³¡¼¥É¤¬¤¢¤ê¤Þ¤»¤ó", vbOKOnly + vbInformation, "Ãê½Ð" End If End Sub Private Sub cmd²ò½ü_Click() Me.FilterOn = False End Sub **Ãê½Ð¤·¤¿¥ì¥³¡¼¥É¤ò¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤Ëɽ¼¨¤¹¤ë [#g9b91c4f] ¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤Î[Îó¿ô]¤È[ÎóÉý]¤òŬÀÚ¤ÊÃͤËÊѹ¹¤·¤Æ¤«¤é Private Sub cmdÃê½Ð_Click() Me!lst·ë²Ì.RowSource = "select * from T_¸ÜµÒ WHERE ÅÔÆ»Éܸ© = '" & Me!txt¾ò·ï & "'" Me!lst·ë²Ì.Requery End Sub Private Sub cmd²ò½ü_Click() Me!txt¾ò·ï = Null Me!lst·ë²Ì.RowSource = "" Me!lst·ë²Ì.Requery End Sub **Ãê½Ð¤·¤¿¥ì¥³¡¼¥É¤ò¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤Ëɽ¼¨ [#ce5df784] Private Sub lst¾ò·ï_Click() Me!cbo·ë²Ì.RowSource = "SELECT »á̾,¸ÜµÒID,ÅÔÆ»Éܸ© FROM T_¸ÜµÒ WHERE ÅÔÆ»Éܸ© = '" & Me!lst¾ò·ï & "'" Me!cbo·ë²Ì.Requery End Sub **Ãê½Ð¤·¤¿¥ì¥³¡¼¥É¤ò¥µ¥Ö¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë [#wdcfab71] Private Sub Form_Open(Cancel As Integer) Call cmdÃê½Ð_Click End Sub Private Sub cmdÃê½Ð_Click() Me!sub·ë²Ì.Form.Filter = "ÅÔÆ»Éܸ© = '" & Me!txt¾ò·ï & "'" Me!sub·ë²Ì.Form.FilterOn = True End Sub Private Sub cmd²ò½ü_Click() Me!txt¾ò·ï = Null Call cmdÃê½Ð_Click End Sub **Ê£¿ô¤Î¾ò·ï¤ò»È¤Ã¤Æ¸¡º÷¤¹¤ë [#c19dafbc] **¥¿¥Ö¥³¥ó¥È¥í¡¼¥ë¤ò»È¤Ã¤ÆÃê½Ð [#l743b32f] ¥¿¥Ö¥³¥ó¥È¥í¡¼¥ë¤ò»È¤Ã¤Æ¡¢Ê£¿ô¤Î¥Ú¡¼¥¸¤ò»ý¤Ã¤¿¥·¥¹¥Æ¥à¼êÄ¢¤Î¤è¤¦¤Ê»ÅÀÚ¤ê¥Ú¡¼¥¸¤òºî¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -¥µ¥Ö¥Õ¥©¡¼¥à¤Î¥½¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥ÈºîÀ® +[ŽÌŽØŽ¶ŽÞŽÝ]¥Õ¥£¡¼¥ë¥É¤ÎÀèƬʸ»ú¤¬¥é¥Ù¥ë¤ÎɸÂê(Caption)¥×¥í¥Ñ¥Æ¥£¤ÎÃͤÈÅù¤·¤¤¥ì¥³¡¼¥É¤òÃê½Ð¤¹¤ë¥¯¥¨¥ê¤òºîÀ® +¥µ¥Ö¥Õ¥©¡¼¥à(sub·ë²Ì)¤Î¥½¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥È¤ËÀßÄꤷ¤Æ¤ª¤¯ -¥ª¥Ö¥¸¥§¥¯¥È¤ÎÀßÄê ¥ª¥Ö¥¸¥§¥¯¥È ̾Á° ¥×¥í¥Ñ¥Æ¥£ ÃÍ ¥é¥Ù¥ë ¥é¥Ù¥ë ɸÂê Ž¢Ž±-Žµ]* ¥Ú¡¼¥¸ page0 ɸÂê ¤¢ ¥Ú¡¼¥¸¥¤¥ó¥Ç¥Ã¥¯¥¹ 0 page1 ɸÂê ¤¤ ¥Ú¡¼¥¸¥¤¥ó¥Ç¥Ã¥¯¥¹ 1 ¡¦ ¡¦ ¥µ¥Ö¥Õ¥©¡¼¥à sub·ë²Ì -¥¿¥Ö¥³¥ó¥È¥í¡¼¥ë¤Î[Êѹ¹»þ/Change]¥×¥í¥Ñ¥Æ¥£¤Ë¥×¥í¥·¡¼¥¸¥ã¤òºîÀ® Private Sub tabŽÌŽØŽ¶ŽÞŽÅ_Change() Select Case Me!tabŽÌŽØŽ¶ŽÞŽÅ Case 0: Me!¥é¥Ù¥ë.Caption = "[Ž±-Žµ]*" Case 1: Me!¥é¥Ù¥ë.Caption = "[Ž¶-Žº]*" Case 2: Me!¥é¥Ù¥ë.Caption = "[Ž»-Ž¿]*" Case 3: Me!¥é¥Ù¥ë.Caption = "[ŽÀ-ŽÄ]*" Case 4: Me!¥é¥Ù¥ë.Caption = "[ŽÅ-ŽÉ]*" Case 5: Me!¥é¥Ù¥ë.Caption = "[ŽÊ-ŽÎ]*" Case 6: Me!¥é¥Ù¥ë.Caption = "[ŽÏ-ŽÓ]*" Case 7: Me!¥é¥Ù¥ë.Caption = "[ŽÔ-ŽÖ]*" Case 8: Me!¥é¥Ù¥ë.Caption = "[Ž×-ŽÛ]*" Case 9: Me!¥é¥Ù¥ë.Caption = "[ŽÜ-ŽÝ]*" Case 10: Me!¥é¥Ù¥ë.Caption = "*" End Select Me!sub·ë²Ì.Requery '------------------------¡ End Sub -¡¥µ¥Ö¥Õ¥©¡¼¥à¤ÎºÆ¥¯¥¨¥ê¤ò¼Â¹Ô¤¹¤ë¡£ **¥È¥°¥ë¥Ü¥¿¥ó¤ò»È¤Ã¤ÆÃê½Ð¤¹¤ë [#ic01f647] ¥ª¥×¥·¥ç¥ó¥°¥ë¡¼¥×¤Ç¥Õ¥ì¡¼¥à¤òÇÛÃÖ¤·¤Æ¤«¤é¡¢¤½¤ÎÃæ¤Ë¥È¥°¥ë¥Ü¥¿¥ó¤òÄɲ䷤Ƥ¤¤¯ ***&color(red){¥Ü¥¿¥ó¤Ê¤É¤Î¡Ö¥µ¥¤¥º¡¦ÇÛÃ֡פò·¤¨¤¿¤¤}; [#f86f7129] ·¤¨¤¿¤¤¥ª¥Ö¥¸¥§¥¯¥È¤òÁ´¤ÆÁªÂò¤·¤Æ¡¢¡Ö±¦¥¯¥ê¥Ã¥¯¡×¢Í¡Ö¥µ¥¤¥º¡×¡ÖÇÛÃÖ¡× -[¹¹¿·¸å½èÍý/AfterUpdate]¥×¥í¥Ñ¥Æ¥£¤Ë¥×¥í¥·¡¼¥¸¥ãºîÀ® Private Sub fra¾ò·ï_AfterUpdate() Dim criteria As String Select Case Me!fra¾ò·ï Case 1: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[Ž±-Žµ]*'" Case 2: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[Ž¶-ŽºŽÞ]*'" Case 3: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[Ž»-Ž¿ŽÞ]*'" Case 4: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[ŽÀ-ŽÄŽÞ]*'" Case 5: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[ŽÅ-ŽÉ]*'" Case 6: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[ŽÊ-ŽÎŽß]*'" Case 7: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[ŽÏ-ŽÓ]*'" Case 8: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[ŽÔ-ŽÖ]*'" Case 9: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[Ž×-ŽÛ]*'" Case 10: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '[ŽÜ-ŽÝ]*'" Case 11: criteria = "ŽÌŽØŽ¶ŽÞŽÅ like '*'" End Select Me!sub·ë²Ì.Form.Filter = criteria Me!sub·ë²Ì.Form.FilterOn = True End Sub **¥Õ¥©¡¼¥à¤ËʤÙÂؤ¨µ¡Ç½¤òÄɲ乤ë [#pfe22030] Private Sub fraʤÙÂؤ¨_AfterUpdate() Debug.Print Me!fraʤÙÂؤ¨ Select Case Me!fraʤÙÂؤ¨ Case 1: Me!sub·ë²Ì.Form.OrderBy = "À¸Ç¯·îÆü ASC" Case 2: Me!sub·ë²Ì.Form.OrderBy = "À¸Ç¯·îÆü DESC" End Select Me!sub·ë²Ì.Form.OrderByOn = True End Sub *¥ì¥³¡¼¥É¤òºï½ü¤¹¤ë [#ce3065fc] **¥µ¥Ö¥ì¥³¡¼¥É¾å¤Î¥ì¥³¡¼¥É¤òºï½ü¤¹¤ë [#i1e7eba7] ¥µ¥Ö¥Õ¥©¡¼¥à¤Î¥ì¥³¡¼¥É¥½¡¼¥¹¤ò¤â¤È¤ËRecordset¥ª¥Ö¥¸¥§¥¯¥È¤òºîÀ®¤¹¤ë¤È¡¢Delete¥á¥½¥Ã¥É¤ò»È¤Ã¤Æ¡¢¥µ¥Ö¥Õ¥©¡¼¥à¤ÇÁªÂò¤µ¤ì¤Æ¤¤¤ë¥ì¥³¡¼¥É¤òºï½ü¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£~ ¥á¥¤¥ó¥Õ¥©¡¼¥à!¥µ¥Ö¥Õ¥©¡¼¥à̾!.Form RecordsetClone **ÆÃÄê¤Î¥ì¥³¡¼¥É¤ò°ìÅ٤˺ï½ü¤¹¤ë(SQL) [#h1b918bd] Private Sub cmdºï½ü_Click() Dim mySQL As String Dim ret As Integer Dim cn As New ADODB.Connection Dim com As New ADODB.Command mySQL = "DELETE * from T_¸ÜµÒ WHERE ÅÔÆ»Éܸ© = '" & Me!txt¾ò·ï & "'" Set cn = CurrentProject.Connection com.ActiveConnection = cn com.CommandText = mySQL com.Execute Me.Requery End Sub *ÆþÎÏÃͤΥÁ¥§¥Ã¥¯ [#eb82af61] **ÆþÎϤµ¤ì¤¿Ãͤ¬ÉÔÀµ¤Ê»þ¤ËºÆÆþÎϤòÂ¥¤¹ [#w36fdf09] ¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤ËÃͤòÆþÎϤ¹¤ë¤È¡¢²¼µ¤Î½çÈ֤˥¤¥Ù¥ó¥È¤¬È¯À¸¤·¤Þ¤¹¡£ Private Sub ¾¦ÉÊ̾_BeforeUpdate(Cancel As Integer) Dim ret As Integer Beep ret = MsgBox(Me!¾¦ÉÊ̾ & vbCrLf & "ÆþÎϤ·¤¿ÃͤÏÀµ¤·¤¤¤Ç¤¹¤«", vbQuestion + vbOKCancel, "ÆþÎϸ¡ºº") Select Case ret Case vbOK Case vbCancel Cancel = True End Select End Sub **ʸ»ú¿ô¤òÄ´¤Ù¤ë¡ÊLen) [#l79384ce] Len´Ø¿ô¤òÍøÍѤ¹¤ë¤È¡¢Ê¸»ú¿ô¤òÄ´¤Ù¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° retvalue = Len(sring) retvalue :Ìá¤êÃÍ(Long·¿). ¼èÆÀ¤·¤¿Ê¸»ú string :ʸ»ú¿ô¤òÄ´¤Ù¤ëʸ»úÎó -Îã ret = Len(Me!¾¦ÉÊ̾) len(Me!¾¦ÉÊ̾) **ʸ»ú¤òÈ´¤½Ð¤¹(Left) [#fabf8fc0] Left´Ø¿ô¤òÍøÍѤ¹¤ë¤È¡¢¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤ËÆþÎϤµ¤ì¤¿Ê¸»úÎó¤Îº¸Ã¼¤«¤é¡¢»ØÄꤷ¤¿Ê¸»ú¿ô¤ò¼èÆÀ -½ñ¼° retvalue = Left(string, length) retvalue :Ìá¤êÃÍ(String·¿). ¼èÆÀ¤·¤¿Ê¸»ú strign :Ä´¤Ù¤ëʸ»úÎó length :¼èÆÀ¤¹¤ëʸ»ú¿ô -Îã ret = Left(Me!¾¦ÉÊÈÖ¹æ,1) **Ãͤ¬½ÅÊ£¤·¤Æ¤¤¤Ê¤¤¤«¤É¤¦¤«Ä´¤Ù¤ë(DLookup) [#gaf64156] DLookup´Ø¿ô¤òÍøÍѤ¹¤ë¤È¡¢¥ì¥³¡¼¥É¥»¥Ã¥È¤ÎÃæ¤Ë»ØÄꤷ¤¿Ãͤ¬¤¢¤ë¤«¤É¤¦¤«¤òÄ´¤Ù¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° retvalue = DLookup(expr, domain, criteria) retvalue :Ìá¤êÃÍ(String·¿) ¥ì¥³¡¼¥É¥»¥Ã¥È¤Ë´Þ¤Þ¤ì¤ë¥Õ¥£¡¼¥ë¥ÉÃÍ expr :¥Õ¥£¡¼¥ë¥É̾ domain :¥Æ¡¼¥Ö¥ë̾¡¢¥¯¥¨¥ê̾ criteria :Ãͤò¸¡º÷¤¹¤ë¾ò·ï¼°¤òɽ¤¹Ê¸»úÎó -Îã~ [T_¾¦ÉÊ]¥Æ¡¼¥Ö¥ë¤Î[¾¦ÉÊÈÖ¹æ]¥Õ¥£¡¼¥ë¥É¤Ë¡ÖA0001¡×¤È¤¤¤¦Ãͤ¬ÅÐÏ¿¤µ¤ì¤Æ¤¤¤ë¤«¤É¤¦¤«~ ²¼µ¤Î¾ì¹çÃͤ¬¤¢¤ë»þ¤Ï¡ÖA0001¡×¡¢Ãͤ¬¸«¤Ä¤«¤é¤Ê¤¤¾ì¹ç¡ÖNull¡×¤Ë¤Ê¤ê¤Þ¤¹¡£ ret = DLookup("¾¦ÉÊÈÖ¹æ", "T_¾¦ÉÊ", "¾¦ÉÊÈÖ¹æ = 'A0001'") **ÆþÎϤµ¤ì¤Æ¤¤¤Ê¤¤¥³¥ó¥È¥í¡¼¥ë¤¬¤¢¤ë¤È¤¤Ë¹¹¿·ºî¶È¤ò¼è¤ê¾Ã¤¹ [#ff857271] ¥Õ¥©¡¼¥à¾å¤Î¥³¥ó¥È¥í¡¼¥ë¤Ï¡¢Controls¥³¥ì¥¯¥·¥ç¥ó¤Ç´ÉÍý¤µ¤ì¤Æ¤¤¤Þ¤¹¡£~ For Each control in Controls ¡¦ ¡¦ ¡¦ Next ¾åµ¤ò·«¤êÊÖ¤»¤Ð¡¢¥Õ¥©¡¼¥à¾å¤ÎÁ´¤Æ¤Î¥³¥ó¥È¥í¡¼¥ë¤Ë¥¢¥¯¥»¥¹¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£~ ¥³¥ó¥È¥í¡¼¥ë¤Î¥¿¥¤¥×¤Ï¡¢Control¥ª¥Ö¥¸¥§¥¯¥È¤ÎControlType¥×¥í¥Ñ¥Æ¥£¤Ç»²¾È¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -Îã Private Sub Form_BeforeUpdate(Cancel As Integer) Dim ctrl As Control Dim str As String Dim ret As Integer str = "" For Each ctrl In Me.Controls '--------------------------¡ If ctrl.ControlType = acTextBox Then '-------------------¢ If IsNull(ctrl) Then '-------------------£ str = str & ctrl.Name & " " '-------------------¤ End If End If Next If str <> "" Then '----------------------------------------¥ Beep ret = MsgBox(str & vbCrLf & "ÆþÎϤµ¤ì¤Æ¤¤¤Þ¤»¤ó", _ vbExclamation + vbOKCancel, "ÆþÎϸ¡º÷") Select Case ret Case vbOK '²¿¤â¤·¤Ê¤¤ Case vbCancel Cancel = True '---------------------------------------¦ End Select End If End Sub -¡¥Õ¥©¡¼¥à¾å¤Î¤¹¤Ù¤Æ¤Î¥³¥ó¥È¥í¡¼¥ë¤ò»²¾È¤¹¤ë·«¤êÊÖ¤· -¢»²¾È¤Î¥³¥ó¥È¥í¡¼¥ë¤¬¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤Î¾ì¹ç -£¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤ÎÃͤ¬Null¤«¤É¤¦¤«Ä´¤Ù¤ë -¤strÊÑ¿ô¤Ë¥³¥ó¥È¥í¡¼¥ë̾¤òÄɲ䷤Ƥ¤¤¯ -¥ÊÑ¿ôstr¤¬½é´üÃÍ("")°Ê³°¤Î»þ¤Ï¡¢¥á¥Ã¥»¡¼¥¸¥Ü¥Ã¥¯¥¹¤Ç¥³¥ó¥È¥í¡¼¥ë̾¤òɽ¼¨¤¹¤ë¡£ -¦[¥¥ã¥ó¥»¥ë]¥Ü¥¿¥ó¤¬ÁªÂò¤µ¤ì¤¿¤È¤¤Ï¡¢¥Õ¥©¡¼¥à¤Ç¤Î¹¹¿·Áàºî¤ò¼è¤ê¾Ã¤¹ *¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¹½ÃۤΥҥó¥È [#v191da61] **¥Õ¥©¡¼¥à¤Ë¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥¡¼¤òÄɲ乤ë [#r60af970] ¥Õ¥©¡¼¥à¤Î[¥¡¼¥¯¥ê¥Ã¥¯»þ/KeyDown]¥×¥í¥Ñ¥Æ¥£¤Ë¥×¥í¥·¡¼¥¸¥ã¤òºîÀ® Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF1 Call cmdÃê½Ð_Click Case vbKeyF2 Call cmd²ò½ü_Click End Select End Sub -&color(red){¥Õ¥©¡¼¥à¤Î[¥¡¼¥¤¥Ù¥ó¥È¼èÆÀ]¥×¥í¥Ñ¥Æ¥£¤ò¡Ö¤Ï¤¤¡×¤Ë¤·¤Æ¤ª¤¯}; -¼ç¤Ê¥¡¼¥³¡¼¥É |¥¡¼|¥¡¼¥³¡¼¥ÉÄê¿ô|h |[F1]|vbKeyF1| |[F2]|vbKeyF2| |[Insert]|vbKeyInsert| |[Delete]|vbKeyDelete| |¢¬|vbKeyUp| |¢|vbKeyDown| **ÆþÎϤ·¤¿Ãͤˤè¤Ã¤Æ¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°¤¹¤ë [#b690134b] ¥ª¥Ö¥¸¥§¥¯¥È¤ÎSetFocus¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢¤½¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ë¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°¤¹¤ë»ö¤¬¤Ç¤¤ë¡£ -½ñ¼° object.Setfocus -Îã~ ͹ÊØÈֹ椬ÆþÎϤµ¤ì¤ì¤Ð¡¢½»½ê2¤Ë¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°~ ÆýÊØÈֹ椬ÆþÎϤµ¤ì¤Ê¤±¤ì¤Ð¡¢½»½ê1¤Ë Private Sub ͹ÊØÈÖ¹æ_AfterUpdate() If IsNull(Me!͹ÊØÈÖ¹æ) Then Me.½»½ê1.SetFocus Else Me.½»½ê2.SetFocus End If End Sub **¼¡¤Î¥Ú¡¼¥¸¤Ë¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°¤¹¤ë [#x06e2f02] Form¥ª¥Ö¥¸¥§¥¯¥È¤ÎGoToPage¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È»ØÄꤷ¤¿¥Ú¡¼¥¸¤ÎÀèƬ¥ª¥Ö¥¸¥§¥¯¥È¤Ë¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° form.GoToPage pagenumber, right, down pagenumber :°ÜÆ°Àè¤Î¥Ú¡¼¥¸ÈÖ¹æ right :(¾Êά²Ä)ɽ¼¨¤¹¤ë¥Ú¡¼¥¸¤Îº¸Ã¼¤Î¿åÊ¿Êý¸þ¤Î¥ª¥Õ¥»¥Ã¥È(twipñ°Ì) down :(¾Êά²Ä)ɽ¼¨¤¹¤ë¥Ú¡¼¥¸¤Î¾å¶¶¤Î¿åÊ¿Êý¸þ¤Î¥ª¥Õ¥»¥Ã¥È(twipñ°Ì¡Ë -Îã Private Sub fra½»½ê_AfterUpdate() Debug.Print Me.fra½»½ê Select Case Me!fra½»½ê Case 1: Me.GoToPage 1 Case 2: Me.GoToPage 2 End Select End Sub **¥³¥ó¥È¥í¡¼¥ë¤Î»ÈÍѲÄǽ/ÉղäòÀÚ¤êÂؤ¨¤ë [#a4f0ca0a] ¥³¥ó¥È¥í¡¼¥ë¤Î[»ÈÍѲÄǽ]¥×¥í¥Ñ¥Æ¥£¤ò¡Ö¤¤¤¤¤¨¡×¤Ë¤¹¤ë¤È¡¢¤½¤Î¥³¥ó¥È¥í¡¼¥ë¤Ï¼Â¹Ô»þ¤Ë¥Õ¥©¡¼¥«¥¹¤ò°ÜÆ°¤¹¤ë»ö¤¬¤Ç¤¤Ê¤¯¤Ê¤ê¤Þ¤¹¡£~ [»ÈÍѲÄǽ]¥×¥í¥Ñ¥Æ¥£¤Î±Ñ¸ìɽµ¤Ï¡ÖEnable¡×¤Ç¤¹¡£ -Îã Me!cmdÃê½Ð.Enable = False '»ÈÍÑÉÔ²Ä Me!cmdÃê½Ð.Enable = True '»ÈÍÑ²Ä **¥³¥ó¥È¥í¡¼¥ë¤Îɽ¼¨/Èóɽ¼¨¤òÀÚ¤êÂؤ¨¤ë [#v88414b0] ¥³¥ó¥È¥í¡¼¥ë[²Ä»ë]¥×¥í¥Ñ¥Æ¥£¤ò¡Ö¤¤¤¤¤¨¡×¤Ë¤¹¤ë¤È¡¢¤½¤Î¥³¥ó¥È¥í¡¼¥ë¤ÏÈóɽ¼¨¤Ë¤Ê¤ê¤Þ¤¹¡£~ [²Ä»ë]¥×¥í¥Ñ¥Æ¥£¤Î±Ñ¸ìɽµ¤Ï¡ÖVisible¡×¤Ç¤¹¡£ -Îã If IsNull(Me!txt¥¡¼) Then M!cmdÃê½Ð.Visible = False '----Èóɽ¼¨ Else Me!cmdÃê½Ð.Visible = True '---ɽ¼¨ End If **¥Ç¡¼¥¿¥Ù¡¼¥¹¥¦¥£¥ó¥É¥¦¤òºÇ¾®²½¤¹¤ë [#gfa5794b] DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤Î²¼µ¤Î¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢¥«¥ì¥ó¥È¥¦¥£¥ó¥É¥¦¤Î¥µ¥¤¥º¤òÊѹ¹¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£~ ¤³¤ì¤é¤Î¥á¥½¥Ã¥É¤Ï¡¢¥Þ¥¯¥í¤Î[ºÇ¾®²½][ºÇÂç²½][¸µ¤Î¥µ¥¤¥º¤ËÌ᤹]¥¢¥¯¥·¥ç¥ó¤ÈƱ¤¸½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£ -½ñ¼° DoCmd.Mimimize :ºÇ¾®²½ DoCmd.Maximize :ºÇÂç²½ DoCmd.Restore :¸µ¤Î¥µ¥¤¥º¤ËÌ᤹ ¤³¤ì¤é¤Ï¡¢¥«¥ì¥ó¥È¥¦¥£¥ó¥É¥¦¤Î¥µ¥¤¥º¤òÊѹ¹¤¹¤ë½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£~ ¥á¥½¥Ã¥É¤ò¼Â¹Ô¤¹¤ëÁ°¤Ë¡¢¥µ¥¤¥º¤òÊѹ¹¤¹¤ë¥¦¥£¥ó¥É¥¦¤ÎSetFocus¤òÍøÍѤ¹¤ë¤«DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎSelectObject¥á¥½¥Ã¥É¤òÍøÍѤ·¤Æ¡¢¤½¤Î¥¦¥£¥ó¥É¥¦¤ò¥¢¥¯¥Æ¥£¥Ö¤Ê¾õÂ֤ˤ·¤Æ¤¯¤À¤µ¤¤¡£~ ¥Ç¡¼¥¿¥Ù¡¼¥¹¥¦¥£¥ó¥É¥¦¤ò¥¢¥¯¥Æ¥£¥Ö¤Ë¤¹¤ë¤Ë¤Ï¡¢SelectObject¥á¥½¥Ã¥É¤Îindatabasewindou°ú¿ô¤òTrue¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£ -[[DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎSelectObject¥á¥½¥Ã¥É>#dfe2dae3]] -Îã Private Sub cmdºÇ¾®²½_Click() DoCmd.SelectObject acTable, , True DoCmd.Minimize End Sub Private Sub cmd¸µ¤Î¥µ¥¤¥º_Click() DoCmd.SelectObject acTable, , True DoCmd.Restore Me.SetFocus End Sub **¥Õ¥©¡¼¥à¤¬³«¤¤¤Æ¤¤¤ë¤«¤É¤¦¤«Ä´¤Ù¤ë [#xcf915d9] SysCmd¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢»ØÄꤷ¤¿Access¥ª¥Ö¥¸¥§¥¯¥È¤¬³«¤¤¤Æ¤¤¤ë¤«¤É¤¦¤«¤ò³Îǧ¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£~ ¥ª¥Ö¥¸¥§¥¯¥È¤¬³«¤¤¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢¤½¤Î¥Ó¥å¡¼¤âÄ´¤Ù¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° SysCmd(action, arg2, arg3) action :¼Â¹Ô¤¹¤ë¥¢¥¯¥·¥ç¥ó¤Î¼ïÎà Access¥ª¥Ö¥¸¥§¥¯¥È¤Î¾õÂÖ¤òÄ´¤Ù¤ë»þ¤Ï¡ÖacSysCmdGetObjectState¡× arg2 :¾õÂÖ¤òÄ´¤Ù¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Î¼ïÎà acTable :¥Æ¡¼¥Ö¥ë acQuery :¥¯¥¨¥ê acForm :¥Õ¥©¡¼¥à acReport :¥ì¥Ý¡¼¥È acMacro :¥Þ¥¯¥í acModule :¥â¥¸¥å¡¼¥ë acDataAccessPage :¥Ç¡¼¥¿¥¢¥¯¥»¥¹¥Ú¡¼¥¸ arg3 :¾õÂÖ¤òÄ´¤Ù¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Î̾Á° -Îã~ ¡ÖF_¸ÜµÒ¡×¥Õ¥©¡¼¥à¤Î¾õÂÖ¤òÄ´¤Ù¤ë SysCmd(acSysCmdGetObjectState, acForm, "F_¸ÜµÒ") --Ìá¤êÃÍ Äê¿ô ÃÍ °ÕÌ£ 0 ÊĤ¸¤Æ¤¤¤ë acObjStateOpen 1 ³«¤¤¤Æ¤¤¤ë acObjStateDirty 2 Êѹ¹¸åÊݸ¤µ¤ì¤Æ¤¤¤Ê¤¤ acObjStateNew 3 ¿·¤·¤¤ ***¥ª¥Ö¥¸¥§¥¯¥È¤Î¥«¥ì¥ó¥È¥Ó¥å¡¼ [#e1a56669] ¥ª¥Ö¥¸¥§¥¯¥È¤Î¥«¥ì¥ó¥È¥Ó¥å¡¼¤ÏCurrentView¥×¥í¥Ñ¥Æ¥£¤Ç»²¾È¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -Îã~ ¡ÖF_¸ÜµÒ¡×¥Õ¥©¡¼¥à¤Î¥«¥ì¥ó¥È¥Ó¥å¡¼¤òÄ´¤Ù¤ë Forms("F_¸ÜµÒ").CurrentView --Ìá¤êÃÍ ÃÍ ¥Ó¥å¡¼ 0 ¥Ç¥¶¥¤¥ó¥Ó¥å¡¼ 1 ¥Õ¥©¡¼¥à¥Ó¥å¡¼ 2 ¥Ç¡¼¥¿¥·¡¼¥È¥Ó¥å¡¼ -Îã Private Sub cmd³Îǧ_Click() Dim frmname As String Dim frmview As String frmname = Me.txt̾Á° If SysCmd(acSysCmdGetObjectState, acForm, frmname) = 0 Then Beep MsgBox frmname & " ¤ÏÊĤ¸¤Æ¤Þ¤¹", vbOKOnly + vbInformation, "³Îǧ" Else Select Case Forms(frmname).CurrentView Case 0: frmview = "¥Ç¥¶¥¤¥ó¥Ó¥å¡¼" Case 1: frmview = "¥Õ¥©¡¼¥à¥Ó¥å¡¼" Case 2: frmview = "¥Ç¡¼¥¿¥·¡¼¥È¥Ó¥å¡¼" End Select Beep MsgBox frmname & " ¤Ï³«¤¤¤Æ¤¤¤Þ¤¹ : " & frmview, _ vbOKOnly + vbInformation, "³Îǧ" End If End Sub **¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤Î¥ê¥¹¥È¤ËÃͤòÄɲ乤ë [#s5109a1e] ¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤Ë¸ºß¤·¤Ê¤¤Ãͤò¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹Éôʬ¤ËÆþÎϤ¹¤ë¤È¡¢¥ê¥¹¥È³°ÆþÎÏ»þ/NotInList¥¤¥Ù¥ó¥È¤¬È¯À¸¤·¤Þ¤¹¡£~ ¤³¤Î¤È¤Æȼ«¤Î¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤·¤Æ¡¢ÆþÎϤ·¤¿Ãͤò¥ê¥¹¥È¤ËÄɲ乤ë½èÍý¤ò¼Â¹Ô¤Ç¤¤Þ¤¹¡£~ cbo¥°¥ë¡¼¥×¤ÎÆþÎÏ¥Á¥§¥Ã¥¯¤ò¡Ö¤Ï¤¤¡×¤Ë¤¹¤ë¡£ -Îã Private Sub cbo¥°¥ë¡¼¥×_NotInList(NewData As String, Response As Integer) Dim ret As Integer Dim cn As ADODB.Connection Dim rs As New ADODB.Recordset Debug.Print ret Response = acDataErrContinue '-------------------------------------¡ Beep ret = MsgBox(NewData & " ¤ò¥ê¥¹¥È¤ËÄɲä·¤Þ¤¹¤«", _ vbYesNo + vbQuestion, "¥ê¥¹¥ÈÄɲÃ") Select Case ret Case vbYes Set cn = CurrentProject.Connection rs.Open "¾¦Éʥơ¼¥Ö¥ë", cn, adOpenKeyset, adLockOptimistic rs.AddNew "¾¦ÉÊ̾", NewData '-----------------------------------¢ Me.cbo¥°¥ë¡¼¥× = Null '--------------------------------------£ Me.cbo¥°¥ë¡¼¥×.Requery '--------------------------------------¤ Case vbNo Me.cbo¥°¥ë¡¼¥× = Null Me.cbo¥°¥ë¡¼¥×.Dropdown End Select End Sub -¡NotInList¥×¥í¥·¡¼¥¸¥ã¤ÎResponse°ú¿ô¤òacDataErrContinue¤Ë¤¹¤ë¤È¡¢¥·¥¹¥Æ¥à¥á¥Ã¥»¡¼¥¸¤òÈóɽ¼¨¤Ë¤·¤Æ¡¢Æȼ«¤Î¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤¹¤ë»ö¤¬¤Ç¤¤ë¡£ -¢¿·µ¬¥ì¥³¡¼¥É¤òÄɲ䷤ơ¢¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹Éôʬ¤ËÆþÎϤµ¤ì¤¿Ãͤò¡Ö¾¦ÉÊ̾¡×¥Õ¥£¡¼¥ë¥É¤ËÂåÆþ¤¹¤ë~ ¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹¤ËÆþÎϤµ¤ì¤¿Ãͤϡ¢NoInList¥×¥í¥·¡¼¥¸¥ã¤ÎNewData°ú¿ô¤Ç»²¾È¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -£¥Æ¥¥¹¥È¥Ü¥Ã¥¯¥¹Éôʬ¤ò¶õ¤Ë¤¹¤ë -¤¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤ÎºÆ¥¯¥¨¥ê¤ò¼Â¹Ô¤¹¤ë **½èÍý¤Ë»þ´Ö¤¬¤«¤«¤ë»þ¤Ë¡¢¥¹¥Æ¡¼¥¿¥¹¥Ð¡¼¤Ë¥¤¥ó¥¸¥±¡¼¥¿¤òɽ¼¨¤¹¤ë¡£ [#a7d309f6] SysCmd¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢¥¹¥Æ¡¼¥¿¥¹¥Ð¡¼¤Ë»ØÄꤷ¤¿Ê¸»úÎó¤òɽ¼¨¤·¤¿¤ê¡¢¿ÊĽ¾õ¶·¤òɽ¤¹¥¤¥ó¥¸¥±¡¼¥¿¤òɽ¼¨¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° SysCmd(action, arg2, arg3) --¥¤¥ó¥¸¥±¡¼¥¿¤Î½é´ü²½ action :acSysCmdInitMeter arg2 :¥¹¥Æ¡¼¥¿¥¹¥Ð¡¼¤Ëɽ¼¨¤¹¤ëʸ»úÎó arg3 :¥¤¥ó¥¸¥±¡¼¥¿¤ÎºÇÂçÃÍ --¥¤¥ó¥¸¥±¡¼¥¿¤ò¹¹¿· action :acSysCmdUpdateMeter arg2 :¥¤¥ó¥¸¥±¡¼¥¿¤Î¸½ºß¤ÎÃÍ arg3 :(ÀßÄꤷ¤Ê¤¤) --¥¤¥ó¥¸¥±¡¼¥¿¤ò¾Ãµî action :acSysCmdRemoveMeter arg2 :(ÀßÄꤷ¤Ê¤¤) arg3 :(ÀßÄꤷ¤Ê¤¤) -Îã Private Sub cmd¥¹¥¿¡¼¥È_Click() Dim i As Long Dim cnt As Long cnt = 10000000 SysCmd acSysCmdInitMeter, "½èÍýÃæ", cnt For i = 0 To cnt SysCmd acSysCmdUpdateMeter, i Next i SysCmd acSysCmdRemoveMeter MsgBox "½èÍý´°Î»", vbOKOnly + vbInformation, "´°Î»" End Sub **½èÍý¤Ë»þ´Ö¤¬¤«¤«¤ë»þ¤Ë¥Õ¥©¡¼¥à¤Ë¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤¹¤ë [#c6b96d8a] DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎHourgLass¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢¥Þ¥¦¥¹¤Î¥Ý¥¤¥ó¥¿¤Î·Á¾õ¤òº½»þ·×¤Ë¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° DoCmd.HourLass hourLasson hourLasson :º½»þ·×¥Ý¥¤¥ó¥¿¤òɽ¼¨¤¹¤ë¤«¤É¤¦¤« True :º½»þ·×¥Ý¥¤¥ó¥¿ False :Ä̾ï¥Ý¥¤¥ó¥¿ ¥³¥Þ¥ó¥É¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢²¼µ¤Î½çÈ֤ǥ¤¥Ù¥ó¥È¤¬È¯À¸¤·¤Þ¤¹¡£ MouseDown¥¤¥Ù¥ó¥È ¢Í MouseUp¥¤¥Ù¥ó¥È ¢Í Click¥¤¥Ù¥ó¥È -Îã Private Sub cmd¥¹¥¿¡¼¥È_Click() Dim i As Long Dim cnt As Long DoCmd.Hourglass True '--------------------------------------¡ cnt = 10000000 SysCmd acSysCmdInitMeter, "½èÍýÃæ", cnt For i = 0 To cnt SysCmd acSysCmdUpdateMeter, i Next i SysCmd acSysCmdRemoveMeter Me.lbl¥á¥Ã¥»¡¼¥¸.Visible = False '---------------------------¢ DoCmd.Hourglass False '--------------------------------------£ MsgBox "½èÍý´°Î»", vbOKOnly + vbInformation, "´°Î»" End Sub Private Sub cmd¥¹¥¿¡¼¥È_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Me.lbl¥á¥Ã¥»¡¼¥¸.Visible = True '--------------------------¤ End Sub Private Sub Form_Open(Cancel As Integer) Me.lbl¥á¥Ã¥»¡¼¥¸.Visible = False End Sub -¡¥Ý¥¤¥ó¥¿¤Î·Á¾õ¤òº½»þ·×¤Ë¤¹¤ë -¢lbl¥á¥Ã¥»¡¼¥¸¥é¥Ù¥ë¤òÈóɽ¼¨¤Ë¤¹¤ë -£¥Ý¥¤¥ó¥¿¤Î·Ð¾ï¤òÄ̾ï¤ËÌ᤹ -¤lbl¥á¥Ã¥»¡¼¥¸¥é¥Ù¥ë¤òɽ¼¨¤¹¤ë **ÆüÉÕ¤ò¥¢¥Ã¥×¥À¥¦¥ó¤¹¤ë¥Ü¥¿¥ó¤òºîÀ®¤¹¤ë [#w729f375] Visual Basic¤ÎDataAdd´Ø¿ô¤òÍøÍѤ¹¤ë¤È¡¢»ØÄꤷ¤¿»þ´Ö´Ö³Ö¤ò²Ã»»¤Þ¤¿¤Ï¸º»»¤·¤¿ÆüÉÕ¤ò¼èÆÀ¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -½ñ¼° retvalue = DataAdd(interval, number, date) retvalue :Ìá¤êÃÍ(String·¿) ²Ã»»¤Þ¤¿¸º»»¤·¤¿ÆüÉÕ interval :Äɲ乤ë»þ´Ö´Ö³Ö¤òɽ¤¹Ê¸»úÎó¼° yyyy :ǯ m :·î d :Æü number :Äɲ乤ë»þ´Ö´Ö³Ö¤Î¿ô date :»þ´Ö´Ö³Ö¤òÄɲ乤ëÆüÉÕ -Îã1~ º£Æü¤ÎÆüÉÕ¤«¤é10Æü¸å¤ÎÆüÉÕ¤ò¼èÆÀ¤¹¤ë ret = DateAdd("d", 10, Date) -Îã2~ º£Æü¤ÎÆüÉÕ¤«¤é10ÆüÁ°¤ÎÆüÉÕ¤ò¼èÆÀ¤¹¤ë ret = DateAdd("d", -10, Date) -ÆüÉÕ¤ò¥¢¥Ã¥×¥À¥¦¥ó¤¹¤ë¥Ü¥¿¥ó Private Sub Form_Open(Cancel As Integer) Debug.Print "¤Æ¤¹¤È" Me.txtÆüÉÕ = Date End Sub Private Sub cmdDec_Click() Me.txtÆüÉÕ = DateAdd("d", -1, Me.txtÆüÉÕ) End Sub Private Sub cmdInc_Click() Me.txtÆüÉÕ = DateAdd("d", 1, Me.txtÆüÉÕ) End Sub --¥³¥ó¥Ñ¥¤¥ë¥¨¥é¡¼¤¬½Ð¤ë~ VisualBasic Editor¤Ç¡¢¡Ö¥Ä¡¼¥ë¡×¢Í¡Ö»²¾ÈÀßÄê¡×¢Í»²¾ÈÉԲĤäƤΤ˥Á¥§¥Ã¥¯¤¬Æþ¤Ã¤Æ¤¤¤¿¤Î¤Ç¡¢¤½¤ì¤ò³°¤¹¤È¼£¤Ã¤¿¡£ **ADO¤Î¥ì¥³¡¼¥É¥»¥Ã¥È¤ò¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë [#g1ca3de6] ¥Õ¥©¡¼¥à¤ÎRecordset¥×¥í¥Ñ¥Æ¥£¤ËADO¤ÎRecordset¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î»²¾È¤òÂåÆþ¤¹¤ë¤È¡¢Recordset¥ª¥Ö¥¸¥§¥¯¥È¤ÎÆâÍƤò¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ Set forms!form.Recordset = recordset -ADO¤Î¥ì¥³¡¼¥É¥»¥Ã¥È¤Ï¥Õ¥©¡¼¥à¾å¤ÇÊÔ½¸¤¹¤ë»ö¤¬¤Ç¤¤Þ¤»¤ó¡£~ ÊÔ½¸¤¹¤ëɬÍפ¬¤¢¤ë¾ì¹ç¤Ï¡¢DAO¤òÍøÍѤ·¤Æ¤¯¤À¤µ¤¤¡£ -Îã Private Sub txt¥¡¼_AfterUpdate() Dim cn As ADODB.Connection Dim rs As New ADODB.Recordset Dim mySQL As String mySQL = "SELECT * FROM T_¾¦ÉÊ WHERE ¾¦ÉÊ¥°¥ë¡¼¥× = '" & Me.txt¥¡¼ & "'" Set cn = CurrentProject.Connection rs.Open mySQL, cn, adOpenKeyset, adLockOptimistic Set Me.Recordset = rs rs.Close: Set rs = Nothing: cn.Close: Set cn = Nothing End Sub **DAO¤Î¥ì¥³¡¼¥É¥»¥Ã¥È¤ò¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë [#h5d3abcc] ¥Õ¥©¡¼¥à¤ÎRecorset¥×¥í¥Ñ¥Æ¥£¤ËDAO¤ÎRecordset¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î»²¾È¤òÂåÆþ¤¹¤ë¤È¡¢Recordset¥ª¥Ö¥¸¥§¥¯¥È¤ÎÆâÍƤò¥Õ¥©¡¼¥à¤Ëɽ¼¨¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ Set forms!form.Recorset = recordset -[[DAO¤òÍøÍѤ¹¤ë¤Ë¤Ï>AccessVBA/DAO#DAO]] -Îã Private Sub txt¥¡¼_AfterUpdate() Dim db As DAO.Database Dim rs As DAO.Recordset Dim mySQL As String Set db = CurrentDb() mySQL = "SELECT * FROM T_¾¦ÉÊ WHERE ¾¦ÉÊ¥°¥ë¡¼¥× Like '" & Me.txt¥¡¼ & "*'" Set rs = db.OpenRecordset(mySQL) Set Me.Recordset = rs Set rs = Nothing: Set db = Nothing End Sub **Æȼ«¤Î¥ì¥³¡¼¥É°ÜÆ°¥Ü¥¿¥ó¤òºî¤ë [#d2b3f56f] ¥Õ¥©¡¼¥à¤ÎRecordset¥×¥í¥Ñ¥Æ¥£¤Ï¡¢¥Õ¥©¡¼¥à¤Ëɽ¼¨¤·¤Æ¤¤¤ë¥ì¥³¡¼¥É¥½¡¼¥¹¤½¤Î¤â¤Î¤ò»²¾È¤·¤Þ¤¹¡£~ Recordset¥ª¥Ö¥¸¥§¥¯¥È¤ÎMove·Ï¤Î¥á¥½¥Ã¥É¤ò»È¤Ã¤Æ¡¢¥«¥ì¥ó¥È¥³¡¼¥É¤ò°ÜÆ°¤¹¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -Îã '¥Õ¥©¡¼¥à¤ò[³«¤¯»þ/Open] Private Sub Form_Open(Cancel As Integer) Me.Recordset.MoveLast Me.Recordset.MoveFirst End Sub '¥Õ¥©¡¼¥à¤Î[¥ì¥³¡¼¥É°ÜÆ°»þ/Current] Private Sub Form_Current() Me.txt¾ðÊó = Me.CurrentRecord & " / " & Me.Recordset.RecordCount End Sub Private Sub cmdÀèƬ_Click() Me.Recordset.MoveFirst End Sub Private Sub cmdÁ°_Click() Me.Recordset.MovePrevious End Sub Private Sub cmd¼¡_Click() Me.Recordset.MoveNext End Sub Private Sub cmdºÇ½ª_Click() Me.Recordset.MoveLast End Sub **¾·Á¼°¤Î¥Õ¥¡¥¤¥ë¤ò¥¤¥ó¥Ý¡¼¥È¤¹¤ë [#qfd84c45] DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎTransferSpreadsheet¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢·×»»¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÇºîÀ®¤·¤¿¥Õ¥¡¥¤¥ë¤«¤é¥Ç¡¼¥¿¤òÆɤ߹þ¤à»ö¤¬½ÐÍè¤Þ¤¹¡£~ ¤Þ¤¿¡¢TransferText¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢CSV·Á¼°¤Î¥Õ¥¡¥¤¥ë¤«¤é¥Ç¡¼¥¿¤òÆɤ߹þ¤à»ö¤¬¤Ç¤¤Þ¤¹¡£~ ¤³¤Î¤È¤Visual Basic¤ÎDir´Ø¿ô¤òÍøÍѤ¹¤ë¤È¡¢¥¤¥ó¥Ý¡¼¥È¸µ¤Î¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤¹¤ë¤«¤É¤¦¤«Ä´¤Ù¤ë»ö¤¬¤Ç¤¤Þ¤¹¡£ -TransferSpreadsheet¥á¥½¥Ã¥É~ ɽ·×»»¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ÇºîÀ®¤·¤¿¥Õ¥¡¥¤¥ë¤«¤é¥Ç¡¼¥¿¤òÆɤ߹þ¤ß¡¢¥Æ¡¼¥Ö¥ëÄɲ乤ë½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£~ ¥Þ¥¯¥í¤Î[¥ï¡¼¥¯¥·¡¼¥ÈÊÑ´¹]¥¢¥¯¥·¥ç¥ó¤ÈƱ¤¸½èÍý¤Ç¤¹¡£ -½ñ¼° DoCmd.TransferSpreadsheet transfertype, spreadsheettype, tablename, filename, hasfieldnames, range transfertype :ÊÑ´¹¤Î¼ïÎà ¥¤¥ó¥Ý¡¼¥È¤Î»þ¤Ï¡Öaclmport¡× spreadsheettype :¥ï¡¼¥¯¥·¡¼¥È¤Î¥¿¥¤¥× Excel·Á¼°¤Î¥Õ¥¡¥¤¥ë¤ò¥¤¥ó¥Ý¡¼¥È¤¹¤ë¤È¤¤Ï¡ÖacSpreadsheettypeExcel8¡× ¤Þ¤¿¤Ï¡ÖacSpreadsheetTypeExcel9¡× tablename :¥¤¥ó¥Ý¡¼¥È¤·¤¿¥Ç¡¼¥¿¤òÊݸ¤¹¤ë¥Æ¡¼¥Ö¥ë̾ filename :¥¤¥ó¥Ý¡¼¥È¤¹¤ë¥Õ¥¡¥¤¥ë̾ hasfieldnames :(¾Êά²Ä)¥Õ¥¡¥¤¥ë¤ÎÀèƬ¹Ô¤ò¥Õ¥£¡¼¥ë¥É̾¤Ë»ÈÍѤ¹¤ë¤«¤É¤¦¤« range :(¾Êά²Ä)Æɤ߹þ¤àÈÏ°Ï --Îã~ ¡ÖD:\Sample.xls¡×¤«¤éÆɤ߹þ¤ó¤À¥Ç¡¼¥¿¤ò[¥µ¥ó¥×¥ë]¥Æ¡¼¥Ö¥ë¤ËÄɲ乤롣 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "¥µ¥ó¥×¥ë", "D:\Sample.xls" -TransferText¥á¥½¥Ã¥É~ CSV·Á¼°¤Î¥Õ¥¡¥¤¥ë¤«¤é¥Ç¡¼¥¿¤òÆɤ߹þ¤à»þ¤Ë¤Ï¡¢TransferText¥á¥½¥Ã¥É¤òÍøÍѤ·¤Þ¤¹¡£ --½ñ¼° DoCmd.TransferText transfertype, specificationname, tablename, filename, hasfieldnames, htmltablename, codepage transfertype :ÊÑ´¹¤Î¼ïÎà CSV·Á¼°¤Î¥Õ¥¡¥¤¥ë¤«¤é¥¤¥ó¥Ý¡¼¥È¤¹¤ë¤È¤¤Ï¡¢¡ÖacImportDelim¡× specificationname :(¾Êά²Ä)ÄêµÁ¥Õ¥¡¥¤¥ë̾ tablename :¥¤¥ó¥Ý¡¼¥È¤·¤¿¥Ç¡¼¥¿¤òÊݸ¤¹¤ë¥Æ¡¼¥Ö¥ë̾ filename :¥¤¥ó¥Ý¡¼¥È¸µ¤Î¥Õ¥¡¥¤¥ë̾ hasfieldnames :(¾Êά²Ä)¥Õ¥¡¥¤¥ë¤ÎÀèƬ¹Ô¤ò¥Õ¥£¡¼¥ë¥É̾¤Ë¤·¤è¤¦¤¹¤ë¤«¤É¤¦¤« htmltablename :(ÀßÄꤷ¤Ê¤¤) codepage :(¾Êά²Ä)¥³¡¼¥É¥Ú¡¼¥¸¤Îʸ»ú¥»¥Ã¥È --Îã~ ¡ÖD:\Sample.csv¡×¤«¤éÆɤ߹þ¤ó¤À¥Ç¡¼¥¿¤ò[¥µ¥ó¥×¥ë]¥Æ¡¼¥Ö¥ë¤ËÄɲ乤ë DoCmd.TransferText acImportDelim,,"¥µ¥ó¥×¥ë","D:\Sample.csv" -Dir´Ø¿ô [#m3948c38] ¥·¥¹¥Æ¥à¤Ë¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤¹¤ë¤«¤É¤¦¤« -½ñ¼° retvalue = Dir(pathname) retvalue :Ìá¤êÃÍ(String·¿) pathname :Ä´¤Ù¤ë¥Õ¥¡¥¤¥ë¤Î¥Ñ¥¹Ì¾ Dir´Ø¿ô¤Ï¡¢»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤¬¸«¤Ä¤«¤Ã¤¿¾ì¹ç¤Ë¤Ï¥Õ¥¡¥¤¥ë̾¤òÊÖ¤·¤Þ¤¹¡£¤â¤·¤â¸«¤Ä¤«¤é¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢Ä¹¤µ0¤Îʸ»úÎó("")¤òÊÖ¤·¤Þ¤¹¡£ -Îã [Me.txt¥Õ¥¡¥¤¥ë]¤Ë»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤ò[Me.txt¥Æ¡¼¥Ö¥ë]¤Ë»ØÄꤷ¤¿¥Æ¡¼¥Ö¥ë¤Ë¥¤¥ó¥Ý¡¼¥È¤¹¤ë¡£ Private Sub cmd¥¤¥ó¥Ý¡¼¥È_Click() Dim ext As String If IsNull(Me.txt¥Õ¥¡¥¤¥ë) Or IsNull(Me.txt¥Æ¡¼¥Ö¥ë) Then Beep MsgBox "¥¤¥ó¥Ý¡¼¥È¤¹¤ë¥Õ¥¡¥¤¥ë¤È¡¢¥¤¥ó¥Ý¡¼¥ÈÀè¥Æ¡¼¥Ö¥ë̾¤¬ÆþÎϤµ¤ì¤Æ¤ª¤ê¤Þ¤»¤ó¡£", _ vbOKOnly + vbExclamation, "¥¤¥ó¥Ý¡¼¥È" Exit Sub End If '¥Õ¥¡¥¤¥ë¤¬¤¢¤ë¤«¤É¤¦¤«¥Á¥§¥Ã¥¯ If Dir(Me.txt¥Õ¥¡¥¤¥ë) = "" Then Beep MsgBox "¥Õ¥¡¥¤¥ë¤¬¸«¤Ä¤«¤ê¤Þ¤»¤ó", vbOKOnly + vbExclamation, "¥¤¥ó¥Ý¡¼¥È" Exit Sub End If '³ÈÄ¥»Ò¤ò¥Á¥§¥Ã¥¯¤·¤Æ¥¤¥ó¥Ý¡¼¥È ext = Right(Me.txt¥Õ¥¡¥¤¥ë, 3) Select Case ext Case "xls" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _ Me.txt¥Æ¡¼¥Ö¥ë, Me.txt¥Õ¥¡¥¤¥ë, True Case "csv" DoCmd.TransferText acImportDelim, , _ Me.txt¥Æ¡¼¥Ö¥ë, Me.txt¥Õ¥¡¥¤¥ë, True Case Else Beep MsgBox "»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤Ï¥¤¥ó¥Ý¡¼¥È¤Ç¤¤Þ¤»¤ó¡£", vbOKOnly + vbExclamation, "¥¤¥ó¥Ý¡¼¥È" End Select Beep MsgBox "¥¤¥ó¥Ý¡¼¥È´°Î»", vbOKOnly + vbInformation, "¥¤¥ó¥Ý¡¼¥È" End Sub **¥Æ¡¼¥Ö¥ë¤ò¾·Á¼°¤Î¥Õ¥¡¥¤¥ë¤Ë¥¨¥¯¥¹¥Ý¡¼¥È¤¹¤ë [#c7f53f12] ¥Æ¡¼¥Ö¥ë¤ËÅÐÏ¿¤µ¤ì¤Æ¤¤¤ë¥ì¥³¡¼¥É¤ä¥¯¥¨¥ê¤Î·ë²Ì¤ò¾·Á¼°¤Î¥Õ¥¡¥¤¥ë¤Ë¥¨¥¯¥¹¥Ý¡¼¥È¤¹¤ë»þ¤â¡¢CoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎTransferSpreadsheet¥á¥½¥Ã¥É¤ÈTransferText¥á¥½¥Ã¥É¤òÍøÍѤ·¤Þ¤¹¡£~ -Îã(TransferSpreadsheet¥á¥½¥Ã¥É)~ Excel·Á¼°¤Î¥Õ¥¡¥¤¥ë¤Ë¥¨¥¯¥¹¥Ý¡¼¥È¤¹¤ë¤È¤¤Ï¡¢transfertype°ú¿ô¤òacExport¤Ë¤¹¤ë~ [T_¾¦ÉÊ]¥Æ¡¼¥Ö¥ë¤ÎÆâÍƤò¡ÖD:\Access\¾¦ÉÊ°ìÍ÷.xls¡×¤Ë½ÐÎϤ¹¤ë Excel·Á¼°¤Î¥Õ¥¡¥¤¥ë¤Ë¥¨¥¯¥¹¥Ý¡¼¥È¤¹¤ë¤È¤¤Ï¡¢transfertype°ú¿ô¤òExport¤Ë¤¹¤ë¡£ DoCmd.TransferSpreadsheet acExport, acSpreadSheetType8, "T_¾¦ÉÊ", "D:\Access\¾¦ÉÊ°ìÍ÷" -Îã(TransferText¥á¥½¥Ã¥É)~ CSV·Á¼°¤Î¥Õ¥¡¥¤¥ë¤Ë¥¨¥¯¥¹¥Ý¡¼¥È¤¹¤ë¤È¤¤Ï¡¢transfertype°ú¿ô¤òacExportDelim¤Ë¤¹¤ë~ [T_¾¦Éʥơ¼¥Ö¥ë]¤ÎÆâÍƤò¡ÖD:\Access\¾¦ÉÊ°ìÍ÷.csv¡×¤Ë½ÐÎϤ¹¤ë DoCmd.TransferText acExportDelim, , "T_¾¦ÉÊ", "D:\Access\¾¦ÉÊ°ìÍ÷.csv" -Îã~ ¥Æ¡¼¥Ö¥ë¤Þ¤¿¤Ï¡¢¥¯¥¨¥ê¤Î·ë²Ì¤ò¡¢»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤Ë¥¨¥¯¥¹¥Ý¡¼¥È¤¹¤ë Private Sub cmd¥¨¥¯¥¹¥Ý¡¼¥È_Click() On Error GoTo Err_cmd¥¨¥¯¥¹¥Ý¡¼¥È_Click Dim ext As String Dim ret As Integer '¥Æ¡¼¥Ö¥ë̾¡¢¥¨¥¯¥¹¥Ý¡¼¥ÈÀè¥Õ¥¡¥¤¥ë̾¤¬ÆþÎϤµ¤ì¤Æ¤¤¤ë¤«¤É¤¦¤« If IsNull(Me.txt¥Æ¡¼¥Ö¥ë) Then Beep MsgBox "¥Æ¡¼¥Ö¥ë̾¤«¡¢¥¨¥¯¥¹¥Ý¡¼¥ÈÀè¤Î¥Õ¥¡¥¤¥ë̾¤¬ÆþÎϤµ¤ì¤Æ¤ª¤ê¤Þ¤»¤ó." _ , vbOKOnly + vbExclamation, "¥¨¥¯¥¹¥Ý¡¼¥È" Exit Sub End If '¥Õ¥¡¥¤¥ë¤¬¤¢¤ë¤«¤É¤¦¤« If Dir(Me.txt¥Õ¥¡¥¤¥ë) = "" Then Else Beep ret = MsgBox("»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤Ï´û¤Ë¸ºß¤·¤Þ¤¹¡£" & vbCrLf _ & "¾å½ñ¤¤·¤Þ¤¹¤«", _ vbYesNo + vbQuestion, "¥¨¥¯¥¹¥Ý¡¼¥È") Select Case ret Case vbYes Case vbNo Beep MsgBox "¥Õ¥¡¥¤¥ë̾¤òÆþÎϤ·Ä¾¤·¤Æ¤¯¤À¤µ¤¤", _ vbOKOnly + vbInformation, "¥¨¥¯¥¹¥Ý¡¼¥È" Exit Sub End Select End If '·Á¼°/³ÈÄ¥»Ò¤ò¥Á¥§¥Ã¥¯¤·¤Æ¥¨¥¯¥¹¥Ý¡¼¥È ext = Right(Me.txt¥Õ¥¡¥¤¥ë, 3) Select Case fra·Á¼° Case 1 If ext = "xls" Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, _ Me.txt¥Æ¡¼¥Ö¥ë, Me.txt¥Õ¥¡¥¤¥ë, True Else Beep MsgBox "³ÈÄ¥»Ò¤¬ÉÔÀµ¤Ç¤¹¡£", vbOKOnly + vbExclamation, "¥¨¥¯¥¹¥Ý¡¼¥È" Exit Sub End If Case 2 If (ext = "csv") Or (ext = "txt") Then DoCmd.TransferText acExportDelim, , Me.txt¥Æ¡¼¥Ö¥ë, Me.txt¥Õ¥¡¥¤¥ë, True Else Beep MsgBox "³ÈÄ¥»Ò¤¬ÉÔÀµ¤Ç¤¹¡£", vbOKOnly + vbExclamation, "¥¨¥¯¥¹¥Ý¡¼¥È" End If End Select Beep MsgBox "¥¨¥¯¥¹¥Ý¡¼¥È¤ò½ªÎ»¤·¤Þ¤·¤¿", vbOKOnly + vbInformation, "¥¨¥¯¥¹¥Ý¡¼¥È" Exit_cmd¥¨¥¯¥¹¥Ý¡¼¥È_Click: Exit Sub Err_cmd¥¨¥¯¥¹¥Ý¡¼¥È_Click: Beep MsgBox Err.Number & " : " & Err.Description Resume Exit_cmd¥¨¥¯¥¹¥Ý¡¼¥È_Click: End Sub **¥«¥ì¥ó¥È¥³¡¼¥É¤ò°ÜÆ°¤¹¤ë [#y26b8670] DoCmd¥ª¥Ö¥¸¥§¥¯¥È¤ÎGoToRecord¥á¥½¥Ã¥É¤òÍøÍѤ¹¤ë¤È¡¢»ØÄꤷ¤¿¥ì¥³¡¼¥É¤ò¥«¥ì¥ó¥È¥³¡¼¥É¤Ë¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£~ ¥Þ¥¯¥í¤Î¡Ö¥ì¥³¡¼¥É¤Î°ÜÆ°¡×¥¢¥¯¥·¥ç¥ó¤ÈƱ¤¸½èÍý¤Ç¤¹¡£ -½ñ¼° DoCmd.GoToRecord objecttype, objectname, record, offset objecttype :(¾Êά²Ä)¥ª¥Ö¥¸¥§¥¯¥È¤Î¼ïÎà objectname :(¾Êά²Ä)¥ª¥Ö¥¸¥§¥¯¥È̾ record :°ÜÆ°Àè¤Î¥ì¥³¡¼¥É acFirst :ÀèƬ¥ì¥³¡¼¥É¤Ø acPrevious :¤Ò¤È¤ÄÁ°¤Î¥ì¥³¡¼¥É¤Ø acNext :¼¡¤Î¥ì¥³¡¼¥É(´ûÄêÃÍ) acLast :ºÇ½ª¥ì¥³¡¼¥É¤Ø acNewRec :¿·µ¬¥ì¥³¡¼¥É¤Ø acGoTo :»ØÄꤷ¤¿¥ì¥³¡¼¥É¤Ø offset :(¾Êά²Ä)°ÜÆ°¤¹¤ë¥ì¥³¡¼¥É¿ô **¥Õ¥¡¥¤¥ë¤Ë½ÐÎϤ¹¤ëÊýË¡ [#o2472700] +¥Õ¥¡¥¤¥ë¤ò½ÐÎϥ⡼¥É¤Ç³«¤¯(Open¥¹¥Æ¡¼¥È¥á¥ó¥È) +¥Ç¡¼¥¿¤ò½ÐÎϤ¹¤ë(Write #¥¹¥Æ¡¼¥È¥á¥ó¥È) +¥Õ¥¡¥¤¥ë¤òÊĤ¸¤ë(Close¥¹¥Æ¡¼¥È¥á¥ó¥È) -Open¥¹¥Æ¡¼¥È¥á¥ó¥È~ »ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤ò³«¤¤¤Æ¡¢¥Ç¡¼¥¿¤òÆþ½ÐÎϤǤ¤ë¤è¤¦¤Ë¤·¤Þ¤¹¡£ --½ñ¼° Open passname For mode As #filenumber passname :½ÐÎÏÀè¤Î¥Õ¥¡¥¤¥ë̾ mode :¥Õ¥¡¥¤¥ë¥â¡¼¥É(½ÐÎÏÍѤ˳«¤¯¤È¤¤Ï¡ÖOutput¡×) finenumber :¥Õ¥¡¥¤¥ë¤ò¼±Ê̤¹¤ëÈÖ¹æ ---Îã~ ¡ÖD:\Access\Sample.csv¡×¤ò½ÐÎϥ⡼¥É¤Ç³«¤¯(¥Õ¥¡¥¤¥ëÈÖ¹æ¤Ï1) Open "D:\Access\Sample.csv" For Output As #1 -write¥¹¥Æ¡¼¥È¥á¥ó¥È Output¥â¡¼¥É¤Ç³«¤¤¤¿¥Õ¥¡¥¤¥ë¤Ë¡¢¥Ç¡¼¥¿¤ò½ÐÎϤ·¤Þ¤¹¡£ --½ñ¼° Write #filenumber, outputlist finenumber :³«¤¤¤Æ¤¤¤ë¥Õ¥¡¥¤¥ëÈÖ¹æ outputlist :¥Õ¥¡¥¤¥ë¤Ë½ÐÎϤ¹¤ë¥Ç¡¼¥¿ ---Îã~ ¥Õ¥¡¥¤¥ë¤Ë¥ì¥³¡¼¥É¥»¥Ã¥È¤Î¡Ö¸ÜµÒID¡×¤È¡Ö»á̾¡×¤ò½ÐÎϤ¹¤ë(¥Õ¥¡¥¤¥ëÈÖ¹æ¤Ï1) Write #1, recordset!¸ÜµÒID, recordset!»á̾ -Close¥¹¥Æ¡¼¥È¥á¥ó¥È~ ¥Õ¥¡¥¤¥ë¤òÊĤ¸¤ë½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£ --½ñ¼° Close #filenumber finenumber :³«¤¤¤Æ¤¤¤ë¥Õ¥¡¥¤¥ëÈÖ¹æ ---Îã~ ¥Õ¥¡¥¤¥ë¤òÊĤ¸¤ë(¥Õ¥¡¥¤¥ëÈÖ¹æ¤Ï1) Close #1
¥Æ¥¥¹¥ÈÀ°·Á¤Î¥ë¡¼¥ë¤òɽ¼¨¤¹¤ë
¥í¥°¥¤¥ó¤Þ¤¿¤Ï¥¢¥«¥¦¥ó¥ÈºîÀ®