Accessでの禁止文字チェック方法とは？

質問

• Accessでのデータチェックについて質問がありました。具体的には、「データ一覧」と「許可文字一覧」という2つのテーブルを利用して、データ一覧に許可文字一覧以外の文字が含まれているかをチェックしたいとのことです。質問文には具体的なデータ例も掲載されており、エラーレコードの表示方法についても言及されています。
• 質問者は、Excel版の回答を見つけたものの、Accessでの関数や呼び出し方が分からないとのことです。そこで、Accessでの禁止文字チェックについて詳しく教えていきましょう。
• Accessでは、許可文字一覧テーブルを作成し、テーブル間のクエリを使用してデータ一覧テーブルのチェックを行うことができます。具体的な手順やクエリの作成方法について説明します。ハッシュタグも用意しており、Accessでのデータチェックに関心のある方に役立つ情報となっています。

回答No.2

30246kiku

一例で良いですか。

VBA でユーザ定義関数を作って、それを呼び出して処理します。

「名称」の文字列から「文字」を１つ１つ削除していき、
最終的に何らかの文字が残っていたら・・・・と考えてみます。
１つ１つを削除する時には、Replace を使用します。
ここで、毎回レコードセット（「文字」を得て、クルクル回す時）を得ていると
遅くなると思うので、「文字」を Dictionary に展開しておいて、メモリ上で処理・・・

「文字」を Dictionary に展開　：　DicMake
何らかの文字が残るか　　：　DicCheck
（関数名は適宜変更してください）

標準モジュールに以下を記述します。

Private Const sTable As String = "許可文字一覧"
Private Const sField As String = "文字"
Private dic As Object

Public Function DicMake() As Boolean
　　Dim rs As New ADODB.Recordset

　　If (dic Is Nothing) Then Set dic = CreateObject("Scripting.Dictionary")
　　dic.RemoveAll

　　rs.Open sTable, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
　　While (Not rs.EOF)
　　　　dic.Item(rs(sField).Value) = Null
　　　　rs.MoveNext
　　Wend
　　rs.Close
　　DicMake = True
End Function

Public Function DicCheck(vSrc As Variant) As Boolean
　　Dim sS As String
　　Dim v As Variant

　　DicCheck = True
　　If (dic Is Nothing) Then Exit Function
　　If (dic.Count = 0) Then Exit Function
　　sS = vSrc & ""
　　For Each v In dic.keys
　　　　sS = Replace(sS, v, "")
　　　　If (Len(sS) = 0) Then Exit For
　　Next
'　　sS = Trim(sS)
　　If (Len(sS) = 0) Then DicCheck = False
End Function

※ ADO を使ってますが、DAO でも・・・・
※ Trim は必要に応じて・・・・

このユーザ定義関数を使って、クエリを作ります。
（SQLビュー表示にして）

SELECT * FROM データ一覧
WHERE DicMake() AND DicCheck(名称);

※ パラメータ（引数）を持たない DicMake() は１度しか呼ばれません。
なので、WHERE の１番最初に呼び出すことで 「文字」がメモリ上に展開されます。

参考になるかどうか、しっかりと検証はしてください。

お礼

回答ありがとうございました。
補足で再度質問させていただいていますが
こちらも回答いただけるととても有難いです。
引き続きどうぞよろしくお願い致します。

補足

早速回答ありがとうございました。

関数を定義して実行してみたところ、
Dim rs As New ADODB.Recordset　行で
で「ユーザ定義型は定義されていません」が出てしまい、
試しにDim rs As New DAODB.Recordset　と書き変えたりしたのですが
如何せん知識不足で対処できませんでした。

そこで、キャッシュに展開せずに、DicCheck　だけを実行する形に
変えようとしていますが、うまく修正できません。

許可文字数が150字程度と少ないので
キャッシュに展開しない方法をご教授いただけないでしょうか。

どうぞよろしくお願い致します。