
No.2ベストアンサー
- 回答日時:
全てをVBAで処理し、重複のテーブルを作る方法は考えられるのですが、
「重複クエリ」を使う方法では、取り敢えずですが、次の方法は
どうでしょうか。
・モジュールの「新規作成」でコードウィンドに下記コードをコピーして
貼り付けます。
・この関数は、文字列を小文字は"0"、大文字は"1"に変換します。 例えば、LSChk("AaBbCC") とすると"101011" が返ります。
・テーブル作成クエリで必要フィールドの他に最後のフィールド欄に
例えば、重複チェックするフィールド名が[地名]とした場合ですが、
重複CHK:[地名] & LSChk([地名]) と設定します。
・これで作成されたテーブルの[重複CHK]には、もし"Tokyo"であれば
"Tokyo10000" となっていますので、あとは、通常の重複クエリで
このフィールドの重複を調べます。
・なお、全てVBA処理する場合は、宣言エリアに Option Compare Binary を
記述すると大、小文字を識別できます。
Option Compare Binary
Option Explicit
Function LSChk(St As String) As String
Dim L As Integer
Dim ChkOut As String
For L = 1 To Len(St)
If Mid(St, L, 1) = StrConv(Mid(St, L, 1), vbLowerCase) Then
ChkOut = ChkOut & "0"
Else
ChkOut = ChkOut & "1"
End If
Next L
LSChk = ChkOut
End Function
もっと簡単な方法があるかも知れませんが、取り敢えずの方法です。
これで如何でしょうか。
この回答へのお礼
お礼日時:2003/07/24 14:09
本当にありがとうございました。
早速やってみました。LSChk関数ははじめてでした。
思っていたとおりのことができました。感動です。
他のことにも応用できそうです。
お手数をおかけしてすみません。
Accessが好きになりそうです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessで、テーブルに入力した...
-
Access2010での、レポートの両...
-
アクセス クエリのフィールド...
-
アクセスで追加した項目に全て...
-
クエリの一つのフィールドのIIF...
-
テーブルでメモ型になっている...
-
【急】Access 4桁の数字の頭...
-
accessvba 複数条件でFilterを...
-
テキストボックスにクエリ結果...
-
フィールド名の変更について(...
-
Accessです。テーブルのフィー...
-
Accessのテーブルのフィールド...
-
Access で 特定の文字の個数を...
-
Accessで、1つの項目に複数の...
-
アクセス2007でオートナン...
-
ACCESSのテーブル複数行...
-
Accessのクエリでハイパーリン...
-
更新クエリをリンクデータベー...
-
ACCESSで2つフィールドの日付...
-
Access 選択クエリで「テーブ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスで追加した項目に全て...
-
Accessのテーブルのフィールド...
-
Accessで、1つの項目に複数の...
-
テキストボックスにクエリ結果...
-
テーブルでメモ型になっている...
-
Accessで、テーブルに入力した...
-
Accessを開きなおすとテキスト...
-
Access:値が求めたい値の2倍...
-
Access で 特定の文字の個数を...
-
Accessのクエリでハイパーリン...
-
Accessの電話番号フィールド
-
access フォームを開くと「パ...
-
【急】Access 4桁の数字の頭...
-
アクセスのクエリに「PHONETIC...
-
accessvba 複数条件でFilterを...
-
アクセス クエリのフィールド...
-
Access 選択クエリで「テーブ...
-
クエリの一つのフィールドのIIF...
-
アクセスのクエリ 1文字以上を...
-
SQLステートメントのFROM句・・・
おすすめ情報