２週間ほど前にアクセスの修理の依頼がありました。
Microsoft Access 2019|オンラインコード版|Windows10|PC2台
アクセス2000から引き継ぎでアクセス2013まで引き伸ばして使っていたもので
締め日設定を20日から末日へ変更したいという案件でした。
他の人が作ったデータで
アクセスの内部に入れないようにパスワードをかけているところからのスタート!!
これはかなり手強い（汗）
アクセスを使ったことのある人ならわかるのですが
他人にプログラムを見せないためにユーザーインターフェースのみ表示させプログラムは表示させないという方法で見られない。
パスワードはどこ？？？
という感じで作者の足跡を掴みながらパスワード解除!!
プログラムはどのプログラムも一緒で
上から順番に処理を行っていきます。
アクセスも同じでマクロにプログラムの順番を書き込んであり
プログラムが作られていました。
肝心の20日締めのプログラムにつきました。
20日締めというプログラムはなく前月の月を参照し、
日=20に1ヶ月足すという簡易的なものでした（汗）
下記が修正箇所になります。
修正前
処理開始日 = 2021/05/21
処理終了日 = 2021/06/20
・処理開始日 = DateAdd(“m”,+1,[処理開始日])
・処理終了日 = DateAdd(“m”,+1,[処理終了日])
→（実行結果）処理開始日 =2021/06/21
→（実行結果）処理終了日 =2021/07/20
修正後
処理開始日 = 2021/05/21
処理終了日 = 2021/06/20
・処理開始日 = DateSerial([処理開始日],[処理開始日]+1,1)
・処理終了日 = DateSerial([処理開始日],[処理開始日]+2,0)
※[処理開始日]+2,0←これを探すのに大変でした。
→（実行結果）処理開始日 = 2021/06/01
→（実行結果）処理終了日 = 2021/06/30
見事完成しました。
