\u30b3\u30f3\u30dc\u30dc\u30c3\u30af\u30b9\u3067\u30b9\u30c6\u30fc\u30b8\u3092\u9078\u629e\u3057\u305f\u6642\u306e\u51e6\u7406\u3067\u3059\u3002
\n\u6642\u9593\u5236\u9650\u304c\u3042\u308b\u5834\u5408\u306e\u51e6\u7406\u304c\u6700\u521d\u306b\u5165\u308a\u307e\u3059\u304c\u3001\u3053\u308c\u306f\u5f8c\u306b\u3057\u307e\u3059\u3002
\n\u901a\u5e38\u306e\u30e2\u30fc\u30c9\u3092\u793a\u3057\u307e\u3059\u3002
\n\u3053\u306e\u51e6\u7406\u3067\u3001\u5b66\u7fd2\u958b\u59cb\u306e\u6e96\u5099\u304c\u6574\u3044\u307e\u3059\u3002<\/p>\n\n\n
Private Sub com1_AfterUpdate()\n\n'\u5b66\u7fd2\u30e2\u30fc\u30c9\u306b\u3088\u3063\u3066\u7570\u306a\u308b\u51e6\u7406\u3092\u66f8\u304f\u3002\n'\u30bf\u30a4\u30de\u30fc\u306e\u8a2d\u5b9a\u304c\u5fc5\u8981\u306a\u5834\u5408\u306e\u51e6\u7406\u3092\u66f8\u304f\u3002\n\n'\u30b9\u30c6\u30fc\u30b8\u753b\u9762\u306e\u521d\u671f\u5316\n Call all_v_false\n Call all_t_null\n \n'\u30b9\u30c6\u30fc\u30b8\u6bce\u306e\u554f\u984c\u6587\nMe.Txt2 = str1Data(Me.com1 - 1)\n\n'\u6539\u884c\u304c\u3042\u308b\u3068\u753b\u50cf\u6307\u5b9a\u304c\u8907\u96d1\u3068\u306a\u308b\u306e\u3067\u53d6\u308a\u9664\u304f(\u4e00\u6642\u7684\u30c6\u30ad\u30b9\u30c8)\ntmptxt = Replace(Me.Txt2, vbCrLf, \"\")\n\n'\u554f\u984c\u6587\u306e\u9577\u3055\nmlen = Len(Me.Txt2)\n\n'\u6307\u5b9a\u753b\u50cf\u306e\u4f4d\u7f6e\u53d6\u5f97\nimglen = InStr(tmptxt, \"jpg\")\n \n'\u753b\u50cf\u304c\u3042\u308b\u304b\u306a\u3044\u304b\nIf imglen > 0 Then '\u753b\u50cf\u3042\u308a\n \n Me.Timg = upath & Left(tmptxt, imglen + 2) '\u6539\u884c\u306a\u3044\u306e\u3067Left\u3067ok\n imgst = InStr(Me.Txt2, \"jpg\") '\u6539\u884c\u3092\u542b\u3081\u305f\u4f4d\u7f6e(\u554f\u984c\u6587\u7528)\n Me.objImg.Picture = Me.Timg\n \nElse '\u753b\u50cf\u306a\u3057\n \n Me.objImg.Picture = \"\"\n\nEnd If\n\n'as ae\u306e\u4f4d\u7f6e\n aslen = InStr(Me.Txt2, \"as\")\n aelen = InStr(Me.Txt2, \"ae\")\n\n'\u9078\u629e\u80a2\u6587\u5b57\u5217\nIf aslen > 0 Then\n strsentakusi = Replace((Mid(Me.Txt2, aslen + 3, (aelen - aslen - 3))), vbCrLf, \"\")\nEnd If\n \n \n'\u9078\u629e\u80a2\u306e\u62bd\u51fa\u53ca\u3073\u6570\u306e\u53d6\u5f97\nstr2Data = Split(strsentakusi, \",\")\nMe.Tans = UBound(str2Data) + 1\n\n'\u554f\u984c\u6570\u53d6\u5f97(\u554f\u984c\u6587as\u306e\u3042\u3068\u306e1\u6587\u5b57\u304c\u305d\u306e\u6570\u5024)\nmondaisu = Val(Mid(Me.Txt2, aslen + 2, 1))\n\n'\u554f\u984c\u6570\u306b\u5408\u308f\u305b\u305f\u9078\u629e\u80a2\u3001\u89e3\u7b54\u6b04\u306e\u6e96\u5099\u51e6\u7406\u306e\u547c\u3073\u51fa\u3057\nCall set_mon\n\n'\u6b63\u89e3\u3092\u683c\u7d0d\u3059\u308b\n'\u6b63\u89e3\u306f\u3001\u30b7\u30e3\u30c3\u30d5\u30eb\u3059\u308b\u524d\u306e\u9078\u629e\u80a2\u306e\u5148\u982d\u304b\u3089\u554f\u984c\u6570\u306e\u5206\u3060\u3051\u306e\u6587\u5b57\u5217\n For m = 1 To mondaisu\n seikai(m) = str2Data(m - 1)\n Next\n\n'\u9078\u629e\u80a2\u3092\u30b7\u30e3\u30c3\u30d5\u30eb\u3059\u308b\n For i = UBound(str2Data) To 1 Step -1\n P = Int((i + 1) * Rnd)\n buf = str2Data(P)\n str2Data(P) = str2Data(i)\n str2Data(i) = buf\n Next\n \nMe.Tmon = Mid(Me.Txt2, aslen + 2, 1) '\u5909\u6570mondaisu\u3068\u540c\u3058\n\n'\u6700\u7d42\u554f\u984c\u6587\n If aslen > 0 And imgst > 0 Then '\u753b\u50cf\u3042\u308a\u554f\u984c\u6587\n\n Me.Txt3 = Mid(Me.Txt2, imgst + 3, aslen - imgst - 4)\n \n ElseIf aslen = 0 And imgst > 0 Then '\u753b\u50cf\u3042\u308a\u8aac\u660e\u6587\n\n Me.Txt3 = Mid(Me.Txt2, imgst + 3)\n \n ElseIf aslen > 0 And imgst = 0 Then '\u753b\u50cf\u306a\u3057\u554f\u984c\u6587\n\n Me.Txt3 = Mid(Me.Txt2, 1, aslen - 1)\n \n Else\n\n Me.Txt3 = Me.Txt2 '\u753b\u50cf\u306a\u3057\u8aac\u660e\u6587\n\n End If\n \n'\u9078\u629e\u80a2\u306e\u8868\u793a\n For j = 1 To Me.Tans\n\n Me.Controls(\"Tsentakusi\" & j) = str2Data(j - 1)\n Me.Controls(\"Tsentakusi\" & j).Visible = True\n Me.Controls(\"Tsentakusi\" & j).Enabled = True\n\n Next\n\nEnd Sub\n<\/pre>\n\u00a0<\/p>\n\n\n
\u6b21\u56de\u4ee5\u964d\u3001\u5b66\u7fd2\u8005\u304c\u89e3\u7b54\u3057\u305f\u3068\u304d\u306e\u51e6\u7406\u3084\u6b63\u8aa4\u5224\u5b9a\u306e\u51e6\u7406\u3078\u3068\u9032\u307f\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u30b3\u30f3\u30dc\u30dc\u30c3\u30af\u30b9\u3067\u30b9\u30c6\u30fc\u30b8\u3092\u9078\u629e\u3057\u305f\u6642\u306e\u51e6\u7406\u3067\u3059\u3002 \u6642\u9593\u5236\u9650\u304c\u3042\u308b\u5834\u5408\u306e\u51e6\u7406\u304c\u6700\u521d\u306b\u5165\u308a\u307e\u3059\u304c\u3001\u3053\u308c\u306f\u5f8c\u306b\u3057\u307e\u3059\u3002 \u901a\u5e38\u306e… read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":110,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3,16],"tags":[5,7,12],"_links":{"self":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/398"}],"collection":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=398"}],"version-history":[{"count":4,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/398\/revisions"}],"predecessor-version":[{"id":406,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/398\/revisions\/406"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/media\/110"}],"wp:attachment":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=398"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=398"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=398"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}