ACCESSのフォーム上で、同じフィールドに複数の入力欄を設け、情報をつなげるにはどのようにしたら良いでしょうか。

Question

Access2019にて顧客対応用のソフトを作成しています。
現在、顧客の対応テーブルがあり、それを基に顧客の対応内容を入力するフォームがあります。
そこに対応内容を入力するのですが、同じ対応件名で２回目以降の問い合わせがあった場合に、「追加ボタン」のようなものを設置し、入力枠だけ別に追加表示し、入力できるようなものを検討しております。

現状のテーブル構成（各フィールド）：
対応履歴ID（オートナンバー）、日付（日付/時刻型）、件名（短いテキスト）、対応内容（長いテキスト）、顧客名（短いテキスト）

フォームは連結フォームで、単票フォームです。

イメージ
対応内容１
｛入力ボックス｝

があり、

「追加ボタン」を押すと、

対応内容２
｛入力ボックス２｝

が表示されるようなものを作りたいと考えています。

恐らく、フィールドを追加するというのはできないと思うので、
既存の入力内容が入っているフィールドに、入力ボックス２で記載した内容を追記するというやり方になると思うのですが、
とっかかりが分からないので、ご教授いただければ幸いです。

Comments

[hatena19]

現状のテーブル構成を提示してください。
また、フォームは非連結フォームですか、連結フォームですか。
また、連結フォームの場合、単票フォームですか、連結フォームですか。

[onemu]

ご返信ありがとうございます。
上記に、追記しましたので、ご確認おねがいいたします。

Answer 1

同じフィールドの内容をルールに基づいて分割して表示する事は可能です。
但し、その項目は連結にはできませんので、別途その項目を繋いだもので更新する必要が生じます。

例えば、対応内容を(,)区切りで複数の項目に分割するとすると、以下のファンクションを用いて分割は可能です。

Public Function MySplit(Expression, Delimiter, Position)
  Dim Token() As String
  If Nz(Expression) = "" Then Exit Function
  
  Token = Split(Expression, Delimiter, -1)
  If Position < 1 Or Position > UBound(Token) + 1 Then Exit Function
  MySplit = Token(Position - 1)
End Function

以下の様に使用します。

MySplit([対応内容], ",", 1)
MySplit([対応内容], ",", 2)

Comments

[onemu]

ご返信が遅くなり申し訳ございません。たいへん参考になりました。どうもありがとうございます。

Answer 2

Accessは一応、リレーショナルデータベースソフトなので、エクセルとかワードとは根本的に異なるソフトです。
まずは、テーブル設計を、リレーショナルデータベース（RDB）の基本に沿ったものにしないと使い物になりません。

RDBのテーブル設計の基本は「正規化」です。ここから説明していくここのスペースでは足りないので、「テーブク 正規化」をキーワードにWEB検索するか、データベースの入門書でおいおい勉強してもらうとして、とりあえず、現状のテーブルを下記のように作り変えてください。

テーブル名
顧客マスター

フィールド
－－－－－－
顧客ID　数値型 主キー
顧客名
顧客名カナ
電話番号
メールアドレス
住所
・・・
・・・
その他顧客に関する必要な情報のフィールドを追加してください。

テーブル名
顧客対応履歴

フィールド
－－－－－－
対応履歴ID　オートナンバー　主キー
日付　　　　日付/時刻型
件名　　　　短いテキスト
対応内容　　長いテキスト
顧客ID　　　数値型

リレーションシップで上記の２つのテーブルを 顧客ID で結合します。

リレーションシップの設定と効果 - もう一度学ぶMS-Access

この「顧客マスター」と「顧客対応履歴」は一対多の関係のテーブルといいます。このようなテーブルの入力フォームはメイン/サブフォーム形式のにするのが一般的です。

リレーションシップが作成してあれば、フォームウィザードで簡単に作成できます。
下記のリンクを参考に作成してください。

Accessのフォームのメイン/サブフォームとは | できるネット

これで顧客毎の対応履歴を閲覧、更新できます。
まずは、ここまで作成してみてください。

Accessでは、入力ボックスを追加していくというような設計はしません。
行(履歴)を追加していくというような作業は帳票フォームで、新規行にデータを入力していく形になります。

追加ボタンを押したとき、カレントと項目名を同じにしたいときは、VBAを使うことになります。まずは、上記で説明したことができてからですね。

追記

一つの件名で複数の対応履歴が必要なら、
「顧客対応履歴」テーブルをさらに分割すべきですね。
下記のような設計になります。

顧客対応件名

• 対応件名ID　主キー
• 初回日付
• 件名
• 顧客ID　外部キー

顧客対応内容履歴

• 対応内容履歴 主キー
• 対応件名ID 外部キー
• 日付
• 対応内容

Comments

[onemu]

ご返信ありがとうございます。少し説明を省略してしまったのですが、上記で示していただいたようにリレーションシップで上記の２つのテーブルを 顧客ID で結合されています。
やりたいことは、同じ件で、対応内容を２回目以降に、追記したいケースに追記しやすくしたいと思いまして...

[hatena19]

Accessの質問に回答するにはテーブル構成は必須ですので、現状のテーブル構成を質問に追記してください。

あと、メイン/サブフォーム形式のフォームはできていますか。
あるいは、現状のフォームのスクリーンショットの画像を質問に追記してもらえますか。

[onemu]

ご返信が遅くなり申し訳ございません。
なるほどです。件名を分けて別のテーブルにするという発想がありませんでした。
どうもありがとうございます。