Access で 特定の文字の個数をしりたい

テーブルのフィールドに特定の文字があります。
たとえば、@があったとすると、１フィールド内に何個@があるか調べるにはどうしたらよいのでしょうか。

宜しくお願いします。

No.1 ベストアンサー 回答者： o_chi_chi 回答日時： 2012/02/01 11:02

個数を調べつ関数を作り、クエリから呼ぶようにすれば

よいと思います。

---
標準モジュール

Public Function cnt(wk As Variant) As Long

cnt = UBound(Split(wk, "@"))

End Function

ＳＱＬ

SELECT cnt([フィールド]) AS 個数
FROM テーブル;

No.3 回答者： mitarashi 回答日時： 2012/02/01 12:32

式1: Len([field0])-Len(replace([field0],"@",""))

でいかがでしょうか。
なお、Accessのバージョンが不明ですが、2000の場合、クエリでreplace関数を使う場合、VBA6をアップデートする必要があります。
http://www.microsoft.com/downloads/ja-jp/details …

この回答へのお礼

ありがとうございます。
なるほど、replaceで置き換えて文字数カウントですね。
大変参考になりました。ここみてみます。

バージョンは2007です。
書き足りず申し訳ありませんでした。

お礼日時：2012/02/02 08:56

No.2 回答者： nicotinism 回答日時： 2012/02/01 12:16

同じく、VBAで自作の関数を作成します。

標準モジュールに

Function chrCount(FV As Variant, findChr As String) As Integer
　　Dim i As Integer

　　For i = 1 To Len(Nz(FV, ""))
　　　　chrCount = chrCount - (Mid(FV, i, Len(findChr)) = findChr)
　　Next

End Function

使い方
chrCount("asdfs","s") → 2
chrCount("asdfs","df") → 1
が返ります。
クエリならフィールドのところに、個数:chrCount([フィールド名],"探したい文字")
としてください。

この回答へのお礼

自作関数はよくわからないので避けていましたが、こんな風にするんですね。
試してみます。

ありがとうございました。

お礼日時：2012/02/02 08:57