{"id":641,"date":"2020-07-30T00:57:40","date_gmt":"2020-07-30T00:57:40","guid":{"rendered":"http:\/\/mio-web.net\/pcsupport\/?p=641"},"modified":"2020-07-30T00:57:40","modified_gmt":"2020-07-30T00:57:40","slug":"access%e3%80%80%e3%82%b5%e3%83%96%e3%83%95%e3%82%a9%e3%83%bc%e3%83%a0%e3%80%80%e8%a1%8c%e6%8c%bf%e5%85%a5%e3%81%97%e3%81%a6%e8%a1%8c%e7%95%aa%e5%8f%b7%e6%8c%af%e3%82%8a%e7%9b%b4%e3%81%99","status":"publish","type":"post","link":"https:\/\/mio-web.net\/pcsupport\/archives\/641\/","title":{"rendered":"ACCESS\u3000\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u3000\u884c\u633f\u5165\u3057\u3066\u884c\u756a\u53f7\u632f\u308a\u76f4\u3059"},"content":{"rendered":"\n

\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u3067\u3001\u4e0b\u306b\u884c\u3092\u633f\u5165\u3057\u305f\u3044\u30ec\u30b3\u30fc\u30c9\u3092\u9078\u629e\u3057\u3066\u300c\u884c\u633f\u5165\u300d\u30dc\u30bf\u30f3\u3092\u62bc\u3057\u305f\u3068\u304d\u306b\u3001\u884c\u304c\u633f\u5165\u3055\u308c\u3066\u3001\u884c\u756a\u53f7\u3092\u4e0a\u304b\u3089\u632f\u308a\u76f4\u3059\u305f\u3081\u306b\u5fc5\u8981\u306a\u30e2\u30b8\u30e5\u30fc\u30eb\u3002<\/p>\n\n\n\n

\u6ce8\u610f\u3059\u3079\u304d\u306f\u3001\u884c\u756a\u53f7\u30d5\u30a3\u30fc\u30eb\u30c9\u3092\u500d\u7cbe\u5ea6\u6d6e\u52d5\u5c0f\u6570\u70b9\u578b\u306b\u3057\u3066\u304a\u304f\u3053\u3068\u3002<\/p>\n\n\n\n

Private Sub Edaban()
Dim rst As Object, \u9023\u756a As Single
Set rst = Me.RecordsetClone
If rst.RecordCount <> 0 Then
\u9023\u756a = 0
rst.MoveFirst
Do Until rst.EOF
\u9023\u756a = \u9023\u756a + 1
rst.Edit
rst![\u884c\u756a] = \u9023\u756a
rst.Update
rst.MoveNext
Loop
End If
rst.Close
Set rst = Nothing
End Sub<\/p>\n\n\n\n

\u25a0\u3000\u547c\u3073\u51fa\u3057\u5143\uff08\u884c\u633f\u5165\u30dc\u30bf\u30f3\uff09<\/p>\n\n\n\n

Private Sub cmdInsertG_Click() ‘\u884c\u633f\u5165<\/p>\n\n\n\n

On Error GoTo Err_cmdend_Click<\/p>\n\n\n\n

If Me.NewRecord = True Then
Beep
MsgBox (“\u65b0\u898f\u30ec\u30b3\u30fc\u30c9\u3067\u306f\u884c\u633f\u5165\u306f\u51fa\u6765\u307e\u305b\u3093”)
Exit Sub
End If<\/p>\n\n\n\n

Dim rs As Object
Dim inno As Double<\/p>\n\n\n\n

Set rs = Me.RecordsetClone
rs.MoveLast
inno = Me.CurrentRecord + 0.01<\/p>\n\n\n\n

rs.AddNew<\/p>\n\n\n\n

rs![\u5e74] = Parent!cboNEN
rs![\u6708] = Parent!cboMONTH
rs![\u4f1a\u793eC] = Parent!cboCOM<\/p>\n\n\n\n

rs![\u884c\u756a] = inno<\/p>\n\n\n\n

rs.Update
rs.Close
Set rs = Nothing<\/p>\n\n\n\n

DoCmd.Echo False ‘\u753b\u9762\u9077\u79fb\u505c\u6b62<\/p>\n\n\n\n

Dim CR As Long
Me.Painting = False
CR = Me.CurrentRecord
Me.Requery
DoCmd.GoToRecord , , acGoTo, CR + 1
Me.Painting = True<\/p>\n\n\n\n

Call Edaban<\/p>\n\n\n\n

DoCmd.Echo True ‘\u753b\u9762\u9077\u79fb\u518d\u958b<\/p>\n\n\n\n

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

Err_cmdend_Click:
MsgBox err.Description
Resume Exit_cmdend_Click<\/p>\n\n\n\n

End Sub<\/p>\n\n\n\n

<\/p>\n","protected":false},"excerpt":{"rendered":"

\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u3067\u3001\u4e0b\u306b\u884c\u3092\u633f\u5165\u3057\u305f\u3044\u30ec\u30b3\u30fc\u30c9\u3092\u9078\u629e\u3057\u3066\u300c\u884c\u633f\u5165\u300d\u30dc\u30bf\u30f3\u3092\u62bc\u3057\u305f\u3068\u304d\u306b\u3001\u884c\u304c\u633f\u5165\u3055\u308c\u3066\u3001\u884c\u756a\u53f7\u3092\u4e0a\u304b\u3089\u632f\u308a\u76f4\u3059\u305f\u3081\u306b\u5fc5\u8981\u306a\u30e2\u30b8\u30e5\u30fc\u30eb\u3002 \u6ce8\u610f\u3059\u3079\u304d\u306f\u3001\u884c\u756a\u53f7\u30d5\u30a3\u30fc\u30eb\u30c9\u3092\u500d\u7cbe\u5ea6\u6d6e\u52d5\u5c0f\u6570\u70b9\u578b\u306b\u3057\u3066\u304a\u304f\u3053\u3068\u3002 Pr […]<\/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-641","post","type-post","status-publish","format-standard","hentry","category-access"],"_links":{"self":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/641","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=641"}],"version-history":[{"count":1,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/641\/revisions"}],"predecessor-version":[{"id":642,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/641\/revisions\/642"}],"wp:attachment":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/media?parent=641"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/categories?post=641"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/tags?post=641"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}