Access 2000で顧客データ入力する際に氏名の重複入力チェックを行いたいのですが・・・。よろしくお願いします。

Access 2000で顧客データ入力の業務をしております。フォームにて入力する際に、氏名の重複入力チェックを行いたいのですが・・・。VBAの式を使用する方法があるところまでは分かったのですが、肝心の式が分かりません。よろしくお願いします。

No.1 回答者： FEX2053 回答日時： 2008/03/12 15:43

単にフィールドがテーブルにリンクしているなら、テーブル側で

「インデックス」を「はい」にしてしまう、という姑息な手段が
無いわけじゃないんですが。

それより、氏名入力の「氏」「名」は同一フィールドですか？
氏名の中間空白の有無を嫌って往々にして別フィールドにしますが
別フィールドになってると同一人のチェックは一筋縄じゃ行きませんよ。

おまけに入力中にVBAを処理させると、「チェックボタンを押す」という
一動作が余計にかかったり、リアルタイムで処理させると処理が遅くて
入力に追いつかなかったりするんですけど、それＤめおいいんですか？

また「同姓同名」は本当にいないんですか？　入力時に弾いてしまうと
同姓同名データが来た時に入力できなくなりますよ？

そういった問題がありますので、通常は「後でチェックする」んですが。
「後でチェックする」場合は、テーブルをExcelに吐き出して、ソート
する方が簡単で良いです。ソートしておいて、「１つ上の氏名と同じ
ならば１、さもなければ０」というIF文で一気にチェックすれば一発です。

この回答へのお礼

早速のご回答ありがとうございます！
『氏』『名』は同一フィールドです。
FEX2053さんの文頭にありました、インデックスを『はい』にしてしまう方法は単純ですが、同姓同名の場合の登録が不可能なんですよね・・・。

宛名ラベルなどを作成する際に、エクセルにインポートして、重複チェックをしていますが、関数のIF文を使用した検索方法以外でチェックしていましたので、参考にさせていただきました。ありがとうございました！

VBAの式は難解で他の方の回答をもとに試行錯誤しています（＊。＊）
アクセス初級者が扱うにはなかなか大変ですね。他の方法もあるようなので、もう少し頑張ってみます！！

お礼日時：2008/03/13 16:47

No.2 回答者： fuuten_no_neko 回答日時： 2008/03/12 16:13

条件が曖昧ですが、一応

１．同姓同名はあり得る
２．「氏」「名」は別フィールド
３．氏名登録時に重複チェック、警告、後に詳細登録
だとします。アイディア的には

氏名チェックテーブルを作り、氏名フィールドにプライマリインデックスを設定

氏名登録時に登録ボタンを押すと、「氏」＋「名」で氏名を作成し、氏名チェックテーブルの氏名フィールドに追加登録する。この際にエラーが出れば警告を発生。
こんな感じで如何でしょうか？

この回答へのお礼

早速のご回答ありがとうございます！

１．同姓同名はあり得る→ありえます
２．「氏」「名」は別フィールド→同一フィールドです
３．氏名登録時に重複チェック、警告、後に詳細登録→はい

の条件で入力できればと思います。

『氏名チェックテーブルを作り、氏名フィールドにプライマリインデックスを設定』とは、通常の顧客テーブルに別で氏名チェック用のテーブルを作成するということでしょうか？
初心者の質問で大変恐縮ですが、よろしくお願いします。

お礼日時：2008/03/14 16:02

No.3 回答者： noname#140971 回答日時： 2008/03/12 16:36

Custtomer:

ID__KName_______ZipCode_____Address1__Address2__Address3________Building___________TEL________________FAX
01__鈴木 一郎___101-1111__東京都____葛飾区_____一丁目一番地__新日本ビル1F__111-111-1111__111-111-1112
02__中村 主水___101-1111__東京都____葛飾区_____一丁目一番地__新日本ビル1F__222-111-1111__111-111-1112
03__鈴木 一郎___102-2222__大阪府____枚方市_____一丁目一番地__西日本ビル1F__333-111-1111__111-111-1112
04__鈴木 一郎___101-1111__東京都____葛飾区_____一丁目一番地__新日本ビル1F__111-111-1111__111-111-1112

この場合、３番目のレコード入力が完了した時点では重複の警告は出さないでしょう。
この場合、４番目のレコード入力が完了した時点のみ重複の警告を出すでしょう。
しかも、[ID]から[FAX]までの全ての列が重複していれば確認の警告は無用かと思います。
その場合は、確認するまでもない重複ですので告知して削除するのみです。
だが、[ID]から[Building]まで重複している場合、[TEL」、[FAX]列の確認の意味合いで確認が必要です。
現実のデータを考えると、このようであると思います。

Private Sub KName_AfterUpdate()
　　Dim Answer　 As Integer
　　Dim strWhere As String
　　
　　Answer = vbYes
　　strWhere = "KName ='" & Trim(Me.KName) & "' AND ID<>" & Nz(Me.ID)
　　If DBLookup("ID", "Customer", strWhere, 0) <> 0 Then
　　　　Answer = Verify("同姓同名の新規顧客として追加登録しますか？")
　　End If
　　If Answer = vbYes And Nz(Me.ID) = 0 Then
　　　　Me.ID = DBMax("ID", "Customer") + 1
　　End If
End Sub

このように列[Kname]入力後に　DLookup()、Dcount() を用いて重複チェックするなんてのは通常はしないです。
ただ、この場合、カレントレコードをチェック対象から外しておかないととんでもないことになるので注意が必要です。

No.4 回答者： fuuten_no_neko 回答日時： 2008/03/14 16:40

#2です。

>通常の顧客テーブルに別で氏名チェック用のテーブルを作成するということでしょうか？
その通りです。
データが重複する欠点は有りますが、楽です。たとえば「氏」＋「名」＋「都道府県」の重複をチェックなども簡単にできます。

ところで他者の回答を批判するのは気が引けますが
>確認するまでもない重複ですので告知して削除するのみです。
全部のフィールドを入力させて、それから「告知して削除する」って随分意地悪ではないでしょうか？
名前の重複時点で全フィールドを表示し、入力オペレーターに警告する方が親切だと思います。

この回答へのお礼

返信ありがとうございます！
ご回答に下記のようにありますが、

＞データが重複する欠点は有りますが、楽です。たとえば「氏」＋「名」＋「都道府県」の重複をチェックなども簡単にできます。

重複クエリでテーブルを作成するのでしょうか？
具体的な方法をご指導いただけると、大変助かります！

お礼日時：2008/03/19 11:54

No.5 回答者： 16August 回答日時： 2008/03/15 10:33

どのような作業をなさっておられるのか、

どのくらいの顧客レコードがあるのか、
どのくらいの規模で運用するのかにもよりますが、

実データ入力時に、カナ検索などを行えるようにしておき
該当レコードが見つからなかったときに、新規登録というフローも
ありえます。

No.6 ベストアンサー 回答者： fuuten_no_neko 回答日時： 2008/03/20 07:06

＃２、＃４です。

>重複クエリでテーブルを作成するのでしょうか？
>具体的な方法をご指導いただけると、大変助かります！

＃２でも書いたように

１．チェック用テーブルを作成する
２．チェック用フィールドを１．のテーブルに作り、プライマリーインデックスか、重複を許さないインデックスを付ける
３．このテーブルに追加クエリーかADOなどでチェックしたいデータを追加する
４．重複していればエラーが発生するので、これをトラップする

具体的コードを提示できればよいのですが、ＶＢＡはとうの昔に忘れたので残念ながらできません。もし具体的コードが必要であれば、新しい質問として投稿した方が良いでしょう。