Microsoft Access 掲示板

[登録時]グループ毎の自動採番/テキスト型の管理番号自動入力 / 2

5 コメント
views
4 フォロー
2
keepit 2021/01/25 (月) 11:17:27

hiroton様

ご回答いただき誠にありがとうございます。

2つのコントロールソースに、頂いた式を挿入し、
新規登録時(サンプルコードの1,2の処理)の際は、
やりたいことが実現できました。

しかし、1点問題が出てきてしまい、
申し訳ございませんが、
再度質問させて頂きたいと思います。

もともと2018.2019等過去データには値が入っており、

別途用意してある検索フォームから
「詳細/修正」ボタンを押すと
今回のフォームが開き、
検索フォームで選択された「ID」に連動した値が、
該当の登録フォームの、各レコードの値が挿入される仕様になっています。
(サンプルコードの「4.検索フォームから選択したデータの値取り込み」の部分。)

新規登録モードと修正モードが同じフォームで出来るような形になっています。

今回の修正後、
検索フォームで「詳細/修正」ボタンを押すと、

実行時エラー '2448'
このオブジェクトに値を代入することはできません。

'===============================================================================
'  4.検索フォームから選択したデータの値取り込み

           .Tx年度別連番.Value = oRS("年度別連番").Value
           .Tx管理番号.Value = oRS("管理番号").Value

の部分がデバックで表示され、該当フォームを開くことができなくなってしまいました。

もともとは、「詳細/修正」モードの場合、
非連結のテキストボックスで、
IDに連動したレコードを表示させていただので、
コントロールソースにあらたな数値を設定してしまったので、
エラーがでてしまったのでしょうか?
VBAでの処理が必要なのかどうか、
「新規登録」とは別に「詳細修正フォーム」を新たに作ったほうが良いのか、
質問ばかりで申し訳ありませんが、よろしくおねがいします。

通報 ...