Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

241 / 9994

←次へ　｜　前へ→


	【13067】Re:日付+自動採番

NUTKEY - 16/9/16(金) 15:12 -


	引用なし

	パスワード

亀マスターさん連絡が遅くなりすいませんでした。「使用可能」「編集ロック」は実施しました。日付順に関しては入力日がバラバラなので問題なしです。また、入力済みの提案日を編集することはないので問題なしです。 Private Sub 提案日_AfterUpdate() 　　 Me![提案日] = Format(提案日, "yymm") & Format([連番] + 1, "000") 　 End Sub と入れたのですがデバックが出てしまいます。これでは条件がまずいのでしょうか? そして、連番になってくれません・・・クエリで入力するとできてはいるのですが、閉じてまた開くと連番ではなくなっています。これは、亀マスターさんが前回の回答にも書かれたように、『連番を計算・表示させる前に、更新前の日付を調べ、更新前が空白・同じ月・異なる月などの場合分けで対応する必要があるでしょう。』に関係があるのでしょうか? お手数ですが再度教えて下さい。