keepit
cff26e498c
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での処理が必要なのかどうか、
「新規登録」とは別に「詳細修正フォーム」を新たに作ったほうが良いのか、
質問ばかりで申し訳ありませんが、よろしくおねがいします。
通報 ...