Access2010 VBAで文字を数える

質問

あるデータベースのフォーム内で、テキストボックス内に記載のある任意の文字列の数を数えて変数に格納したいと考えています。
そして、コマンドボタンを押したときに、メッセージボックスで「○件選択しています。」のように表示されるようにしたいと考えています。

色々と検索してみて以下のような記述をしたのですがうまく動いてくれませんでした。（「コンパイルエラー：　SubまたはFunctionが定義されていません。」と表示されます。）

Dim A As Integer
A = Len([txtbox]) - Len(SUBSTITUTE([txtbox], ","))
　　MsgBox(A & "件の選択しています。"）

なお、テキストボックス、コマンドボタンは同一のフォーム内においてあります。
また、テキストボックス内で検索したい文字は半角カンマです。

詳しい方がおりましたら、どうぞご教示ください。

回答No.1

bin-chan · ベストアンサー

> Dim A As Integer
> A = Len([txtbox]) - Len(SUBSTITUTE([txtbox], ","))
>　　MsgBox(A & "件の選択しています。"）
これはどこに記述してますか？コマンドボタンClick？

MsgBox("件の選択しています。"）

だけにして、正常動作しますか？
しないなら、コード記述場所の問題。解決を図るのはそこから。

私だったら、

dim strArray() as string
dim nArray as long

strArray()=split([txtbox], ",")
nArray=ubound(strArray())
MsgBox(nArray & "件の選択しています。

とします。

お礼

ご回答ありがとうございます。
記述位置は問題ありませんでした。
同じ物を求めるにしてもいろいろな方法があることを改めて勉強になりました。
ありがとうございました。

回答No.2

o_chi_chi

AccessのＶＢＡならReplaceですね。

---

A = Len([txtbox]) - Len(Replace([txtbox], ",",""))

お礼

ご回答ありがとうございます。
o_chi_chiさんの回答でもbin-chanさんの回答でも、私が求めていたことができたのでどちらをベストアンサーにするか悩んだのですが、o_chi_chiさんには申し訳なく思いますが、先にお答えいただいた方を選ばせて頂きました。

Replaceを使って求める方法も勉強になりました。
本当にありがとうございました。