非連結テキストボックスの入力内容をテーブルに書き込む

Question

実現したいこと

コントロールソースを持つテキストボックスを介さずに非連結の適すTボックスの入力内容をテーブルに書き込みたい

前提

マスターテーブルに新規登録を行うフォームを作成しております。
先日こちらでこのような質問をさせて頂き、コメントで非連結のテキストボックスにテーブルに書き込みたい内容を入力し、それをコントロールソースを持つテキストボックスに代入することで書き込みを行う方法を知りました。
しかしながらこの方法だと、書き込みたいフィールドの数が多ければ多いほどフォーム上に配置するオブジェクトの数が多くなってしまうと思い、コントロールソースを持つテキストボックスを配置しなくてもテーブルに書き込む方法はないものかと思い、質問させて頂きました。

発生している問題・エラーメッセージ

非連結→テキストボックス代入→テーブル書き込みだと、
①非連結テキストボックスの数と同じだけ、コントロールソースを持つテキストボックスを用意する必要がある
②①により、テキストボックス命名の手間が増える・フォームデザインの視認性が損なわれる
といった問題が発生するのではないかと考えました。

試したこと

コントロールソースを持つテキストボックスを可視をいいえにした上で、背景色をつけて非連結テキストボックスの背面に配置することでフォーム上の視認性はある程度確保されたと思いますが、やはり命名の数が増えること、テキストボックスへの代入・非連結ボックス内のクリアの2行がフィールドの数だけ必要なので冗長になってしまうので、どうにかスッキリ見やすくする方法はないでしょうか。

Answer 1

フォームは連結、テキストボックスは非連結で、ということだと推測しました。
ならば、連結テキストボックスはなくても、レコードソースのフィールドに代入することは可能です。

例えば、非連結テキストボックスの名前を、「txt_フィールド名」としておけば、下記のようなコードでフィールドに代入して保存できます。

Private Sub コマンド0_Click()
    Me.F1.Value = Me.txt_F1.Value 
    Me.F2.Value = Me.txt_F2.Value 
    Me.F3.Value = Me.txt_F3.Value 
    Me.F4.Value = Me.txt_F4.Value
    Me.Refresh 'レコード保存
End Sub

---

ただし、非連結でする場合、フォームの便利な機能を使えないし、また、フォームの動作、機能をきちんと理解してうえで設計しないと、いろいろ問題がでてきます。それなりのスキルが要求されます。

前回のsk.exeさんの回答の内容を理解したうえで、連結フォーム、連結テキストボックスのままで解決する方法を検討されることをお勧めしたいです。

そもそも、前回の質問の

レコードを保存するのに主キーが入力されている必要があるので
抜けているとエラーが表示されている

について、非連結コントロールにしても、レコード保存するには主キーが入力されている必要があるのには変わりないですし。

Comments

[退会済みユーザー]

レコード保存には主キーの入力が必要であることは以前の質問で理解しております。
今回は単純に、命名の手間やフォームデザインの視認性の問題で、そちらを解決する方法がないかと思い質問させて頂きました！

ちなみに非連結だけで完結させる場合に生じる、使えないフォームの機能・問題とはどういったものでしょうか？後学の為に、お手間でなければ一例でもご教示いただければ幸いです。

[hatena19]

レコード移動したとき、連結コントロールなら、移動したレコードのデータが何もしなくても表示できます。非連結コントロールだとその都度VBAで代入する必要があるのでコード量が増えます。

日付型のフィールドに日付として正しくない値を入力した場合とか、数値型のフィールドに数値以外を入力した場合とか、、、などの入力チェックもVBAでする必要がでてきます。

リレーション設定された複数のテーブル間での参照整合性のチェックなども自前のコードでやる必要がでてきます。