DAO：Find 系メソッドで全角・半角・カタカナ・ひらがなを区別して検索を行う

対象バージョン : 97, 2000(MDB), 2002(MDB), 2003(MDB), 2007(ACCDB)
最終更新日 : 2007/02/12 (オリジナル作成日：1998/09/03 )

概　要

　Ver.7 以降、UNICODE 対応により、DAO の Find 系メソッドでは、全角・半角、カタカナ・ひらがなの区別がされずに検索が行われるようになりましたが、これらを区別して検索を行う方法です。

手　順

組み込み関数 StrComp でバイナリ比較を行います。

以下の例は、テーブル TBL の フィールド FLD に対して、フォーム FRM 上のテキストボックスコントロール TXT に入力された値により検索するものです。

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("TBL", dbOpenSnapshot)
rs.FindFirst "StrComp([FLD],'" & Forms!FRM!TXT & "',0)=0"
If Not rs.NoMatch Then
　' 一致した場合の処理を記述

改訂履歴

• 2003/11/02 DAO オブジェクト変数の宣言に "DAO" 修飾を追加。

目次へ戻る