http://oshiete.goo.ne.jp/qa/5536177.html
こちら↑でExcel版の回答をみつけましたが、
同じことをAccessでやる場合の関数や呼び出し方がわかりません。
※上記質問を一部改変して掲載させていただきます。
禁止文字ではなく許可文字の一覧を用意している点が異なります。
【Accessでやりたいこと】
「◆データ一覧」に、「◆許可文字一覧」が以外の文字が含まれているかをデータチェックしたい。
以下の場合だと、「◆データ一覧の3レコードめ」をエラーレコードとして表示したい。
------------------------------------------
◆データ一覧テーブル
名称
1レコードめ アイウ
2レコードめ A3
3レコードめ ア・A
◆許可文字一覧テーブル
文字
1レコードめ ア
2レコードめ イ
3レコードめ ウ
4レコードめ A
5レコードめ 1
6レコードめ 2
7レコードめ 3
------------------------------------------
以上、よろしくお願い致します。
No.3ベストアンサー
- 回答日時:
#2です。
> Dim rs As New ADODB.Recordset 行で
> で「ユーザ定義型は定義されていません」が出てしまい、
VBE のメニュー「ツール」→「参照設定」で、
Microsoft ActiveX Data Objects X.Y Library を追加してみてください。
X.Y は、2.5 とか 2.8 とか。
2007 をメインで使ってますが、2000 形式にしたりするので、私は 2.5 を参照してますけど。
なお、DAO でする場合は以下のような感じに
Public Function DicMake() As Boolean
Dim rs As DAO.Recordset
If (dic Is Nothing) Then Set dic = CreateObject("Scripting.Dictionary")
dic.RemoveAll
Set rs = CurrentDb.OpenRecordset(sTable)
While (Not rs.EOF)
dic.Item(rs(sField).Value) = Null
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
DicMake = True
End Function
仕様がもう少し固まっていれば・・・記述も変わってきます。
#2では、
「名称」内に許可文字が複数回出現しても、それは許可しています。
(「名称」が "アイアイ" であっても許可)
また、「文字」が1文字長でなくても処理できるように冗長にしています。が、
許可の「文字」が、"アイ" "ア" であった場合、処理順を考える必要があります。
"アイアイ" を "アイ" "ア" の順で処理すると、全て削除され表示対象になりませんが、
"ア" "アイ" の順で処理すると、"イイ" が残ります。
許可の「文字」が、"イイ" "ア" であった場合、処理順を考える必要があります。
"アイアイ" を "ア" "イイ" の順で処理すると、全て削除され表示対象になりませんが、
"イイ" "ア" の順で処理すると、"イイ" が残ります。
レコードセットを得る時等で、順を考える必要があります。
テーブル名を指定する際に、SQL記述にして順を指定・・・とか
例えば、クエリで見た時の記述(文字列長が長い順で、昇順)
SELECT * FROM 許可文字一覧
ORDER BY Len(文字) DESC, 文字;
を指定するとか・・・
また、出現頻度が高い順に得られていると、少ないループで処理できると思います。
「文字」は1文字長しかない場合、以下の様な記述でも良いのかも・・・
(クエリに変更はありません)
Public Function DicCheck(vSrc As Variant) As Boolean
Dim sS As String
Dim i As Long
DicCheck = True
If (dic Is Nothing) Then Exit Function
If (dic.Count = 0) Then Exit Function
sS = vSrc & ""
For i = 1 To Len(sS)
If (Not dic.Exists(Mid(sS, i, 1))) Then Exit Function
Next
DicCheck = False
End Function
> キャッシュに展開せずに、DicCheck だけを実行する形に
> 変えようとしていますが、うまく修正できません。
#2での 削除する(Replace を使う)方法で毎回レコードセットを得るものにすると
(DAO での例になります)
Public Function DicCheck(vSrc As Variant) As Boolean
Dim rs As DAO.Recordset
Dim sS As String
DicCheck = True
sS = vSrc & ""
Set rs = CurrentDb.OpenRecordset("許可文字一覧")
Do While (Not rs.EOF)
sS = Replace(sS, rs("文字"), "")
If (Len(sS) = 0) Then Exit Do
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
' sS = Trim(sS)
If (Len(sS) = 0) Then DicCheck = False
End Function
の記述だけで、クエリは
SELECT * FROM データ一覧 WHERE DicCheck(名称);
でいけると思います。
「文字」が1文字長しかなかった場合は、FindFirst で検索し、
NoMatch で判断する等いろいろ考えられると思います。
> 許可文字数が150字程度と少ないので
> キャッシュに展開しない方法をご教授いただけないでしょうか。
おそらく、
処理スピードは許可文字の件数ではなく、「名称」の件数に大きく左右されると思います。
(「名称」の件数がどれだけかわかりませんが、1件ごとに OpenRecordset するので・・・)
環境にあった速い方法を見つけられたらと思います。
(Dictionary 展開が速い・・・・ わかりません)
お礼が遅くなり申し訳ありません。
ライブラリを追加してキャッシュに展開するロジックを
活用させていただきました。
何度も丁寧な回答をありがとうございました。
No.6
- 回答日時:
> 許可文字数が150字程度と少ないので
> キャッシュに展開しない方法をご教授いただけないでしょうか。
ということなら、許可文字一覧を1文字1レコードではなく、1レコードに
すべて入れてしまえばどうでしょうか。
◆許可文字一覧テーブル
文字
1レコードめ アイウA123
標準モジュールに下記の関数。
Public Function MeisyouError(Meisyou, ArrowChars As String) As Boolean
Dim c As String
Dim i As Long
MeisyouError = True
If IsNull(Meisyou) Then Exit Function
For i = 1 To Len(Meisyou)
c = Mid(Meisyou, i, 1)
If InStr(ArrowChars, c) = 0 Then
MeisyouError = False
Exit For
End If
Next
End Function
クエリ
SELECT データ一覧.*
FROM データ一覧, 許可文字列
WHERE MeisyouError([名称],[文字]);
No.5
- 回答日時:
30246kikuさんのコード見さていただきました。
さすがですね。Dictionary を使う所など参考になります。
私のクエリの直積を使う方法は、許可文字数やレコード数が多くなると、かなり重くなりそうです。
No.4
- 回答日時:
> データ一覧].名称 は同じ文字を複数含むケースがあるため
> 許可文字だけの場合もエラーレコードとなってしまいます。
そのケースを考慮するのを失念してました。
Q_許可文字数 を下記のように変更してください。
SELECT
データ一覧.名称,
Sum(Len([名称])-Len(Replace([名称],[文字],""))) AS 許可文字数
FROM データ一覧, 許可文字一覧
GROUP BY データ一覧.名称;
これで文字に重複があっても大丈夫だと思います。
お礼が遅くなり申し訳ありません。
質問させていただいた機能は#2さんのロジックを使いましたが、
別の機能で文字数チェックをする必要があり
さっそく回答いただいたSQLを活用させていただきました。
どうもありがとうございました。
No.2
- 回答日時:
一例で良いですか。
VBA でユーザ定義関数を作って、それを呼び出して処理します。
「名称」の文字列から「文字」を1つ1つ削除していき、
最終的に何らかの文字が残っていたら・・・・と考えてみます。
1つ1つを削除する時には、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() は1度しか呼ばれません。
なので、WHERE の1番最初に呼び出すことで 「文字」がメモリ上に展開されます。
参考になるかどうか、しっかりと検証はしてください。
この回答への補足
早速回答ありがとうございました。
関数を定義して実行してみたところ、
Dim rs As New ADODB.Recordset 行で
で「ユーザ定義型は定義されていません」が出てしまい、
試しにDim rs As New DAODB.Recordset と書き変えたりしたのですが
如何せん知識不足で対処できませんでした。
そこで、キャッシュに展開せずに、DicCheck だけを実行する形に
変えようとしていますが、うまく修正できません。
許可文字数が150字程度と少ないので
キャッシュに展開しない方法をご教授いただけないでしょうか。
どうぞよろしくお願い致します。
回答ありがとうございました。
補足で再度質問させていただいていますが
こちらも回答いただけるととても有難いです。
引き続きどうぞよろしくお願い致します。
No.1
- 回答日時:
下記のようにクエリを2段に使うことで可能です。
SQLが分からない場合は、クエリのデザインビューの画像を参照してください。名称に含まれる許可文字数を取得するクエリ
Q_許可文字数
SELECT [データ一覧].名称, Count(許可文字一覧.文字) AS 許可文字数
FROM データ一覧, 許可文字一覧
WHERE [データ一覧].名称 Like "*" & [文字] & "*"
GROUP BY [データ一覧].名称;
このクエリとデータ一覧テーブルからクエリを作成
実際の文字数より許可文字数が少ないレコードを抽出
Q_名称エラー
SELECT [データ一覧].名称
FROM データ一覧 LEFT JOIN Q_許可文字数 ON [データ一覧].名称 = Q_許可文字数.名称
WHERE Nz([許可文字数],0)<Len([データ一覧].[名称]);
SQLが理解できるなら、サブクエリを使えば一つのクエリにまとめることができます。
この回答への補足
早速ありがとうございました。
SQLは理解できたのでクエリを作成してみました。
うまく動いたのですが、一つ問題がみつかりました。
[データ一覧].名称 は同じ文字を複数含むケースがあるため
許可文字だけの場合もエラーレコードとなってしまいます。
(例) [データ一覧].名称 アイウアイ
許可文字数 3
Len 5
自分でも試行錯誤しているところですが
なにかアイデアお持ちでしたらレクチャお願いいたします。
回答ありがとうございました。
補足で再度質問させていただいていますが
こちらも回答いただけるととても有難いです。
引き続きどうぞよろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- その他(データベース) IT用語について質問です。 以前ITパスポートの試験を受けた際にデータベースが何の集まりかについての 2 2022/12/10 12:29
- PHP クエリObjectをforeachで回す時に、次のレコードへ移動せずに次のレコードを取得したい 2 2022/07/28 15:29
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- その他(音楽・ダンス・舞台芸能) 「録音品質の良い」オススメのレコードを教えてください。 皆様のお持ちのレコードで「これは音がいい!」 8 2022/08/08 14:45
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
アクセスVBAのMe!と[ ]
Access(アクセス)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
sqlに記述できない文字
PostgreSQL
-
6
禁止文字をエクセルかアクセスでチェックする方法について
その他(ソフトウェア)
-
7
アクセスのフォームに入力する文字に制限をかけたい
Access(アクセス)
-
8
実行時エラー3131 FROM 句の構文エラーです について
Access(アクセス)
-
9
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
10
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
11
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
12
Accessのフィールド名に半角括弧を使ってしまった
Visual Basic(VBA)
-
13
構文エラー:演算子がありません。 ACCESS SQL
その他(データベース)
-
14
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
15
「パラメータが少なすぎます。3を指定してください。」って???
Access(アクセス)
-
16
アクセスで入力したデータの順番が変わってしまいます
その他(ビジネス・キャリア)
-
17
アクセスのフィールド表示を2段にする方法・抽出の方法
Access(アクセス)
-
18
accessの SQL文 INSERT命令
Access(アクセス)
-
19
Access→Excelへエクスポートすると日付の表示形式が変化する
Excel(エクセル)
-
20
「RunSQL」と「Execute」の違い
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
データの二重表示の原因
-
Accessにインポートしたら並び...
-
Accessで重複したデータを一件...
-
Accessでの禁止文字チェック
-
数百万件レコードのdelete
-
ACCESSのBookmarkプロパティの...
-
3つ以上のテーブルをUNIONする...
-
ACCESS【更新クエリの中断がで...
-
ManagementStudioからのデータ削除
-
DB INSERT 時の排他制御について
-
SQLデータ修正時に『このレコー...
-
2つの項目が重複するレコード...
-
Access 抽出したレコードのうち...
-
Accessでの排他制御
-
Access2007 削除クエリで複数テ...
-
非連結サブフォームのレコード...
-
MySQLでTIMESTAMP型の列から現...
-
800万件のデータ
-
Select Distinct の使い方
-
テーブルのレコード削除ができ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
3つ以上のテーブルをUNIONする...
-
2つの項目が重複するレコード...
-
数百万件レコードのdelete
-
Accessにインポートしたら並び...
-
データの二重表示の原因
-
Access VBA Me.Requery レコー...
-
ACCESSのBookmarkプロパティの...
-
Access 1レコードずつcsvで出力...
-
Access 削除クエリが重い
-
ManagementStudioからのデータ削除
-
SQLServerで同一条件レコードの...
-
非連結サブフォームのレコード...
-
Accessでレコードが更新された...
-
Accessでの排他制御
-
(ACCESS)並び替えをしないで...
-
Accessで重複したデータを一件...
-
Accessでの禁止文字チェック
-
Access カレントレコードがあり...
-
ACCESSファイルを開こうとする...
-
ACCESS【更新クエリの中断がで...
おすすめ情報