<?xml version="1.0" encoding="UTF-8" ?>
<rss version="2.0" xmlns:blogChannel="http://backend.userland.com/blogChannelModule" >
  <channel>
  <title>日々徒然模糊綴</title>
  <link>https://co2.blog.shinobi.jp/</link>
  <atom10:link xmlns:atom10="http://www.w3.org/2005/Atom" rel="self" type="application/rss+xml" href="https://co2.blog.shinobi.jp/RSS/" />
  <description>絵とかゲームとか漫画とか小説とか人生哲学とかの雑記帖。</description>
  <lastBuildDate>Tue, 29 Nov 2016 05:57:33 GMT</lastBuildDate>
  <language>ja</language>
  <copyright>© Ninja Tools Inc.</copyright>
  <atom10:link xmlns:atom10="http://www.w3.org/2005/Atom" rel="hub" href="http://pubsubhubbub.appspot.com/" />

    <item>
    <title>【Java/Struts】エラー→ログアウト。エラーを判定したActionでログアウト後用のメッセージを付けたい。</title>
    <description>
    <![CDATA[お久しぶりのブログ更新です。Javaにスキルチェンジなう。今回はその勉強中の覚書です。<br />
<br />
***<br />
<br />
前提として、このActionは、session.invalidate()するのが主な目的です。<br />
リダイレクトは、リクエストを引き継がないし、session.invalidate()しちゃったら、引き継ぐためのメモリがなくなっちまうし、どうしようってなもんです。<br />
<br />
ログアウトすべきエラーを各Actionでキャッチしたら、LogoutActionのインスタンスを紐づけたログアウト用のアクションに、リダイレクトするようにしています。<br />
<br />
リダイレクト手前で、ログアウト後のページに表示したいエラーをsaveErrors(session, errors)してます。<br />
<br />
そうすると、session.getAttribute("org.apache.struts.action.ERROR")で、そのエラーが取り出せるって寸法です。getAttributeNames属性で、それっぽいのを使っただけです。<br />
<br />
LogoutAction.java（パッケージ名は適当）<blockquote><br />
import jp.suppa.co2;<br />
<br />
import javax.servlet.http.*;<br />
import org.apache.struts.action.*;<br />
<br />
public class LogoutAction extends Action {<br />
// メッセージID（「ログアウトしました」）<br />
private static final String MESSAGE_ID = "message.XXX";<br />
<br />
@Override<br />
public ActionForward execute(ActionMapping mapping,<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ActionForm form,<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;HttpServletRequest request,<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;HttpServletResponse response)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;throws Exception {<br />
<br />
&nbsp; &nbsp; /*<br />
&nbsp; &nbsp;&nbsp;* 別ページでセッションに保存されたメッセージを取り出し、<br />
&nbsp; &nbsp;&nbsp;* リクエストに保存しなおす。<br />
&nbsp; &nbsp;&nbsp;*/<br />
&nbsp; &nbsp;&nbsp;HttpSession session = request.getSession();<br />
&nbsp; &nbsp;&nbsp;ActionErrors errors = &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;　　　 &nbsp; &nbsp;&nbsp; &nbsp;&nbsp;(ActionErrors)session.getAttribute("org.apache.struts.action.ERROR"); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 　 &nbsp; &nbsp; &nbsp; saveErrors(request, errors);</blockquote><blockquote><br />
&nbsp; &nbsp; /*<br />
&nbsp; &nbsp;&nbsp;* セッション情報を畳む。<br />
&nbsp; &nbsp;&nbsp;*/<br />
&nbsp; &nbsp;&nbsp;if (session != null) {<br />
&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;session.invalidate();</blockquote><blockquote>&nbsp; &nbsp; }<br />
<br />
&nbsp; &nbsp;&nbsp;/*<br />
&nbsp; &nbsp;&nbsp;* 「ログアウトしました」の文言を付ける<br />
&nbsp; &nbsp;&nbsp;*/<br />
&nbsp; &nbsp;&nbsp;ActionMessages massages = new ActionMessages();<br />
&nbsp; &nbsp;&nbsp;massages.add("massages.logout", new ActionMessage(MESSAGE_ID));<br />
&nbsp; &nbsp;&nbsp;saveMessages(request, massages);<br />
<br />
&nbsp; &nbsp;&nbsp;// ログアウトページへ<br />
&nbsp; &nbsp;&nbsp;return new ActionForward(mapping.getForward());<br />
}<br />
<br />
}</blockquote>]]>
    </description>
    <category>デジものとかプログラムとか</category>
    <link>https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90java-struts%E3%80%91%E3%82%A8%E3%83%A9%E3%83%BC%E2%86%92%E3%83%AD%E3%82%B0%E3%82%A2%E3%82%A6%E3%83%88%E3%80%82%E3%82%A8%E3%83%A9%E3%83%BC</link>
    <pubDate>Tue, 29 Nov 2016 05:57:33 GMT</pubDate>
    <guid isPermaLink="false">co2.blog.shinobi.jp://entry/677</guid>
  </item>
    <item>
    <title>【ExcelVBA】EverNoteのテキストだけノートをテキストファイルにする。</title>
    <description>
    <![CDATA[3月ごろから、テキスト作成環境が、携帯からポメラに移行した。<br />
エバーノートに入っているテキストをポメラに移動させたくなった。<br />
<br />
<img src="//co2.blog.shinobi.jp/File/WS6_000079.JPG" alt="" /> <br />
vba上で、ACSⅱで保存できないものかと思ったのだが、StrConv掛けてももともとSfit-JISだぜとばかりに文字化けするのに、テキストストリームで書きだそうとすると、Unicodeを指定しないとエラーを吐く始末。<br />
<br />
仕方ないので最後の仕上げは手作業になってしまったところが無念である。<br />
<br />
&darr;は空白が飛んでるので、スタイル指定の部分の除去で、StrPtnにセットしている部分は該当行の内容を 貼りなおしてください。<br />
----------------------------<br />
' エバーノートからエクスポートしたフォルダを<br />
' CELL_TARGET_DIR<br />
' に書き込んでから実行<br />
' Write By m_o_co<br />
'要）Microsoft ActiveX Data Objects<br />
Public Sub Go_HtmlToTextCov()<br />
<br />
'========================<br />
' 宣　　言<br />
'========================<br />
' 定数<br />
Const strTgExe As String = ".html"<br />
Const cnvExe As String = ".txt"<br />
<br />
' 変数<br />
Dim strTgDir As String ' ディレクトリ<br />
Dim strBufDir As String<br />
Dim FSO As Object<br />
Dim FLS As Object ' FileSystemObject.Folder.Files<br />
Dim bufFIL As Object<br />
<br />
Dim aTS As Object ' UTF8読み込み用インスタンス<br />
<br />
Dim TS As Object ' TextStream<br />
Dim RE As Object ' RegExp<br />
Dim strBuf As String ' テキスト加工用<br />
Dim strPtn As String ' 検索文字列<br />
<br />
' 対象ディレクトリ<br />
strTgDir = Range("CELL_TARGET_DIR").Value<br />
<br />
' 正規表現準備<br />
'□ 除去 &lt;.*&gt;<br />
strPtn = "&lt;.*&gt;" ' 今回、正規表現は1個なので、先にセットしちゃう<br />
Set RE = CreateObject("VBscript.RegExp")<br />
With RE<br />
.Pattern = strPtn ' 正規表現パターンのセット<br />
.IgnoreCase = True '大/小文字無区別<br />
.Global = True '全体検索<br />
End With<br />
<br />
<br />
' FSO準備<br />
Set FSO = CreateObject("Scripting.FileSystemObject")<br />
Set FLS = FSO.GetFolder(strTgDir).Files<br />
Set aTS = CreateObject("ADODB.Stream")<br />
<br />
' ストリームオプション<br />
With aTS<br />
.Type = adTypeText ' テキスト形式<br />
.Charset = "UTF-8" ' キャラセットを指定<br />
.Open ' インスタンス<br />
End With<br />
<br />
<br />
'========================<br />
' 開　　始<br />
'========================<br />
For Each bufFIL In FLS<br />
<br />
If bufFIL.Type = "Chrome HTML Document" Then<br />
<br />
' 対象テキストをゲット<br />
aTS.LoadFromFile bufFIL.Path<br />
strBuf = aTS.ReadText(adReadAll)<br />
<br />
'■ 置換（改行） &lt;/div&gt; &rarr; vbcrlf<br />
strPtn = "&lt;/div&gt;"<br />
strBuf = Replace(strBuf, strPtn, vbCrLf)<br />
<br />
<br />
'■ 除去 &lt;.*&gt;<br />
' strPtn = "&lt;.*&gt;" ' セット済み<br />
With RE<br />
' .Pattern = strPtn ' 正規表現パターンのセット<br />
strBuf = .Replace(strBuf, "") ' 置換<br />
End With<br />
<br />
<br />
'■ 除去<br />
' body, td {<br />
' font-family: メイリオ;<br />
' font-size: 10pt;<br />
' }<br />
strPtn = " body, td {" &amp; vbCrLf &amp; _<br />
" font-family: メイリオ;" &amp; vbCrLf &amp; _<br />
" font-size: 10pt;" &amp; vbCrLf &amp; _<br />
" }"<br />
<br />
strBuf = Replace(strBuf, strPtn, "")<br />
<br />
' 書き込み<br />
Set TS = FSO.OpenTextFile(Replace(bufFIL.Path, strTgExe, cnvExe), 2, True, -1) ' 書き込み/新規作成する/Unicode<br />
With TS<br />
.Write strBuf<br />
.Close<br />
End With<br />
<br />
Set TS = Nothing<br />
<br />
End If<br />
<br />
Next<br />
<br />
aTS.Close: Set aTS = Nothing<br />
Set bufFIL = Nothing<br />
Set FLS = Nothing<br />
Set RE = Nothing<br />
<br />
End Sub<br />
----------------------------]]>
    </description>
    <category>デジものとかプログラムとか</category>
    <link>https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90excelvba%E3%80%91evernote%E3%81%AE%E3%83%86%E3%82%AD%E3%82%B9%E3%83%88%E3%81%A0%E3%81%91%E3%83%8E</link>
    <pubDate>Sat, 25 Jun 2016 05:08:22 GMT</pubDate>
    <guid isPermaLink="false">co2.blog.shinobi.jp://entry/676</guid>
  </item>
    <item>
    <title>【Access/VBA】データベース上の全てのテーブルの特定のフィールドの特定の値を置換</title>
    <description>
    <![CDATA[自分用。<br />
こんなモジュールに頼らないで済む設計が出来るようになってる筈だけども。<br /><br /><a href="https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90access-vba%E3%80%91%E3%83%87%E3%83%BC%E3%82%BF%E3%83%99%E3%83%BC%E3%82%B9%E4%B8%8A%E3%81%AE%E5%85%A8%E3%81%A6%E3%81%AE%E3%83%86%E3%83%BC%E3%83%96" target="_blank">　</a>]]>
    </description>
    <category>デジものとかプログラムとか</category>
    <link>https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90access-vba%E3%80%91%E3%83%87%E3%83%BC%E3%82%BF%E3%83%99%E3%83%BC%E3%82%B9%E4%B8%8A%E3%81%AE%E5%85%A8%E3%81%A6%E3%81%AE%E3%83%86%E3%83%BC%E3%83%96</link>
    <pubDate>Thu, 25 Dec 2014 00:54:45 GMT</pubDate>
    <guid isPermaLink="false">co2.blog.shinobi.jp://entry/675</guid>
  </item>
    <item>
    <title>【Access/VBA】データベース定義書の素材テーブルを更新する</title>
    <description>
    <![CDATA[自分用。<br />
大した内容じゃないからまた作れるんだけど、そんなの面倒くさいじゃないのさ&hellip;。<br /><br /><a href="https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90access-vba%E3%80%91%E3%83%87%E3%83%BC%E3%82%BF%E3%83%99%E3%83%BC%E3%82%B9%E5%AE%9A%E7%BE%A9%E6%9B%B8%E3%81%AE%E7%B4%A0%E6%9D%90%E3%83%86%E3%83%BC" target="_blank">　</a>]]>
    </description>
    <category>デジものとかプログラムとか</category>
    <link>https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90access-vba%E3%80%91%E3%83%87%E3%83%BC%E3%82%BF%E3%83%99%E3%83%BC%E3%82%B9%E5%AE%9A%E7%BE%A9%E6%9B%B8%E3%81%AE%E7%B4%A0%E6%9D%90%E3%83%86%E3%83%BC</link>
    <pubDate>Thu, 25 Dec 2014 00:48:14 GMT</pubDate>
    <guid isPermaLink="false">co2.blog.shinobi.jp://entry/674</guid>
  </item>
    <item>
    <title>【AccessVBA】ヘボンローマ字変換用パーツ</title>
    <description>
    <![CDATA[これまた自分用。確か、2003で開発。<br />
クラスのなりしてますが、セッターとか諸々不完全で、お見せするのが恥ずかしいんですが。<br />
後ろの方にある、ヘボン式変換のアルゴリズムを作り直すのが激しく面倒なんです&hellip;。<br />
<br />
VERSION 1.0 CLASS<br />
BEGIN<br />
MultiUse = -1 'True<br />
END<br />
Attribute VB_Name = "c_Chg_Hebon"<br />
Attribute VB_GlobalNameSpace = False<br />
Attribute VB_Creatable = False<br />
Attribute VB_PredeclaredId = False<br />
Attribute VB_Exposed = False<br />
Option Compare Database<br />
Option Explicit<br />
'=======================================================<br />
'<br />
'　　　　　　 *** c_Chg_Hebon　　***　by m_o_co<br />
'<br />
'=======================================================<br />
' 渡されたテキストをヘボン式に変換するGet_Hebon_Romaと<br />
' そのヘボン式変換用ライブラリ配列のクラス<br /><br /><a href="https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90accessvba%E3%80%91%E3%83%98%E3%83%9C%E3%83%B3%E3%83%AD%E3%83%BC%E3%83%9E%E5%AD%97%E5%A4%89%E6%8F%9B%E7%94%A8%E3%83%91%E3%83%BC%E3%83%84" target="_blank">つづき→</a>]]>
    </description>
    <category>デジものとかプログラムとか</category>
    <link>https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90accessvba%E3%80%91%E3%83%98%E3%83%9C%E3%83%B3%E3%83%AD%E3%83%BC%E3%83%9E%E5%AD%97%E5%A4%89%E6%8F%9B%E7%94%A8%E3%83%91%E3%83%BC%E3%83%84</link>
    <pubDate>Thu, 25 Dec 2014 00:40:06 GMT</pubDate>
    <guid isPermaLink="false">co2.blog.shinobi.jp://entry/673</guid>
  </item>
    <item>
    <title>【ExcelVBA】ER図のパーツを作る</title>
    <description>
    <![CDATA[自分用。作成は、Office2010。<br />
<br />
コピーするシート上にある元のシェイプグループはこんなん&darr;<br />
テーブル名と、フィールド名と、それを括るものの3つで構成。<br />
<img src="//co2.blog.shinobi.jp/File/WS000138.JPG" alt="" /> <br />
<br />
ターゲットシート（Worksheets("TgtDB")）には、ER図を作りたいテーブルの俗称とフルパスが複数入っていて、そのデータベースの中に、DBのテーブル情報をまとめたテーブル（"C1"）が個々に入っている、という設計です。<br />
<br />
複製したシートの、2行目から、10個ずつ折り返しつつ、ずらずらとテーブルごとにシェイプグループを作ります。雛形が一行目に残りっぱなしですけど、それは後で手で削除します。<br />
<br />
グループはなんか、オブジェクトじゃなくて状態？なのかなんなのか知らないんですけども（の、割にはObjectに入ったけど&hellip;）グループを入れたObjectと、グルーピングしたいシェイプのObjectをつかんでるだけでは、両方を選択することができないらしく&hellip;。<br />
<br />
結局、個別にユニーク名を付けて、名前で選択&rarr;グルーピング、しか、今回手段が見つけられなかった感じです。<br />
'--------------------------------------------------------------------------<br />
' 　　　Write by m_o_co<br />
'--------------------------------------------------------------------------<br />
Option Explicit<br />
<br />
Private Const GRP_NM As String = "Gr_TBL"<br />
Private Const TBL_TTL As String = "R_TBL_Title"<br />
Private Const TBL_FLM As String = "R_TBL_FRAM"<br />
Private Const FLD_NM As String = "R_FLD_NM"<br />
<br />
Private DB As DAO.database<br />
Private RS As DAO.Recordset<br />
<br />
Private WB As Workbook<br />
Private tmpShp As Object<br />
Private wkSht As Worksheet<br />
<br />
Private wkTblNm As String<br />
<br />
Private cRow As Long<br />
Private cClm As Integer<br />
<br />
'--------------------------------------------------------------------------<br />
Public Sub crtErPeace()<br /><br /><a href="https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90excelvba%E3%80%91er%E5%9B%B3%E3%81%AE%E3%83%91%E3%83%BC%E3%83%84%E3%82%92%E4%BD%9C%E3%82%8B" target="_blank">続き→</a>]]>
    </description>
    <category>デジものとかプログラムとか</category>
    <link>https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90excelvba%E3%80%91er%E5%9B%B3%E3%81%AE%E3%83%91%E3%83%BC%E3%83%84%E3%82%92%E4%BD%9C%E3%82%8B</link>
    <pubDate>Wed, 24 Dec 2014 23:52:48 GMT</pubDate>
    <guid isPermaLink="false">co2.blog.shinobi.jp://entry/672</guid>
  </item>
    <item>
    <title>【VBA/Access2010】ProcOfLineプロパティで永ルプった話。</title>
    <description>
    <![CDATA[やられちまったぜTANAKAさん&hellip;！<br />
<br />
CodeModuleのプロパティ<br />
<a href="http://officetanaka.net/excel/vba/vbe/05.htm" title="">http://officetanaka.net/excel/vba/vbe/05.htm</a><br />
<br />
～あらすじ～<br />
<br />
環境毎にフロントファイルを分けたり検証したりしているうちに、ソースのバージョン管理がメタメタになったm_o_coは、各プロシージャの行数を収集するため、VBEオブジェクトという未知の領域に踏み込んだ。そこで永久ループに、はまったのであった。<br />
<br />
<br /><br /><a href="https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90vba-access2010%E3%80%91procofline" target="_blank">　</a>]]>
    </description>
    <category>デジものとかプログラムとか</category>
    <link>https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90vba-access2010%E3%80%91procofline</link>
    <pubDate>Thu, 16 Oct 2014 08:53:43 GMT</pubDate>
    <guid isPermaLink="false">co2.blog.shinobi.jp://entry/671</guid>
  </item>
    <item>
    <title>【Access/VBA】サブフォーム内の任意のレコードに移動する。</title>
    <description>
    <![CDATA[びゃああああ！！！解決してないぞこのスレッド！！<br />
<a href="http://www.accessclub.jp/bbs5/0004/vba797.html" title="サブフォームのカレントレコード移動について" target="_blank">http://www.accessclub.jp/bbs5/0004/vba797.html</a><br />
<br />
うおおお、あきらめてなるものかー！ぐぐるぐぐる<br />
<br />
<a href="http://www.nurs.or.jp/~ppoy/access/access/acF001.html" title="サブフォームの新規レコードに移動する方法　（Ac97,Ac2000,Ac2002）" target="_blank">http://www.nurs.or.jp/~ppoy/access/access/acF001.html</a><br />
<br />
pPoyさんありがとうpPoyさん！！！<br />
（pPoyさんのコードや凡例はいつも超実用的で大変お世話になっております！）<br />
<br />
やりたかったのは、特定のレコード削除後に、その削除レコードの場所から画面を大きく移動させない事。<br />
<br />
Execute "Delete From～"する<br />
　　　①Me.Refreshする　　&rarr;　カーソルは保持できるが、#Deleteの枠が残る<br />
　　　②Me.Requeryする　&rarr;　リクエリーなんで、当然カーソルが先頭に戻る。<br />
<br />
ひぎゃあああ！ヾ(:3ﾉｼ )ﾉｼ<br />
<br />
<br />
サブフォームのステートメントからコールしたかったので、&darr;になりました。<br />
Delete前に、SaveBMして、リクエリー後、MoveBMします。<br />
'------------------------------------------------<br />
Private BM As Variant<br />
<br />
Private Sub SaveBM()<br />
'=========================<br />
'　　　移動先の保持 by m_o_co<br />
'=========================<br />
<br />
On Error GoTo Err_Me<br />
<br />
Forms(Parent.Name).[サブフォーム名].SetFocus<br />
DoCmd.GoToRecord , , acPrevious<br />
BM = Me.Bookmark<br />
DoCmd.GoToRecord , , acNext　　　&rsquo; 後の処理で、カレントレコード前提で組んでるのが一杯あるので戻す。<br />
<br />
No_Err:<br />
<br />
Exit Sub<br />
Err_Me:<br />
<br />
Select Case Err.Number<br />
Case 2105<br />
' 先頭レコードだとエラーになるので。<br />
BM = Null<br />
Resume No_Err<br />
End Select<br />
<br />
End Sub<br />
<br />
Private Sub MoveBM()<br />
'=========================<br />
'　　カーソル移動 by m_o_co<br />
'=========================<br />
<br />
If Not IsNull(BM) Then<br />
Forms(Parent.Name).[サブフォーム名].SetFocus<br />
Me.Bookmark = BM<br />
End If<br />
<br />
BM = Null<br />
<br />
End Sub<br />
'------------------------------------------------<br />
<br />
まじ、ブックマーク呪わしい。ほんと&hellip;！]]>
    </description>
    <category>デジものとかプログラムとか</category>
    <link>https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90access-vba%E3%80%91%E3%82%B5%E3%83%96%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0%E5%86%85%E3%81%AE%E4%BB%BB%E6%84%8F%E3%81%AE%E3%83%AC%E3%82%B3%E3%83%BC</link>
    <pubDate>Thu, 22 May 2014 01:47:12 GMT</pubDate>
    <guid isPermaLink="false">co2.blog.shinobi.jp://entry/667</guid>
  </item>
    <item>
    <title>【cfV】オバロ軸について考えてみた。</title>
    <description>
    <![CDATA[私は元々からして、1stデッキがアモン、2ndデッキがオーバーロードです。<br />
<br />
　オーバーロードについては、ファン心理によって作ったデッキ（2013年7月時点で、ジエンド軸）なので、自分と相性が良いかというと首を捻りつつ遊んでいた要素があったりなんだり。その後、ヌーベルバーグを組み込んで、ヌーベルと愉快な仲間たちデッキを経て、2014年2月の無限転生で、再びオーバーロード軸になりました。<br />
<br />
　今回はその、オーバーロード[ブレイク（※以下オバロさん）&amp;Яe-Birth（※以下オバロリさん）]軸のお話。<br />
<br />
　そう、私は半年以上かげろう使いとして首を捻り続けていた訳なのですが。<br />
　オバロリさんは、付加価値的に持ち得る、かげろうに似合わぬ展開力と、ボッチorハーレムのスイッチ選択の見極めがなかなかクールで、今ではキャラ愛ユニット愛に加え、プレイングでもなかなかフェイバリットです。<br />
<br />
<br />
<br />
<br /><br /><a href="https://co2.blog.shinobi.jp/%E3%81%95%E3%81%B6%E3%81%8B%E3%82%8B/%E3%80%90cfv%E3%80%91%E3%82%AA%E3%83%90%E3%83%AD%E8%BB%B8%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6%E8%80%83%E3%81%88%E3%81%A6%E3%81%BF%E3%81%9F%E3%80%82" target="_blank">【現在のデッキレシピ】</a>]]>
    </description>
    <category>さぶかる</category>
    <link>https://co2.blog.shinobi.jp/%E3%81%95%E3%81%B6%E3%81%8B%E3%82%8B/%E3%80%90cfv%E3%80%91%E3%82%AA%E3%83%90%E3%83%AD%E8%BB%B8%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6%E8%80%83%E3%81%88%E3%81%A6%E3%81%BF%E3%81%9F%E3%80%82</link>
    <pubDate>Wed, 19 Mar 2014 11:00:00 GMT</pubDate>
    <guid isPermaLink="false">co2.blog.shinobi.jp://entry/665</guid>
  </item>
    <item>
    <title>【Access/VBA】備忘録）祝日マスターとそれを使ったカレンダーデータ作成</title>
    <description>
    <![CDATA[割と手が込んでて、汎用性がそれなりにあり、ソース無くなってまた組む羽目になったら面倒なので。<br />
<br />
【参考】<br />
【Excel Tips】成人の日や体育の日などのハッピーマンデーの日付を求めるには？<br />
<a href="http://enterprisezine.jp/iti/detail/854" title="">http://enterprisezine.jp/iti/detail/854</a><br />
【Excel Tips】春分の日や秋分の日を求めるには？<br />
<a href="http://enterprisezine.jp/iti/detail/865" title="">http://enterprisezine.jp/iti/detail/865</a><br />
<br />
祝日マスター<br />
-------------------------------------------<br />
<table><tbody style="border: 1px; border-style: solid;"><tr><td>管理No</td><td>名称</td><td>祝日区分</td><td>月</td><td>日</td><td>週</td><td>式</td><td>振替基準日</td></tr><tr><td>1</td><td>元旦</td><td>0</td><td>1</td><td>1</td><td>　</td><td>　</td><td>0</td></tr><tr><td>2</td><td>成人の日</td><td>1</td><td>1</td><td>　</td><td>2</td><td>　</td><td>0</td></tr><tr><td>3</td><td>建国記念の日</td><td>0</td><td>2</td><td>11</td><td>　</td><td>　</td><td>0</td></tr><tr><td>4</td><td>春分の日</td><td>2</td><td>3</td><td>　</td><td>　</td><td>INT(20.8431+0.242194*(★年-1980))-INT((★年-1980)/4)</td><td>0</td></tr><tr><td>5</td><td>昭和の日</td><td>0</td><td>4</td><td>29</td><td>　</td><td>　</td><td>0</td></tr><tr><td>6</td><td>憲法記念日</td><td>0</td><td>5</td><td>3</td><td>　</td><td>　</td><td>5</td></tr><tr><td>7</td><td>みどりの日</td><td>0</td><td>5</td><td>4</td><td>　</td><td>　</td><td>5</td></tr><tr><td>8</td><td>こどもの日</td><td>0</td><td>5</td><td>5</td><td>　</td><td>　</td><td>0</td></tr><tr><td>9</td><td>海の日</td><td>1</td><td>7</td><td>　</td><td>3</td><td>　</td><td>0</td></tr><tr><td>10</td><td>敬老の日</td><td>1</td><td>9</td><td>　</td><td>3</td><td>　</td><td>0</td></tr><tr><td>11</td><td>秋分の日</td><td>2</td><td>9</td><td>　</td><td>　</td><td>INT(23.2488+0.242194*(★年-1980))-INT((★年-1980)/4)</td><td>0</td></tr><tr><td>12</td><td>体育の日</td><td>1</td><td>10</td><td>　</td><td>2</td><td>　</td><td>0</td></tr><tr><td>13</td><td>文化の日</td><td>0</td><td>11</td><td>3</td><td>　</td><td>　</td><td>0</td></tr><tr><td>14</td><td>勤労感謝の日</td><td>0</td><td>11</td><td>23</td><td>　</td><td>　</td><td>0</td></tr><tr><td>15</td><td>天皇誕生日</td><td>0</td><td>12</td><td>23</td><td>　</td><td>　</td><td>0</td></tr></tbody></table>-------------------------------------------<br />
<br />
祝日計算の心臓部&darr;<br />
-------------------------------------------<br />
Select Case RS(0)!祝日区分<br />
Case 0<br />
wkDay = RS(0)!日<br />
Case 1<br />
wkWeek = Weekday(DateSerial(mYear, RS(0)!月, 0), 3)<br />
If wkWeek = 7 Then wkWeek = 0 ' エクセルと統一する為<br />
wkDay = (7 * RS(0)!週) - wkWeek<br />
Case 2<br />
wkDay = Eval(Replace(RS(0)!式, "★年", mYear))<br />
End Select<br />
-------------------------------------------<br />
<br />
-------------------------------------------<br />
Public Sub Crt_Doniti(mYear As Integer)<br />
'================================<br />
' 土日情報<br />
'================================<br />
Dim DB As DAO.Database, RS As DAO.Recordset<br />
Dim wkDay As Integer, m As Integer, i As Long, wkWeek As Long, wkDate As Date, WeekFlg As Integer<br />
<br />
<br />
Set DB = OpenDatabase(DB_jinji, False, False, pDB_Jinji)<br />
Set RS = DB.OpenRecordset("Select * From お休み管理用のテーブル", dbOpenDynaset)<br />
<br />
WeekFlg = 2 ' 最初の土曜日<br />
For m = 1 To 12<br />
<br />
Set_SanDay:<br />
wkWeek = Weekday(DateSerial(mYear, m, 0), WeekFlg)<br />
<br />
Select Case wkWeek<br />
Case 6: wkDay = 7<br />
Case 7: wkDay = 6<br />
Case Else: wkDay = 6 - wkWeek<br />
End Select<br />
<br />
For i = wkDay To Day(DateSerial(mYear, m + 1, 0)) Step 7<br />
<br />
wkDate = DateSerial(mYear, m, i)<br />
wkWeek = Weekday(wkDate, 2)<br />
<br />
RS.FindFirst "日付=#" &amp; wkDate &amp; "#"<br />
If RS.NoMatch Then<br />
<br />
RS.AddNew<br />
' （略）<br />
RS.Update<br />
End If<br />
<br />
Next<br />
<br />
' 最初の日曜日<br />
If WeekFlg = 2 Then<br />
WeekFlg = 3<br />
GoTo Set_SanDay<br />
Else<br />
WeekFlg = 2<br />
End If<br />
<br />
Next<br />
<br />
End Sub<br />
-------------------------------------------]]>
    </description>
    <category>デジものとかプログラムとか</category>
    <link>https://co2.blog.shinobi.jp/%E3%83%87%E3%82%B8%E3%82%82%E3%81%AE%E3%81%A8%E3%81%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%81%A8%E3%81%8B/%E3%80%90access-vba%E3%80%91%E5%82%99%E5%BF%98%E9%8C%B2%EF%BC%89%E7%A5%9D%E6%97%A5%E3%83%9E%E3%82%B9%E3%82%BF%E3%83%BC%E3%81%A8%E3%81%9D%E3%82%8C%E3%82%92</link>
    <pubDate>Fri, 28 Feb 2014 03:08:54 GMT</pubDate>
    <guid isPermaLink="false">co2.blog.shinobi.jp://entry/664</guid>
  </item>

    </channel>
</rss>