{"id":1468,"date":"2013-01-11T21:08:10","date_gmt":"2013-01-11T12:08:10","guid":{"rendered":"http:\/\/wp.kaz.bz\/tech\/?p=1468"},"modified":"2013-01-11T21:10:36","modified_gmt":"2013-01-11T12:10:36","slug":"access-vba%ef%bc%9a-64bit-%e3%81%a7%e3%82%82-32bit-%e3%81%a7%e3%82%82dao%e3%82%92%e5%8b%95%e3%81%8b%e3%81%99%e6%96%b9%e6%b3%95%ef%bc%88%e6%a4%9c%e8%a8%bc%e4%b8%ad%ef%bc%89%e3%80%82","status":"publish","type":"post","link":"https:\/\/wp.kaz.bz\/tech\/2013\/01\/11\/1468.html","title":{"rendered":"Access VBA\uff1a 64bit \u3067\u3082 32bit \u3067\u3082DAO\u3092\u52d5\u304b\u3059\u65b9\u6cd5\uff08\u691c\u8a3c\u4e2d\uff09\u3002"},"content":{"rendered":"<p>Access2010 \u4ee5\u964d\u3001DAO\u306e\u6a19\u6e96\u30e9\u30a4\u30d6\u30e9\u30ea\u304c \"Microsoft Office 14.0 Access database engine Object Library\" \u3068\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n<p>\u3053\u308c\u306b\u3088\u308a\u3001Access2010 \u3067\u4f5c\u6210\u3057\u305fDAO\u3092\u5229\u7528\u3057\u305fAccessVBA\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u304c\u30012010\u3088\u308a\u53e4\u3044\u30d0\u30fc\u30b8\u30e7\u30f3\u3067\u52d5\u304b\u306a\u304f\u306a\u308b\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002<br \/>\n\"Microsoft Office 14.0 Access database engine Object Library\" \u306e\u4ee3\u308f\u308a\u306b \"Microsoft DAO 3.6 Object Library\" \u3092\u53c2\u7167\u8a2d\u5b9a\u3067\u6307\u5b9a\u3059\u308c\u3070\u65e7\u30d0\u30fc\u30b8\u30e7\u30f3\u3067\u306e\u52d5\u4f5c\u306f\u53ef\u80fd\u3067\u3059\u304c\u3001\u4eca\u5ea6\u306fAccess2010 64bit \u7248\u3067\u52d5\u304b\u306a\u304f\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\u203b\"Microsoft DAO 3.6 Object Library\" \u304c64bit\u3067\u52d5\u304b\u306a\u3044\u305f\u3081\u3002<\/p>\n<p>\u3044\u308d\u3044\u308d\u60a9\u3093\u3067\u3001\u3072\u3068\u307e\u305a\u3001\u6761\u4ef6\u4ed8\u304d\u30b3\u30f3\u30d1\u30a4\u30eb\u3092\u5229\u7528\u3057\u3066\u8d77\u52d5\u6642\u306b\u52d5\u7684\u306b\u53c2\u7167\u8a2d\u5b9a\u3092\u884c\u3046\u3053\u3068\u3067\u89e3\u6d88\u3057\u3066\u307f\u307e\u3057\u305f\u3002<br \/>\n\u540c\u3058\u30d5\u30a1\u30a4\u30eb\u3092\u8907\u6570\u306e\u74b0\u5883\u3067\u5b9f\u884c\u3057\u305f\u5834\u5408\u3092\u8003\u3048\u3001\u5b9f\u969b\u306b\u306f\u8d77\u52d5\u6642\u306b<\/p>\n<ul>\n<li>\u4e00\u5ea6 DAO \u306b\u5bfe\u3059\u308b\u53c2\u7167\u8a2d\u5b9a\u3092\u5916\u3059<\/li>\n<li>\u6539\u3081\u3066\u3001\u74b0\u5883\u306b\u5408\u308f\u305b\u3066\u53c2\u7167\u8a2d\u5b9a\u3092\u3059\u308b<\/li>\n<\/ul>\n<p>\u3088\u3046\u306b\u8003\u3048\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n<p>Access2010 \u304b\u3089\u306f\u6761\u4ef6\u4ed8\u304d\u30b3\u30f3\u30d1\u30a4\u30eb\u306b\u5229\u7528\u3067\u304d\u308b\u5b9a\u6570\u3068\u3057\u3066\u3001<\/p>\n<ul>\n<li>VBA7 \uff1aVBA\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u304cVBA7\u306a\u3089True<\/li>\n<li>Win64 \uff1a\u5b9f\u884c\u74b0\u5883\u304c64bit\u306a\u3089True\uff08\u5b9f\u969b\u306b\u306fOS\u3067\u306f\u306a\u304fOffice\u306ebit\u306e\u6a21\u69d8\uff09<\/li>\n<\/ul>\n<p>\u304c\u5c0e\u5165\u3055\u308c\u3066\u3044\u308b\u306e\u3067\u3001\u305d\u308c\u3092\u5229\u7528\u3057\u307e\u3059\u3002<br \/>\n\u305f\u3060\u3001\u52c9\u5f37\u4e0d\u8db3\u3067\u5f93\u6765\u306eDAO\u304c\u52d5\u304f\u74b0\u5883\u3092\u53b3\u5bc6\u306b\u306f\u7279\u5b9a\u3067\u304d\u3066\u3044\u306a\u3044\u305f\u3081\u3001<\/p>\n<ul>\n<li>VBA7\u304b\u306464bit\u74b0\u5883\u306a\u3089\"Microsoft Office 14.0 Access database engine Object Library\"<\/li>\n<li>\u305d\u308c\u4ee5\u5916\u306a\u3089\u5f93\u6765\u306eDAO3.6\u3092\u53c2\u7167\u8a2d\u5b9a\u3057\u3066\u307f\u3066\u3001\u30a8\u30e9\u30fc\u306a\u3089 \"Microsoft Office 14.0 Access database engine Object Library\"\u3092\u53c2\u7167<\/li>\n<\/ul>\n<p>\u3068\u3057\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"brush:vb\">\r\nOption Compare Database\r\nOption Explicit\r\n\r\n' \u8d77\u52d5\u6642\u306b\u3053\u308c\u3092\u5b9f\u884c\uff08\u8d77\u52d5\u6642\u306b\u958b\u304f\u30d5\u30a9\u30fc\u30e0\u306e Load \u30a4\u30d9\u30f3\u30c8\u306a\u3069\u304b\u3089\u5b9f\u884c\u3059\u308b\uff09\r\nSub chk_dao_ref()\r\n    ' \u53c2\u7167\u8a2d\u5b9a\u3092\u5916\u3059\r\n    remove_dao\r\n\r\n' \u6761\u4ef6\u4ed8\u304d\u30b3\u30f3\u30d1\u30a4\u30eb\r\n#If VBA7 And Win64 Then    ' VBA7 and 64bit \u306e\u5834\u5408\r\n    set_acedao\r\n#Else\r\n    set_dao36\r\n#End If\r\n    \r\nEnd Sub\r\n\r\n\r\n' \u3072\u3068\u307e\u305a\u65e2\u306b\u3042\u308bDAO\u306e\u53c2\u7167\u8a2d\u5b9a\u3092\u89e3\u9664\r\nPrivate Sub remove_dao()\r\n    On Error Resume Next\r\n    References.Remove References.Item(\"DAO\")\r\n    On Error GoTo 0\r\nEnd Sub\r\n\r\n\r\n' ACEDAO\uff082010 64bit \u7528DAO\uff09 \u306e\u53c2\u7167\u8a2d\u5b9a\r\nPrivate Sub set_acedao()\r\n    Dim Ref As Reference\r\n    \r\n    Set Ref = References.AddFromGuid(\"{4AC9E1DA-5BAD-4AC7-86E3-24F4CDCECA28}\", 12, 0)\r\n    Set Ref = Nothing\r\nEnd Sub\r\n\r\n' DAO3.6\uff08\u5f93\u6765\u306eDAO\uff09 \u306e\u53c2\u7167\u8a2d\u5b9a\r\nPrivate Sub set_dao36()\r\n    Dim Ref As Reference\r\n    \r\n    On Error Resume Next\r\n        Set Ref = References.AddFromGuid(\"{00025E01-0000-0000-C000-000000000046}\", 5, 0)\r\n        Set Ref = Nothing\r\n\r\n        If Len(Err.Description) > 0 Then set_acedao\r\n    On Error GoTo 0\r\nEnd Sub\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Access2010 \u4ee5\u964d\u3001DAO\u306e\u6a19\u6e96\u30e9\u30a4\u30d6\u30e9\u30ea\u304c \"Microsoft Office 14.0 Access database engine Object Library\" \u3068\u306a\u308a\u307e\u3057\u305f\u3002 \u3053\u308c\u306b\u3088\u308a\u3001Access2 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[5],"tags":[],"class_list":["post-1468","post","type-post","status-publish","format-standard","hentry","category-vba_asp_etc"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack-related-posts":[{"id":839,"url":"https:\/\/wp.kaz.bz\/tech\/2011\/05\/19\/839.html","url_meta":{"origin":1468,"position":0},"title":"VBA\u304b\u3089\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u4fdd\u5b58\uff08\u6587\u5b57\u5217\uff09\u3002","author":"kaz. Suenaga","date":"2011\/05\/19","format":false,"excerpt":"VBA\u3067\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u5229\u7528\u306e\u30b9\u30cb\u30da\u30c3\u30c8\u3002 Microsoft Forms 2.0 Object Li\u2026","rel":"","context":"VBA\uff0fASP\u306a\u3069","block_context":{"text":"VBA\uff0fASP\u306a\u3069","link":"https:\/\/wp.kaz.bz\/tech\/category\/langs\/vba_asp_etc"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":7,"url":"https:\/\/wp.kaz.bz\/tech\/2009\/09\/29\/7.html","url_meta":{"origin":1468,"position":1},"title":"favicon \u5468\u308a\u3002","author":"kaz. Suenaga","date":"2009\/09\/29","format":false,"excerpt":"\u25a0\u753b\u50cf\u5f62\u5f0f \u3000.ico \u5f62\u5f0f\u306e\u753b\u50cf\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3001\u89e3\u50cf\u5ea6\u306f \u3000\u3000\u30fb 16 x 16\uff08\u5fc5\u9808\uff09 \u3000\u3000\u30fb 3\u2026","rel":"","context":"Web\u7cfb","block_context":{"text":"Web\u7cfb","link":"https:\/\/wp.kaz.bz\/tech\/category\/web"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1400,"url":"https:\/\/wp.kaz.bz\/tech\/2012\/10\/29\/1400.html","url_meta":{"origin":1468,"position":2},"title":"\u3010\u8a73\u7d30\u672a\u8abf\u67fb\u3011Access2010\u3067\u30a4\u30f3\u30dd\u30fc\u30c8\u6642\u306b ExecuteTempImexSepec \u30a8\u30e9\u30fc\u3002","author":"kaz. Suenaga","date":"2012\/10\/29","format":false,"excerpt":"Access2010\u3067\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u30c7\u30fc\u30bf\u30a4\u30f3\u30dd\u30fc\u30c8\u6a5f\u80fd\u3092\u4f7f\u3063\u305f\u969b\u306b \u300c'ExecuteTemp\u2026","rel":"","context":"MS-Office","block_context":{"text":"MS-Office","link":"https:\/\/wp.kaz.bz\/tech\/category\/windows\/desktop\/ms-office"},"img":{"alt_text":"\u30a8\u30e9\u30fc\u300c'ExecuteTempImexSpec'\u30e1\u30bd\u30c3\u30c9\u306f\u5931\u6557\u3057\u307e\u3057\u305f:'_WizHook'\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d","src":"https:\/\/i0.wp.com\/s3.kaz.bz\/tech\/wp-content\/uploads\/2012\/10\/err-ExecuteTempImexSpec.png?resize=350%2C200","width":350,"height":200},"classes":[]},{"id":81,"url":"https:\/\/wp.kaz.bz\/tech\/2006\/11\/27\/81.html","url_meta":{"origin":1468,"position":3},"title":"ADO\u3067\u306eSQL\u30a8\u30b9\u30b1\u30fc\u30d7\uff08\u30ef\u30a4\u30eb\u30c9\u30ab\u30fc\u30c9\uff09","author":"kaz. Suenaga","date":"2006\/11\/27","format":false,"excerpt":"Access\u3067ADO\u3092\u901a\u3058\u3066SQL\u3092\u5b9f\u884c\u3059\u308b\u969b\u306e\u30ef\u30a4\u30eb\u30c9\u30ab\u30fc\u30c9\u306f \u3000\u3000* \u2192 % \u3000\u3000? \u2192 _ \u30a8\u2026","rel":"","context":"VBA\uff0fASP\u306a\u3069","block_context":{"text":"VBA\uff0fASP\u306a\u3069","link":"https:\/\/wp.kaz.bz\/tech\/category\/langs\/vba_asp_etc"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":947,"url":"https:\/\/wp.kaz.bz\/tech\/2011\/09\/02\/947.html","url_meta":{"origin":1468,"position":4},"title":"CentOS\u7528 Apache Killer\u5bfe\u7b56\u7248 httpd \u306b\u3064\u3044\u3066\u3002","author":"kaz. Suenaga","date":"2011\/09\/02","format":false,"excerpt":"https:\/\/www.redhat.com\/security\/data\/cve\/CVE-2011-\u2026","rel":"","context":"Apache","block_context":{"text":"Apache","link":"https:\/\/wp.kaz.bz\/tech\/category\/servers\/apache"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":38,"url":"https:\/\/wp.kaz.bz\/tech\/2008\/06\/20\/38.html","url_meta":{"origin":1468,"position":5},"title":"ASP\u306eDCOM\u6a29\u9650\u3002","author":"kaz. Suenaga","date":"2008\/06\/20","format":false,"excerpt":"\u3010\u74b0\u5883\u3011 Windows 2003 Server\u3000\u3001 IIS 6.0 \u3010\u72b6\u6cc1\u3011 ASP\u30bd\u30fc\u30b9\u5185\u306e S\u2026","rel":"","context":"Windows","block_context":{"text":"Windows","link":"https:\/\/wp.kaz.bz\/tech\/category\/windows"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/posts\/1468","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/comments?post=1468"}],"version-history":[{"count":0,"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/posts\/1468\/revisions"}],"wp:attachment":[{"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/media?parent=1468"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/categories?post=1468"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/tags?post=1468"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}