{"id":558,"date":"2019-05-09T08:21:06","date_gmt":"2019-05-09T08:21:06","guid":{"rendered":"http:\/\/mio-web.net\/pcsupport\/?p=558"},"modified":"2019-05-09T08:21:38","modified_gmt":"2019-05-09T08:21:38","slug":"access%e3%80%80%e3%81%a7%e3%80%80openarg-%e3%80%80%e3%82%92%e4%bd%bf%e3%81%86","status":"publish","type":"post","link":"https:\/\/mio-web.net\/pcsupport\/archives\/558\/","title":{"rendered":"ACCESS\u3000\u3067\u3000Openarg s\u3000\u3092\u4f7f\u3046"},"content":{"rendered":"\n<hr class=\"wp-block-separator\"\/>\n\n\n\n<p>Private Sub cmdShow2_Click()<\/p>\n\n\n\n<p>On Error GoTo Err_cmdShow_Click<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Dim stDocName As String\n\nstDocName = \"F\u5fdc\u63f4\u6708\u5831\"<\/code><\/pre>\n\n\n\n<p>Dim Y As Integer<br>\n Dim m As String<br>\n Dim C As String<br>\n Dim Arg As String<\/p>\n\n\n\n<p>Y = Me.\u5e74<br>\nm = Format(Me.\u6708, &#8220;00&#8221;)<br>\nC = Format(Me.\u4f1a\u793eID, &#8220;0000&#8221;)<br>\nArg = Y &amp; m &amp; C<\/p>\n\n\n\n<p>DoCmd.OpenForm stDocName, , , , , , Arg<\/p>\n\n\n\n<p>Exit_cmdShow_Click:<br>\n    Exit Sub<\/p>\n\n\n\n<p>Err_cmdShow_Click:<br>\n    MsgBox err.Description<br>\n    Resume Exit_cmdShow_Click<\/p>\n\n\n\n<p>End Sub<\/p>\n\n\n\n<p>\u958b\u304b\u308c\u308b\u30d5\u30a9\u30fc\u30e0\u306e\u5074<\/p>\n\n\n\n<hr class=\"wp-block-separator\"\/>\n\n\n\n<p>Private Sub Form_Load()<\/p>\n\n\n\n<p>If Not IsNull(Me.OpenArgs) Then<\/p>\n\n\n\n<p>Me.cboNEN = CInt(Left(OpenArgs, 4))<br>\n Me.cboMONTH = CInt(Mid(OpenArgs, 5, 2))<br>\n Me.cboENC = CInt(Right(OpenArgs, 4)) \u2192\u4f1a\u793e\u30b3\u30fc\u30c9\u3068\u3057\u3066ENC\u3092\u4f7f\u7528<br>\n Else<\/p>\n\n\n\n<p>Me.cboNEN = Year(Date)<br>\n Me.cboMONTH = Month(Date)<br>\n Me.cboENC = Null<\/p>\n\n\n\n<p>End If<\/p>\n\n\n\n<p>Me.\u3088\u307f_C = Null<\/p>\n\n\n\n<p>Me.Requery<\/p>\n\n\n\n<p>Me.cmdRef.SetFocus<\/p>\n\n\n\n<p>End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Private Sub cmdShow2_Click() On Error GoTo Err_cmdShow_Click Dim Y As Integer Dim m As String Dim C As String  [&hellip;]<\/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],"tags":[],"class_list":["post-558","post","type-post","status-publish","format-standard","hentry","category-access"],"_links":{"self":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/558","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=558"}],"version-history":[{"count":2,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/558\/revisions"}],"predecessor-version":[{"id":560,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/558\/revisions\/560"}],"wp:attachment":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/media?parent=558"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/categories?post=558"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/tags?post=558"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}