Q&A
このままでは丸投げ質問（非推奨質問の代表格です）となってしまうので、自身が調べていく中でやってみたコードをご提示ください。その上で「何が」「どう」分からなかったのか記載してください。 https://teratail.com/help/question-tips
顧客フォームと顧客登録フォームというフォームを作成しました。顧客フォームには登録画面ボタンを作成しボタンクリック時に顧客登録フォームに移動するようになっています。
顧客登録フォームには、顧客番号、顧客名を入力します。
顧客登録フォームで入力したデータは顧客フォームに新規レコードとして追加されるようにしました。
If DCount("*", "テーブル1", "[テキスト1]='" & 仮 & "'") > 0 Then
MsgBox "そのデータはすでに登録済みです" cancel = True
このようにVBAを組んでいます。
テキスト1に入力した物が、テーブル1のフィールド"仮"にあった場合に、「登録済です」と表示される様にしています。
顧客フォームに[(株)グリーン]というレコードがあったとして、顧客登録フォームで[株式会社グリーン]と入力したときに、「(株)」と「株式会社」という文字を同じ文字として認識させ、「そのデータはすでに登録済みです」と表示されるようにしたいです。
どのようなVBAにすれば「(株)」[株式会社]を同じ文字として認識させることができるのか、ご教示願います。
環境は以下の通りです。
OS:win7
ver:2003
回答2件
0
ベストアンサー
まず、すべきことはデータの正規化です。
例えば「株式会社」の場合、正式名称の「株式会社」以外の略称も許容すると、
「（株）」以外にも「㈱」「㊑」「㏍」「K.K.」「㍿」などで入力された場合も、考慮する必要がでてきます。ユーザー任せにすると思いもよらぬ略称を使う場合もあります。
登録するとき法人格の略称入力は禁止する、また、略称で入力された場合は、自動で正式名称に変換するという処理を組み込むべきでしょう。すでに入力済みのデータの略称も正式名称に変換しておきます。
テーブルには、正式名称の法人格しか存在しないという前提にしておけば、
略称で入力された場合は、正式名称に変換してから、入力済みデータを検索すればいいでしょう。
テキストボックスの更新後処理あたりで変換するようにすれはいいでしょう。
あるいは、
前法人格、法人名、後法人格 というよに３つのフィールドに分けて、
法人格はコンボボックスにしておくという方法ならより確実です。
コンボボックスの値集合ソースは、法人格マスターテーブルにしておきます。
「入力チェック」を「はい」にしておけば、マスターにないデータは登録できないので、
表記ゆれは皆無です。
投稿2018/07/11 07:37
総合スコア33699
0
違う文字を同じと認識させるには、そのパターンが必要になります。
パターンがなければ一致させることはできません。
名寄せに関しては、データの持ち方として、社名と法人格は別項目としておいたほうが良いと思います。
請求書等で使用するケースを考慮して専用の項目をもたせておき、使用する場合にはその項目に値が設定されている場合にはそちらを優先するようにすれば良いですし。
重複については法人格は除き、社名と住所や電話番号との組み合わせでチェックするようにしたほうが、法人格の表記ゆれに悩まされずに済みます。
投稿2018/07/11 05:14
編集2018/07/11 05:16
総合スコア25173
あなたの回答
tips
プレビュー
