{"id":894,"date":"2021-06-18T07:05:41","date_gmt":"2021-06-18T07:05:41","guid":{"rendered":"https:\/\/mio-web.net\/pcsupport\/?p=894"},"modified":"2021-06-18T07:05:43","modified_gmt":"2021-06-18T07:05:43","slug":"access-vba-%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e5%87%ba%e5%8a%9b%e6%99%82%e3%80%80%e5%90%8c%e5%90%8d%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e4%b8%8a%e6%9b%b8%e7%a2%ba%e8%aa%8d","status":"publish","type":"post","link":"https:\/\/mio-web.net\/pcsupport\/archives\/894\/","title":{"rendered":"Access VBA \u30d5\u30a1\u30a4\u30eb\u51fa\u529b\u6642\u3000\u540c\u540d\u30d5\u30a1\u30a4\u30eb\u4e0a\u66f8\u78ba\u8a8d"},"content":{"rendered":"\n

‘\u30d5\u30a1\u30a4\u30eb\u540d
Dim FName As String<\/p>\n\n\n\n

FName = Me.txtSY & “\u5e74” & Me.txtSM & “\u6708 – ” & Me.txtEY & “\u5e74” & Me.txtEM & “\u6708 \u53d7\u6ce8\u4e00\u89a7”<\/p>\n\n\n\n

Dim ret As String<\/p>\n\n\n\n

ret = MsgBox(“\u6307\u5b9a\u3055\u308c\u305f\u671f\u9593\u306e\u53d7\u6ce8CSV\u30d5\u30a1\u30a4\u30eb\u3092\u51fa\u529b\u3057\u307e\u3059” & vbCrLf & vbCrLf & “\u30d5\u30a1\u30a4\u30eb\u540d\u306f\u300c ” & FName & “.csv \u300d\u3067\u3059”, vbYesNo)<\/p>\n\n\n\n

If ret = vbNo Then ‘\u78ba\u8a8d\u30e1\u30c3\u30bb\u30fc\u30b8<\/p>\n\n\n\n

Exit Sub<\/p>\n\n\n\n

Else<\/p>\n\n\n\n

 '\u8a2d\u5b9a\u30d1\u30b9\n\nDim strFolder As String\nstrFolder = DLookup(\"[\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9]\", \"\u8a2d\u5b9a\")\n\n\nDim FPath As String\nFPath = strFolder & \"\\CSV\u51fa\u529b\\\" & FName & \".csv\"\n\n\n\n    If Dir(FPath) <> \"\" Then    '\u540c\u540d\u30d5\u30a1\u30a4\u30eb\u5b58\u5728\u3000\u4e0a\u66f8\u78ba\u8a8d**********************\n\n      ret = MsgBox(\"\u540c\u3058\u540d\u524d\u306e\u30d5\u30a1\u30a4\u30eb\u304c\u65e2\u306b\u3042\u308a\u307e\u3059\u3002\u4e0a\u66f8\u304d\u3057\u307e\u3059\u304b\uff1f\", vbYesNo + vbQuestion, \"\u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3057\u307e\u3059\")\n\n      If ret = vbNo Then '\u78ba\u8a8d************\n\n        Exit Sub\n\n        Else 'YES\n                    DoCmd.TransferText acExportDelim, , \"Q_\u58f2\u4e0a_CSV\u51fa\u529b\", FPath\n\n                    MsgBox (\"CSV\u30d5\u30a1\u30a4\u30eb\u3092\u51fa\u529b\u3057\u307e\u3057\u305f\u3002\" & vbCrLf & vbCrLf & \"\u4fdd\u5b58\u5148\u306f\u300c CSV\u51fa\u529b \u300d\u30d5\u30a9\u30eb\u30c0\u3067\u3059\u3002\")\n\n       End If        '\u78ba\u8a8d************\n\n    End If '\u540c\u540d\u30d5\u30a1\u30a4\u30eb\u5b58\u5728\u3000\u4e0a\u66f8\u78ba\u8a8d**********************<\/code><\/pre>\n\n\n\n
End If ‘\u78ba\u8a8d\u30e1\u30c3\u30bb\u30fc\u30b8<\/p>\n","protected":false},"excerpt":{"rendered":"
‘\u30d5\u30a1\u30a4\u30eb\u540dDim FName As String FName = Me.txtSY & “\u5e74” & Me.txtSM & “\u6708 – & […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"vkexunit_cta_each_option":"","footnotes":""},"categories":[24,34],"tags":[],"class_list":["post-894","post","type-post","status-publish","format-standard","hentry","category-access","category-vba"],"_links":{"self":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/894","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/comments?post=894"}],"version-history":[{"count":1,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/894\/revisions"}],"predecessor-version":[{"id":895,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/894\/revisions\/895"}],"wp:attachment":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/media?parent=894"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/categories?post=894"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/tags?post=894"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}