{"id":5108,"date":"2012-06-05T01:21:05","date_gmt":"2012-06-04T16:21:05","guid":{"rendered":"http:\/\/vicpress.dip.jp\/?p=5108"},"modified":"2012-06-05T01:21:33","modified_gmt":"2012-06-04T16:21:33","slug":"acces2007%e3%81%ae%e3%83%95%e3%82%a9%e3%83%bc%e3%83%a0%e3%81%a7%e3%83%81%e3%82%a7%e3%83%83%e3%82%af%e3%83%9c%e3%83%83%e3%82%af%e3%82%b9%e3%82%92%e8%87%aa%e5%8b%95%e7%9a%84%e3%81%aboff%e3%82%8b","status":"publish","type":"post","link":"https:\/\/vicpress.net\/?p=5108","title":{"rendered":"ACCES2007\u306e\u30d5\u30a9\u30fc\u30e0\u3067\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u3092\u81ea\u52d5\u7684\u306bOFF\u308bVBA"},"content":{"rendered":"<p>\u3000<\/p>\n<p>ACCESS\u306e\u30d5\u30a9\u30fc\u30e0\u3067\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306b\u62bd\u51fa\u3057\u305f\u30c7\u30fc\u30bf\u306e\u4e2d\u304b\u3089\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u306b\u30c1\u30a7\u30c3\u30af\u3057\u305f\u884c\u3060\u3051\u3092\u5370\u5237\uff08\u30d7\u30ec\u30d3\u30e5\u30fc\u8868\u793a\uff09\u3057\u3001\u305d\u306e\u5f8c\u30c1\u30a7\u30c3\u30af\u3092\u81ea\u52d5\u7684\u306bOFF\u306b\u3059\u308bVBA\u306a\u3093\u3067\u3059\u304c\u3001\u3001<\/p>\n<p>ACCESS2003\u3067\u52d5\u4f5c\u3057\u3066\u3044\u305fVBA\u304cACCESS2007\u4ee5\u964d\u3067\u306f\u6b63\u5e38\u306b\u52d5\u4f5c\u3057\u306a\u3044\u3053\u3068\u304c\u5206\u304b\u308a\u307e\u3057\u305f\u3002<\/p>\n<p>ACCESS2003\u3067\u4f5c\u6210\u3057\u305fVBA\u306f\u3001\u3001<\/p>\n<p>&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8211;<\/p>\n<p>DoCmd.OpenReport &#8220;\u30ec\u30dd\u30fc\u30c8\u540d&#8221;, acViewPreview<\/p>\n<p>Dim j As Integer<br \/>\nDim i As Integer<\/p>\n<p>j = Me!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form.RecordsetClone.RecordCount<\/p>\n<p>Me!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form.Recordset.MoveFirst<br \/>\nMe!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form!&#8221;\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u540d&#8221; = 0<\/p>\n<p>For i = 1 To j &#8211; 1<\/p>\n<p>Me!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form.Recordset.MoveNext<br \/>\nMe!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form!&#8221;\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u540d&#8221; = 0<\/p>\n<p>Next i<\/p>\n<p>Me!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form.Recordset.MoveFirst<\/p>\n<p>&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8211;<\/p>\n<p>\u30ec\u30dd\u30fc\u30c8\u3092\u30d7\u30ec\u30d3\u30e5\u30fc\u8868\u793a\u3057\u305f\u5f8c\u3001<br \/>\n\u307e\u305a\u3001\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306b\u62bd\u51fa\u3055\u308c\u305f\u884c\u6570\u3092\u30ab\u30a6\u30f3\u30c8\u3002<br \/>\n1\u884c\u76ee\u306b\u79fb\u52d5\u3057\u3066\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u3092OFF\uff080\uff09\u306b\u3002<br \/>\n\u6b21\u306e\u884c\u306b\u79fb\u52d5\u3057\u3066\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u3092OFF\uff080\uff09\u306b\u3002<br \/>\n\u3053\u308c\u3092\u30ab\u30a6\u30f3\u30c8\u3057\u305f\u884c\u6570-1\u56de\u7e70\u308a\u8fd4\u3059\u3002<br \/>\n\u6700\u5f8c\u306b1\u884c\u76ee\u306b\u623b\u3063\u3066\u7d42\u4e86\u3002<\/p>\n<p>\u3068\u8a00\u3046\u5358\u7d14\u306a\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3059\u3002<\/p>\n<p>ACCESS2003\u3067\u306f\u3053\u308c\u3067\u30c1\u30e3\u30f3\u3068\u52d5\u3044\u3066\u3044\u305f\u3093\u3067\u3059\u304c\u3001\u5148\u65e5OFFICE\u30922003\u304b\u30892007\u306b\u30d0\u30fc\u30b8\u30e7\u30f3\u30a2\u30c3\u30d7\u3057\u305f\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u5148\u304b\u3089\u3001\u6700\u8fd1\u30c1\u30a7\u30c3\u30af\u304cOFF\u306b\u306a\u3089\u306a\u3044\u3053\u3068\u304c\u3042\u308b\u3068\u8a00\u308f\u308c\u3001\u3044\u308d\u3044\u308d\u8abf\u3079\u305f\u7d50\u679c\u3001\u3001<\/p>\n<p>1\u884c\u76ee\u304b\u3089\u9023\u7d9a\u3057\u3066\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u305f\u5834\u5408\u306f\u6b63\u5e38\u306bOFF\u306b\u306a\u308b\u304c\u30012\u884c\u76ee\u4ee5\u964d\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u305f\u5834\u5408\u30841\u884c\u76ee\u30683\u884c\u76ee\u306e\u3088\u3046\u306b\u884c\u304c\u98db\u3093\u3060\u5834\u5408\u3001\u30c1\u30a7\u30c3\u30afOFF\u306b\u306a\u3089\u306a\u3044\u3053\u3068\u304c\u5206\u304b\u308a\u307e\u3057\u305f\u3002<\/p>\n<p>\u3064\u307e\u308a\u3001ACCESS2007\u4ee5\u964d\u3067\u306f\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u304cOFF\u306b\u306a\u3063\u3066\u3044\u308b\u884c\u304c\u3042\u308b\u3068\u305d\u3053\u3067\u6b62\u307e\u3063\u3066\u3057\u307e\u3046\u3063\u3066\u3053\u3068\u3067\u3059\u3002<\/p>\n<p>\u305d\u308c\u306a\u3089\u3001\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u304cOFF\uff080\uff09\u3060\u3063\u305f\u3089\u305d\u306e\u884c\u3092\u98db\u3070\u3057\u3061\u3083\u3048\u3070\u30a4\u30a4\u3093\u3058\u3083\u306d\uff01\uff1f<\/p>\n<p>\u3063\u3066\u3053\u3068\u3067\u3001\u3053\u3093\u306a\u611f\u3058\u3067\u66f8\u304d\u76f4\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n<p>&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8211;<\/p>\n<p>DoCmd.OpenReport &#8220;\u30ec\u30dd\u30fc\u30c8\u540d&#8221;, acPreview<\/p>\n<p>Dim j As Integer<br \/>\nDim i As Integer<\/p>\n<p>j = Me!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form.RecordsetClone.RecordCount<\/p>\n<p>Me!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form.Recordset.MoveFirst<br \/>\nIf Me!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form!&#8221;\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u540d&#8221; = -1 Then<br \/>\nMe!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form!&#8221;\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u540d&#8221; = 0<br \/>\nEnd If<\/p>\n<p>For i = 1 To j &#8211; 1<\/p>\n<p>Me!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form.Recordset.MoveNext<br \/>\nIf Me!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form!&#8221;\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u540d&#8221; = -1 Then<br \/>\nMe!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form!&#8221;\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u540d&#8221; = 0<br \/>\nEnd If<\/p>\n<p>Next i<\/p>\n<p>Me!&#8221;\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u540d&#8221;.Form.Recordset.MoveFirst<\/p>\n<p>&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8211;<\/p>\n<p>\u30d7\u30ed\u30b0\u30e9\u30e0\u7684\u306b\u3069\uff5e\u306a\u306e\uff1f\u3063\u3066\u6c17\u3082\u3057\u307e\u3059\u304c\u3001\u3001\uff57\u3000\u3053\u308c\u3067\u30d0\u30c3\u30c1\u30ea\u52d5\u4f5c\u3057\u3066\u304f\u308c\u307e\u3057\u305f\u3002<\/p>\n<p>\u2026\u3068\u306b\u304b\u304f\u52d5\u3051\u3070OK\u3063\u3066\u3053\u3068\u3067\u3002\u3002\uff57<\/p>\n<p>OFFICE2003\u304b\u30892007\u306b\u5909\u3048\u305f\u3068\u304d\u306b\u3001\u3051\u3063\u3053\u3046\u4e0d\u5177\u5408\u306e\u30c1\u30a7\u30c3\u30af\u3092\u3057\u305f\u3093\u3067\u3059\u304c\u3001\u3053\u3093\u306a\u3068\u3053\u308d\u306b\u3082\u5f71\u97ff\u304c\u51fa\u3066\u305f\u3068\u306f\u3002\u3002<\/p>\n<p>\u3000<\/p>\n<p>\u3000<\/p>\n<aside class=\"row veu_insertAds after\"><div class=\"col-md-12\"><script data-ad-client=\"ca-pub-1123445179682316\" async src=\"https:\/\/pagead2.googlesyndication.com\/pagead\/js\/adsbygoogle.js\"><\/script><\/div><\/aside><div class=\"veu_socialSet veu_socialSet-position-after veu_contentAddSection\"><script>window.twttr=(function(d,s,id){var js,fjs=d.getElementsByTagName(s)[0],t=window.twttr||{};if(d.getElementById(id))return t;js=d.createElement(s);js.id=id;js.src=\"https:\/\/platform.twitter.com\/widgets.js\";fjs.parentNode.insertBefore(js,fjs);t._e=[];t.ready=function(f){t._e.push(f);};return t;}(document,\"script\",\"twitter-wjs\"));<\/script><ul><li class=\"sb_facebook sb_icon\"><a class=\"sb_icon_inner\" href=\"\/\/www.facebook.com\/sharer.php?src=bm&u=https%3A%2F%2Fvicpress.net%2F%3Fp%3D5108&amp;t=VICPRESS\" target=\"_blank\" onclick=\"window.open(this.href,'FBwindow','width=650,height=450,menubar=no,toolbar=no,scrollbars=yes');return false;\"><span class=\"vk_icon_w_r_sns_fb icon_sns\"><\/span><span class=\"sns_txt\">Facebook<\/span><span class=\"veu_count_sns_fb\"><\/span><\/a><\/li><li class=\"sb_twitter sb_icon\"><a class=\"sb_icon_inner\" href=\"\/\/twitter.com\/intent\/tweet?url=https%3A%2F%2Fvicpress.net%2F%3Fp%3D5108&amp;text=VICPRESS\" target=\"_blank\" ><span class=\"vk_icon_w_r_sns_twitter icon_sns\"><\/span><span class=\"sns_txt\">twitter<\/span><\/a><\/li><li class=\"sb_hatena sb_icon\"><a class=\"sb_icon_inner\" href=\"\/\/b.hatena.ne.jp\/add?mode=confirm&url=https%3A%2F%2Fvicpress.net%2F%3Fp%3D5108&amp;title=VICPRESS\" target=\"_blank\"  onclick=\"window.open(this.href,'Hatenawindow','width=650,height=450,menubar=no,toolbar=no,scrollbars=yes');return false;\"><span class=\"vk_icon_w_r_sns_hatena icon_sns\"><\/span><span class=\"sns_txt\">Hatena<\/span><span class=\"veu_count_sns_hb\"><\/span><\/a><\/li><li class=\"sb_pocket sb_icon\"><a class=\"sb_icon_inner\"  href=\"\/\/getpocket.com\/edit?url=https%3A%2F%2Fvicpress.net%2F%3Fp%3D5108&title=VICPRESS\" target=\"_blank\"  onclick=\"window.open(this.href,'Pokcetwindow','width=650,height=450,menubar=no,toolbar=no,scrollbars=yes');return false;\"><span class=\"vk_icon_w_r_sns_pocket icon_sns\"><\/span><span class=\"sns_txt\">Pocket<\/span><span class=\"veu_count_sns_pocket\"><\/span><\/a><\/li><li class=\"sb_copy sb_icon\"><button class=\"copy-button sb_icon_inner\"data-clipboard-text=\"VICPRESS https:\/\/vicpress.net\/?p=5108\"><span class=\"vk_icon_w_r_sns_copy icon_sns\"><i class=\"fas fa-copy\"><\/i><\/span><span class=\"sns_txt\">Copy<\/span><\/button><\/li><\/ul><\/div><!-- [ \/.socialSet ] -->","protected":false},"excerpt":{"rendered":"<p>\u3000 ACCESS\u306e\u30d5\u30a9\u30fc\u30e0\u3067\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306b\u62bd\u51fa\u3057\u305f\u30c7\u30fc\u30bf\u306e\u4e2d\u304b\u3089\u30c1\u30a7\u30c3\u30af\u30dc\u30c3\u30af\u30b9\u306b\u30c1\u30a7\u30c3\u30af\u3057\u305f\u884c\u3060\u3051\u3092\u5370\u5237\uff08\u30d7\u30ec\u30d3\u30e5\u30fc\u8868\u793a\uff09\u3057\u3001\u305d\u306e\u5f8c\u30c1\u30a7\u30c3\u30af\u3092\u81ea\u52d5\u7684\u306bOFF\u306b\u3059\u308bVBA\u306a\u3093\u3067\u3059\u304c\u3001\u3001 ACCESS2003\u3067\u52d5\u4f5c\u3057\u3066\u3044\u305f [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_exactmetrics_skip_tracking":false,"_exactmetrics_sitenote_active":false,"_exactmetrics_sitenote_note":"","_exactmetrics_sitenote_category":0,"footnotes":"","vkexunit_cta_each_option":""},"categories":[5],"tags":[],"_links":{"self":[{"href":"https:\/\/vicpress.net\/index.php?rest_route=\/wp\/v2\/posts\/5108"}],"collection":[{"href":"https:\/\/vicpress.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/vicpress.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/vicpress.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/vicpress.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5108"}],"version-history":[{"count":2,"href":"https:\/\/vicpress.net\/index.php?rest_route=\/wp\/v2\/posts\/5108\/revisions"}],"predecessor-version":[{"id":5110,"href":"https:\/\/vicpress.net\/index.php?rest_route=\/wp\/v2\/posts\/5108\/revisions\/5110"}],"wp:attachment":[{"href":"https:\/\/vicpress.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5108"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/vicpress.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5108"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/vicpress.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5108"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}